sub recurse {
  my $level = shift;
  print "recurse [$level]\n";
  recurse($level - 1) if $level > 0;
}