macro truncate c.1-c.200 ncores mconstant k.1-k.10 column decade newcol ncores endpt mcolumn c.1-c.200 let endpt = ncores+1 let k.1 = n(c.1) brief 1 do column = 2:endpt set c.100 k.1(1) end do decade = 0:9 let newcol = 100+decade+1 if decade > 0 lag 10 c.100 c.100 endif let c.column = c.column*c.100 regr c.column 1 c.1; coef c.99. let c.newcol(column-1) = c.99(2) enddo enddo endmacro