open String let m,l=length,ref[]let rec n _=n(l:=read_line()::!l);;try n()with _->List.iter print_endline(List.sort(Obj.magic(fun a b->m a>m b||m a=m b&&a>b))!l)