let rec($)l a=let(_,h)::t=Scanf.scanf"%s %n"(fun s z->a<z&List.merge compare[z-a,s]l$z;l)in print_endline h;t$a;;[]$0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page