Problem:
Score : 300 points

Problem Statement

You drew lottery N times. In the i-th draw, you got an item of the kind represented by a string S_i.

How many kinds of items did you get?

Constraints

1 \leq N \leq 2\times 10^5

S_i consists of lowercase English letters and has a length between 1 and 10 (inclusive).

Input

Input is given from Standard Input in the following format:

N
S_1
:
S_N

Output

Print the number of kinds of items you got.

Sample Input 1

3
apple
orange
apple

Sample Output 1

2

You got two kinds of items: apple and orange.

Sample Input 2

5
grape
grape
grape
grape
grape

Sample Output 2

1

Sample Input 3

4
aaaa
a
aaa
aa

Sample Output 3

4

Solution in Pascal (FPC 3.0.4) (judge verdict: Time Limit Exceeded)

program gacha;
var
    n, i, j, count : longint;
    list : array[1..200000] of string ;
    listofnew : array[1..200000] of string;
    temp, k : string;
    new : boolean;
begin
    readln(n);
    for i := 1 to n do 
        readln(list[i]);

    for i := 1 to n - 1 do begin
        for j := 1 to n - i do begin
            if list[j] > list[j + 1] then begin
                temp := list[j];
                list[j] := list[j + 1];
                list[j + 1] := temp;
            end;
        end;
    end;

    listofnew[1] := list[1];
    count := 1;
    for i := 1 to n do begin
        new := true;
        for k in listofnew do begin
            if k = list[i] then begin
                new := false;
                break;
            end
        end;
        if new then begin
            count += 1;
            listofnew[count] := list[i]
        end;
    end;
    writeln(count);
end.