let rec($)l a=let(_,h)::t=Scanf.scanf"%s %n"(fun s z->a<z&Sort.merge(<)[z-a,s]l$z;l)in print_endline h;t$a;;[]$0