(define (save-data data path)
(with-output-to-file path
(lambda ()
(write data))))

(define (load-data path)
(with-input-from-file path
(lambda () (read))))