(define-values (s f)
 (apply values (map string->number (string-split (read-line) " "))))

(print (+ 1 (floor (/ s f))))