main = do
    [a,b] <- return . map (read::String->Int) . words =<< getLine
    let chk
	 | a*b <= 0  = "Zero"
	 | otherwise = let
			v = product $ map trans [a..b]
		       in
			if v<0
			    then "Negative"
			    else "Positive"
	trans n
	  | n==0	= 0
	  | n<0		= negate 1
	  | otherwise	= 1
    putStrLn chk