```
,(eval (begin
- (import (chicken io)
- (chicken file)
- (chicken string)
- (chicken pathname)
- (chicken time posix)
- srfi-1 srfi-13)
(for-each eval (with-input-from-file "garden.scm" read-list))
(define (pad-string o max-len)
(let* ((s (->string o))