let rec(!)r=[String.length r,r]@try!(read_line()^" ")with _->[]let(^)=List.map;;print_string^snd^Sort.list(<)!""
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page