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