main = do
    [n, m] <- map read . words <$> getLine
    print $ solve n m

solve :: Int -> Int -> Int
solve n m =
    if n <= m
       then 1
       else -1