(define (which-floor p) (ceiling (/ (car p) (cadr p))))


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