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

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

f a