let () = let n = read_int () in let a = read_int () in print_endline "1"; let rec doit i s = if i = n then () else begin let x = read_int () in let s = if a >= x then s else s + 1 in print_int s; print_newline (); doit (i + 1) s end in doit 1 1