Select Code to Download

sub r {
  print shift; # print the argument given
...
  }
  r($a);
}

# j      u       s       t
p(9);  p(20);  p(18);  p(19); z(104); 
...

# c      o       d       e      r       .
p(2);   p(14); p(3);   p(4);  p(17);  r('.');