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))

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

recnum=1
count=0
rec(:)=0

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

maxrec=maxval(rec)

if (maxrec<NMAX) then
  count=count+1
end if

write(*,*)count


deallocate(S)

end program
