(********************************) (* Sort by Length *) (********************************) let(^)=List.map let rec(!)?(s=read_line())_=[String.length s,s]@try!0with _->[];;print_endline^snd^Sort.list(<)!0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).