(identity-comp (list x y z) (x 1) (y (* 3 x)) (z (+ x y)))
->  (1 3 4)