program problemC
  implicit none

integer :: NMAX,n,rec(200000),recnum,count,k,l, judge,maxrec
character(len=10),allocatable :: S(:)

read(*,*) NMAX

allocate(S(NMAX))

count=0

read(*,*) S(1)
count=count+1

do n=2, NMAX
  read(*,*) S(n)
  do k=1, n
    judge=0
    if (S(n)==S(k)) then
      judge=1
      exit
    end if
  end do
  if (judge==0) count=count+1
end do

write(*,*) count
deallocate(S)

end program
