{-# LANGUAGE ScopedTypeVariables #-}
module Main where
import Data.List
import Control.Monad

readLine :: Read a => IO [a]
readLine = map read . words <$> getLine

main :: IO ()
main = do
    s <- getLine
    t <- getLine
    print $ length [() | (a, b)<-zip s t, a/=b]