sub debug_info {
  print join ':', "\n*", @_;
  print "\n";
  return 1;
}