let(@)=Sort.list let rec(!)?(l=read_line())_=l::try!0with _->[]let(+)f(!)a b=f!a!b;;List.map print_endline((<=)+String.length@(<)@ !0)