Module Program

    Sub Main(args As String())

        Dim count As Integer = CInt(Console.ReadLine())
        Dim objName As List(Of String) = New List(Of String)()
        For i As Integer = 1 To count
            Dim tmp As String = Console.ReadLine()
            If objName.Contains(tmp) = False Then objName.Add(tmp)
        Next

        Console.WriteLine(objName.Count.ToString())

    End Sub

End Module