a=0 do 16 s= do 16 s=s||d2x(a%16*a,1) a=a+1 end say lower(s) end