sub sline {
  my ($tab,$line) = @_;
  return qq(\t) x $tab.qq($line\n);
}

sub line {
  print sline(@_);
}