let rec(!)?(x=read_line())y=(String.length x,x)::try!0with _->[]let(@)=List.map;;print_endline@snd@List.sort compare!0