(load "buffer.scm")
(load "producer.scm")

(define DONE? (lambda () (< (random 10) 3)))
(define CREATEVALUE (lambda (n) (* n n)))
(define SUSPEND (lambda () null))

(define buf (make-buffer 10))

(define prod 
  (lambda (buffer)
    (producer buf DONE? SUSPEND CREATEVALUE)))