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