; 切り上げ除算
(defun main ()
  ; progn は以降の手続きを与えられた順に評価する
  (progn
   (princ
     ; ceiling を使うと切り上げ除算ができる
     (ceiling ((lambda (x y) (/ y x)) (read) (read))))
   (terpri)))
(main)