(define (which-floor p) (if (= 0 (mod (car p) (cadr p))) (/ (car p) (cadr p)) (ceiling (/ (car p) (cadr p))))) (print (which-floor (map string->number (string-split (read-line) " "))))