let rec(!)?(a=read_line())_=(String.length a,a)::try!0with _->[];;List.map(fun(_,a)->print_endline a)(Sort.list(<)!0)