(require 'uiop)
(defun read-numbers ()
  (apply #'values
	 (mapcar #'parse-integer
		 (uiop:split-string (read-line)))))

(multiple-value-bind
      (a b) (read-numbers)
  (format t "~a~%" (ceiling (/ b a))))