Imports System.Collections.Generic

Module Main

    Sub Main()

        Dim n As Integer = 0
        Dim val As New Dictionary(Of String, Integer)

        '入力値取得
        n = Integer.Parse(Console.ReadLine())
        For i As Integer = 1 To n
            val(Console.ReadLine) = 1
        Next

        '処理結果出力
        Console.WriteLine(val.Count)

    End Sub

End Module