var x,z:string=' is -xwrxwrxwr';i,j:word;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];writeln(x);inc(i)until i=512;end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).