(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))))