(define-library (cuprate implementation foment)
  (import (scheme base) (srfi 166) (srfi 225))
  (export pretty-print default-test-dto
          alist->default-dictionary)
  (begin
    (define (pretty-print obj)
      (show #t (pretty obj))
      (newline))
    (define default-test-dto eqv-alist-dto)
    (define (alist->default-dictionary x) x)))