solve :: [Int] -> String
solve [a,b]
  | a *	b <= 0 = "Zero"
  | a >	0 = "Positive"
  | odd $ length [a..b] = "Negative"
  | otherwise =	"Positive"

main = getLine >>= putStrLn . solve . map read . words