let N = stdin.ReadLine() |> int
let a = Array.init N (fun _ -> stdin.ReadLine() |> int)

let aHead = a |> Array.head

a
|> Array.tail
|> Array.scan (fun acc x -> 
    if x > aHead then acc + 1  else acc) 1
|> Array.iter (printfn "%i")