let () =
  let n = Scanf.scanf "%d " (fun a -> a) in
  let d = Array.to_list @@ Array.init n (fun _ -> Scanf.scanf "%d " (fun a -> a)) in
  let ans = List.sort_uniq compare d |> List.length
  in
  Printf.printf "%d\n" ans
