mac def logname
mac def datain
mac def dataout 
mac def temploc
mac def bloat 
mac def compress 
mac def unix 
mac def retain
mac def steps 
mac def family 

capture prog drop doit
prog def doit
local i 1
while `i'<100 {
	mac def match`i'
	mac def break`i'
	local i=`i'+1
}
end
doit
exit 0