Wart unconsciously got this right (compose is ^):
wart> (wt-transform 'a^b.c) (call* (compose* a b) c)