open String;;let rec q a=try q(read_line()::a)with _->a in print_string(concat"\n"(List.map(fun(_,x)->x)(List.sort(fun(l,x)(m,y)->if l=m then compare x y else l-m)(List.map(fun x->(length x,x))(q[])))))