let rec(@)l i=i=0&List.map(Printf.printf"%d ")l=[];Scanf.scanf"%d "(fun n->Sort.list(>)(n::l)@i-1);;[]@read_int()