solve :: Integral a => a -> a -> a solve a b | a < b = b - 2 | a > b = n - b - 1 where n = 2000000000 main :: IO () main = print . (\(a : b : _) -> solve a b) . map read . words =<< getLine