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.