let rec($)l a=try l$read_line()::a with _->List.map print_endline(List.sort(fun c d->2*(l c-l d)+compare c d)a);;String.length$[]