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

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

f a