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