$seq =~ /([AN]*)$/;
    printf OUT "%d %s.seq\n", length $1, basename $_;
}