Macro Awhile

Part of:

package kmrcl
( awhile < expr > &body < body > )