Module Module1

    Sub main()
        Dim user1 = Console.ReadLine()
        Dim kujiMax As Long = user1
        Dim getItems As New List(Of String)

        For i = 0 To kujiMax - 1
            'Dim user2 = Console.ReadLine()
            'If Not getItems.Contains(user2) Then
            '    getItems.Add(user2)
            'End If
            getItems.Add(Console.ReadLine())
        Next

        'Console.WriteLine(getItems.Count)
        Console.WriteLine(getItems.GroupBy(Function(x) x).Count)
    End Sub
end module