not' :: String -> String not' s | s == "0" = "1" | s == "1" = "0" main :: IO () main = getLine >>= print . not'