dim a(2e4)
a(1)=1
a(2)=2
a(3)=2
m=4
for i=1to 1e4?a(i),"";
for j=1to a(i+2)a(m)=2-mod(i,2)
m=m+1next
next