main :: IO ()
main = interact $ show . solve . map read . words

solve :: [Int] -> Int
solve [n, m] = if n > m then -1 else 1