add ->>as-> function for use with ->>

[zardoz03]

seems better and more consistent to use

(->> 1 (->>as-> i (+ i 1)))

rather than

(->> 1 ((lambda (i) (+ i 1)))

+ there's less consing of misc. closures to mimic the same functionality as -as->