(defvar input (read-line))
(setq input (read-from-string (concatenate 'string "(" input ")")))
(defvar a (car input))
(defvar b (car (cdr input)))
(format t "~d~%" (ceiling (/ b a)))