(defun walk (a b) (if (zerop(mod b a)) (floor b a) (+ 1 (floor b a)))) (defun main () (let ((A (read)) (B (read))) (format t "~A~%" (walk A B)))) (main)