(let ((x (read)) (y (read)))
  (print (truncate (- (/ x y) 1))))