Un-bitrot nqp/rc-man-or-boy-test

Author: Geoffrey Broadwell

nqp/rc-man-or-boy-test

@@ -2,8 +2,11 @@
 try { nqp::getcomp('nqp').eval('pir::getinterp__P().recursion_limit(100000)') }
 
 sub A ($k, $x1, $x2, $x3, $x4, $x5) {
-    my $B := sub () { A(--$k, $B, $x1, $x2, $x3, $x4) };
+    my $B; $B := sub () { A(--$k, $B, $x1, $x2, $x3, $x4) };
     $k <= 0 ?? $x4() + $x5() !! $B();
 }
 
-say(A(+@ARGS[1], sub(){1}, sub(){-1}, sub(){-1}, sub(){1}, sub(){0}));
+sub MAIN(*@ARGS) {
+    say(A(+@ARGS[1], my sub(){1}, my sub(){-1}, my sub(){-1},
+                     my sub(){1}, my sub(){0}));
+}