Imports System
Imports System.IO

Module Module1

    Sub Main(ByVal args As String())

        Dim s As String() = Console.ReadLine().Split(vbNewLine)

        Dim ans As Integer
        Dim l As New List(Of String)

        For i As Integer = 1 To CInt(s(0))
            If Not l.Contains(s(i)) Then
                ans += 1
                l.Add(s(i))
            End If
        Next

        Console.Write(ans)

    End Sub

End Module