main :: IO ()
main = do
    (a, b) <- getPair
    print $ solve a b

type Pair a = (a, a)
getPair = (\(x:y:_) -> (x, y)) . map read . words <$> getLine :: Read a => IO (Pair a)

data Sign = Negative | Zero | Positive deriving Show

solve :: Int -> Int -> Sign
solve a b
  | 0 < a = Positive
  | a <= 0 && 0 <= b = Zero
  | b < 0 = if abs (b - a) `mod` 2 == 0
    then Negative
    else Positive
