open String
let rec(!)s=try!([read_line()]@s)with _->print_string(concat"
"(List.sort(fun a b->(length a-length b)*2+compare a b)s));;![]