func s1 s2 = length $ filter (uncurry (/=)) $ zip s1 s2

main = getContents >>= (\[_,s,t] -> print $ func s t) . lines