(let* ((l (string-split (read-line) " "))
       (a (string->number (car l)))
       (b (string->number (cadr l)))
       (q (quotient b a)))
 (print (if (zero? (remainder b a)) q (inc! q))))