main = do
 getLine
 s <- getLine
 t <- getLine
 print (diff s t)

diff s t = length $ filter id $ zipWith (/=) s t