(???) ; Very simple feedback script (???) lambda (entry) (???) (import (chicken string) (???) (chicken time posix) (???) (chicken pretty-print)) (???) (let* ((res (with-input-from-file "feedback" read)) (???) (records (if (eof-object? res) '() res))) (???) (with-output-to-file "feedback" (???) (lambda () (???) (pretty-print (cons (list (seconds->string) (???) entry) (???) records))))) (???) (list (conc "Thanks for your feedback!")))