(module io mzscheme
  (provide readline writetofile readfromfile)
  (define readline read-line)
    
  (define (writetofile fileName str)
    (let ((h (open-output-file fileName 'binary 'truncate)))
      (print str h)
      (close-output-port h)))

  (define (readfromfile fileName)
    (let ((h (open-input-file fileName 'binary)))
      (let ((str (read h)))
        (close-input-port h)
        (eval str))))
)