; 1 + s / f => floor((s + f) / f) を求める 
(defun main ()
  (let* ((s (read))
         (f (read)))
    (princ (floor (+ s f) f))
    (terpri)))
(main)