(module foo ()

(import chicken scheme extras)

(define foo
  (let ((buf '()))
    (lambda ()
      (if (< (random 2) 1)
          (set! buf '())
          buf))))

(define xxx (append (foo) '(1)))

)