#!/usr/bin/perl

$debug = 0;
$num_lines = 0;

while (<STDIN>) {
  $line = $_;
  chomp($line);
  $line =~ s/\t/ /g;
  $line =~ s/\r/ /g;

  $num_lines++;

  if ($debug > 0) {
    printf "num_lines %d line ..%s.. \n", $num_lines, $line;
  }
 
  if ($num_lines <= 6) {
    if ($debug > 0) {
      printf "num_lines %d so print comment char \n", $num_lines;
    }
    printf "%s%s\n", "#", $line;
    next;
  }

  @words = split(/\s+/, $line);
  if ($debug > 0) {
    printf " num words is %d \n", $#words;
  }
  if ($#words <= 2) {
    # skip it
  }
  else {
    printf "%s \n", $line;
  }

}

exit 0;