let rec(!)?(l=String.length)a=try!(read_line()::a)with _->List.map print_endline(Sort.list(fun x y->l x<l y||l x=l y&x<y)a);;![]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page