main = do
  inputs <- map(read::[Char]->Int) <$> words <$> getLine
  let a = head inputs
      b = last inputs
      c = foldl (*) 1 [a..b]
  judge c 

judge::Int->IO()
judge x | x == 0 = putStr "Zero"
        | x > 0 = putStr "Positive"
        | x < 0 = putStr "Negative"