(define quot
    (lambda (n d)
      (cond
        ((< d 0) (- (quot n (- d))))
        ((< n 0) (- (quot (- n) d)))
        ((< n d) 0)
        (else    (+ 1 (quot (- n d) d))))))