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

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