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