anarchy golf - the source code

123 by 鳴神裁4.1号

a x =lt(x,5000000) x + 1 :s(a)
 date() rpos(1) rem . output
end

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