(define (which-floor p)
    (if (= 0 (mod (car p) (cadr p)))
        (+ 1 (/ (car p) (cadr p)))
        (ceiling (/ (car p) (cadr p)))))
    


(print (which-floor (map string->number (string-split (read-line) " "))))