#lang r7rs
(import (except (scheme base) let let-values let*-values string-copy string-copy! string-for-each string-map string-fill! string->list))
(include "racket-primitives.sld")