Macro Aprog1

Part of:

package anaphora
( aprog1 < first > &body < rest > )

Binds IT to the first form so that it can be used in the rest of the
forms. The whole thing returns IT.