not' :: String -> String
not' s
    | s == "0" = "1"
    | s == "1" = "0"

main :: IO ()
main = getLine >>= putStrLn . not'