program problemC
  implicit none

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

read(*,*) NMAX

allocate(S(NMAX))

do n=1, NMAX
  read(*,*) S(n)
end do

recnum=1
count=0
do n=1,NMAX
  rec(n)=n
end do

do n=1,NMAX-1
  if (rec(n)==n) then
    do k=n+1, NMAX
      if (S(n)==S(k)) then
        rec(k)=0
      end if
    end do
    count=count+1
  end if
end do

if (rec(NMAX)<NMAX) count=count+1

write(*,*) count



deallocate(S)

end program
