(let* ((a (read)) (b (read))) (print (div (+ (- a 1) b) a)))