Select Code to Download

  print "above\n";
  my $E = binary($k);
  print "below\n";

  print "x\n";
  print "y\n";
  print "z\n";

# How many steps we want to take
my $steps = 3;
...

# Start off
recur(0);

% ./tst.pl 
Start with 0
...
 Done with 1
<- Back from 1
Done with 0