s=122 do i=3 to 6667 do substr(s,i,1) s=s""2-i//2 end end say s