var x,z:string=' is -xwrxwrxwr ';i,j:0..511;begin repeat for j:=0to 3do write(i shr(9-j*3)mod 8);for j:=1to 9do x[15-j]:=z[5+i*2shr j mod 2*j];write(x);inc(i)until 1=0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).