1N/Aprint <<DUMMY_TEST;
1N/Aok 1
1N/Aok 2
1N/Aok 3
1N/Aok 4
1N/A1..4
1N/ADUMMY_TEST
1N/A
1N/Ause if $^O eq 'VMS', vmsish => 'hushed';
1N/Aexit 1;