;; Supported by core PLT:
(module |38| mzscheme
  (provide (rename write write-with-shared-structure)
           (rename read read-with-shared-structure)))