anarchy golf - the source code

A006530 by teebee

a.=1
do n=1
i=0
do(100-n)*(2>a.n)
i=i+n
a.i=n
end
say a.n
end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).