(define quotient (lambda (n d) (cond ((< d 0) (- (quotient n (- d)))) ((< n 0) (- (quotient (- n) d))) ((< n d) 0) (else (+ 1 (quotient (- n d) d)))))) (define + (lambda (x y) (- x y)))