module SS = Set.Make(String);;
let () =
  let n = read_int () in
  let s = Array.to_list (Array.init n @@ fun _ -> Scanf.scanf "%s\n" @@ fun s -> s) in
  let ans = List.fold_right SS.add s (SS.empty) in
  print_int (SS.cardinal ans)