let solve n st =
  let a0 = Stream.next st in

  let rec solve' i rank =
    if i >= n - 1 then ()
    else
      let a = Stream.next st in
      let rank = if a > a0 then rank + 1 else rank in
      string_of_int rank |> print_endline;
      solve' (i + 1) rank
  in
  print_endline "1";
  solve' 0 1

let () =
  let n = read_line () |> int_of_string in
  let st = Stream.from (fun i ->
    if i >= n then None
    else
      let a = read_line () |> int_of_string in
      Some(a)
  ) in
  solve n st