1N/Asub foo {
1N/A print "in sub foo\n";
1N/A}
1N/A
1N/Asub bar {
1N/A print "in sub bar\n";
1N/A $^P -= 0x40;
1N/A}
1N/A
1N/Afoo();
1N/A$^P -= 0x40;
1N/Afoo();
1N/A$^P += 0x40;
1N/Abar();
1N/A$^P += 0x40;