anarchy golf - the source code

Rule 30 by yuko

character*9999s,c;read'(a)',s
do1 i=-1,len_trim(s)
c=s(i:i+2);j=c>"#".or.c==""
1 print'(a1$)',35-3*j
end

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