import Data.Int (Int32)

data Sign = Negative | Zero | Positive deriving (Enum, Show)

signOfProduct :: Integral a => a -> a -> Sign
signOfProduct a b
    | a <= 0 && 0 <= b = Zero
    | 0 < a && a <= b = Positive
    | a <= b && b < 0 = if even (b - a + 1) then Positive else Negative
    | otherwise = error "Unexpected"

main :: IO ()
main = do
    [a, b] <- fmap read . words <$> getLine :: IO [Int32]
    print $ signOfProduct a b
