open Printf
open Scanf

let id x = x

let solve n =
  let ht = Hashtbl.create n in
  let rec f x =
    if x = 0 then ()
    else begin
        let s = scanf "%s " id in
        Hashtbl.replace ht s true;
        f (x - 1)
      end in
  f n;
  Hashtbl.length ht

let () =
  scanf "%d " solve |> printf "%d\n"
