sub debug_info {
  return(0) unless $verbose;
  print join ':', "\n*", @_;
  print "\n";
  return 1;
}