main :: IO ()
main = solve . map read . words <$> getLine >>= print

solve :: [Int] -> Int
solve [n,m] | n <= m = 1
            | n `mod` 2 == 0 && n `div` 2 <= m = 2
            | otherwise  = -1