let split_string ?(pattern="") = Str.split @@ Str.regexp pattern
let n = Scanf.sscanf (read_line ()) "%d" @@ fun n -> n
let a = read_line () |> split_string ~pattern:" " |> List.map int_of_string

let () =
  let ans = Array.make n 0 in
  List.iter (fun i -> ans.(i - 1) <- ans.(i - 1) + 1) a;
  Array.iter (Printf.printf "%d\n") ans