; super digit multiply and divide
(lambda (b) (cons (lambda (x y d) (let* ((n (+ (* b x) y)) (r (quotient n b)))
  (cons r (- n (* r b)))))
     (lambda (x y) (let ((p (* x y))) (cons (quotient p b) (modulo p b))))))
