Here's the current varargs version of -> in wart:
mac (transform x ... fs|thru) if no.fs x `(transform (,x -> ,car.fs) ,@cdr.fs)
(transform 3 :thru (fn(_) (_ * 2)) (fn(_) (_ + 1)))
(transform 1 2 :thru (fn(a b) (a * b)) (fn(_) (_ + 1)))
(transform 1*2 :thru (fn(_) (_ + 1)))