solve [] [] = 0
solve (x:xs) (y:ys) = i + solve xs ys
    where i = if x /= y then 1 else 0

main = do
    getLine
    ss <- getLine
    ts <- getLine
    print $ solve ss ts