(defvar x)
(defvar y)
(defvar temp)
(setq temp (read-from-string (concatenate 'string "(" (read-line) ")")))

(setq x (nth 0 temp))
(setq y (nth 1 temp))
(setq y (float x))
(setq y (float y))
(defvar temp)
(defvar ans)
;(setq temp (* (sqrt (+ (* x x ) (* y y))) 2))
(setq temp (sqrt (+ (* x x 4) (* y y 4))) )
;(format t "~f~%" temp)
(setq ans (ceiling temp))

(format t "~d~%" (if (= ans temp) (+ ans 1) ans))