open List
let(@)=map
let rec($)y n=Scanf.scanf"%s %n"(fun s t->t>n&(t-n,s)::y$t||[]<print_endline@snd@sort compare y);;[]$0