Macro Aprog1

Part of:

package metabang.utilities
( aprog1 < first > &body < rest > )

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