open List
let rec(!)?(a=read_line())x=merge compare[String.length a,a](try!0with
_->[]);;iter print_endline(map snd!0)