sub tab {
  my ($var) = @_;
  return ("\t") x $var;
}

sub line {
  my ($tab,$var) = @_;
  print tab($tab).$var."\n";
}