(???) ; 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!")))