readInt :: String -> Int
readInt = read

main = do
	[x, y] <- fmap (map readInt . words) getLine
	print $ head $ filter (\r -> r * r > 4 * (x * x + y * y)) [0..]