sub debug {
  print "$_\n" for @_;
}