while( my $seq = $in->next_seq  ) {
      print $i++, " : ", $seq->seq(), "\n";
   }