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