let rec(!)r=Sort.list(<)([String.length r,r]@try!(read_line()^"
")with _->[]);;List.map(fun(a,b)->print_string b)!""