import           Control.Monad
import           Data.Array.IO
import           System.IO

main :: IO ()
main = do
  s <- getLine
  t <- getLine
  print $ length $ filter (\(x, y) -> x /= y) $ zip s t
