open( IN, "<".$ARGV[0] );
open( OUT, ">".$ARGV[1] );

%id = ();
while( $L = <IN> ) {
    @D = split( /\t/, $L );
    $id{ $D[0] } = 1;
}
print OUT ( scalar keys %id )."\n";

close( IN );
close( OUT );