(define-library (cuprate implementation skint)
  (import (scheme base) (srfi 128) (srfi 146 hash) (scheme write)
          (srfi 225)
          )
  (export pretty-print default-test-dto
          alist->default-dictionary)
  (begin
    (define (pretty-print obj)
      (write obj)
      (newline))
    (define default-test-dto hash-mapping-dto)
    (define (alist->default-dictionary x)
      (alist->hashmap (make-default-comparator) x))))