do {
  $n = chomp;
  print;
  $_ = <>;
  print $/ x $n unless s/^;//;
} while defined($_);