open String
let rec p l =try p(read_line()::l)with _->l
let _=List.iter(fun s->print_endline s)(List.sort(fun a b->(length a-length b)*99+compare a b)(p[]))