(define (average a b c)
	  (let ((u (make-connector))
	        (v (make-connector)))
	       (adder a b u)
	       (multiplier c v u)
	       (constant 2 v))
	       'OK))