main = do
  inputs <- map(read::[Char]->Int) <$> words <$> getLine
  let a = head inputs
      b = last inputs
      -- ここででかいリストが作れなくて死ぬ
  putStr $ judge $ foldl (*) 1 [a..b]

judge::Int->String
judge x | x == 0 = "Zero"
        | mod x 2 == 0 = "Positive"
        | otherwise = "Negative"