Plaster

(defun aa (x y) (multiple-value-prog1 (bb x y) (multiple-value-call #'cc (multiple-value-prog1 (dd x y) (ee x y)))))