main = do
  x <- fmap (\n->read n ::Int) getLine
  print ((x + 1) * (1 - x))