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
            objName.Add(Console.ReadLine())
        Next

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

    End Sub

End Module