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