open List
let rec i?(s=ref[])?(l=read_line())_=try s:=l::!s;i~s()with e-> !s;;
let c?(k=String.length)a b=let n=k a-k b in n+(abs n-1)*(compare b a);;
map(Printf.printf"%s\n")(sort c(i()));;