open List let rec f?(l=read_line())_=l::try f 0with _->[]and l=String.length;;map print_endline(Sort.list(fun x y->l x