(let* ((x (read)) (y (read)))
  (format #t "~d~%" (+ 1 (div x y))))