#!/usr/bin/perl

while ($_ = <STDIN>) {
	chomp;
	my @fields = split /\t/;
	if ( $. == 1 ) { goto PUSHFIELDS }

	$seen{$fields[0]}++;
	$seen{$fields[0]} ==1 or warn "Duplicate for $fields[0]. First entry taking precedence\n";

	unless ( $fields[2] =~ /^\d{1,3}$/ ) { # internal version is missing

		splice ( @fields, 2, -1, 100, @fields[2..$#fields] );
	
	}

	PUSHFIELDS:
	$fields[$#fields] .= "\n";
	push @list , join("\t", @fields);

}

print for @list;