main = putStrLn =<< f <$> getLine

f :: String -> String
f s | s == "0"  = "1"
    | otherwise = "0"