(define (writeToFile filename value)
  (let ((c (make-custodian (current-custodian))))
    (current-custodian c)
    (let ((of (open-output-file filename 'text 'replace)))
      (print value of)
      (custodian-shutdown-all c))))

(define (readFromFile filename)
  (let ((c (make-custodian (current-custodian))))
    (current-custodian c)
    (let* ((if (open-input-file filename 'text))
           (value (read if)))
      (custodian-shutdown-all c)
      value)))