print ( (split "\t", $line)[0] ), "\n" ;