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