main = getLine >>= print . solve . map read . words solve :: [Double] -> Int solve [x, y] = truncate . (+1) . (*2) . sqrt $ x * x + y * y