(define s (read)) (define k (read)) (display (- s (* (quotient s k) k))) (newline)