TRANSDUCERS> (mapcar (lambda (f) (funcall f 1))
                     (loop for x in '(1 2 3) collect (lambda (it) (+ it x))))
(4 4 4)