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