
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

        Next

        Console.WriteLine(getItems.Count)
    End Sub
end module