integer::n,i,diff=0
  character*1000::S,T
  read *,n,S,T
  do i=1,n
     if(S(i:i).ne.T(i:i)) then
        diff = diff + 1
     end if
  end do
  print '(i0)', diff
end program