; Copyright (c) 1993-2008 by Richard Kelsey.  See file COPYING.


(define (sender)
  (values 1 2 3 4))

(define (receiver a b c d)
  (+ a (- b (* c d))))

(define (test)
  (call-with-values sender receiver))
