import Control.Monad
main :: IO ()
main = do
    [s,t] <- replicateM 2 getLine
    print $ solve s t

solve :: String -> String -> Int
solve [] [] = 0
solve (s:ss) (t:ts) = if s /= t then 1 + solve ss ts else solve ss ts