import Control.Applicative

main :: IO ()
main = solve <$> getLine >>= putStrLn

solve :: String -> String
solve s = as ++ f bs
  where
    l = length s
    (as, bs) = splitAt (l - 1) s
    f "0" = "1"
    f "1" = "0"