open List
let rec f l=try f(l@[read_int()])with _->map(fun x->Printf.printf"%d
"(1+length(filter((<)x)l)))l;;f[]