program main
integer :: n,i,cnt
character*10,allocatable :: s(:)

read(*,*) n
allocate(s(n))
cnt = n
read(*,*) (s(i),i=1,n)

do i = 1,n-1
do j = i+1,n
if (s(i) == s(j)) then 
cnt = cnt -1
end if
end do
end do

if (cnt < 0) then
write(*,*) 1
else
write(*,*) cnt
end if
end program main 