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