procedure gnat.io.a is
x,z:string:=" is -xwrxwrxwr";begin
for i in 0..511 loop
for j in 1..9 loop
if j<5 then put(i/8**(4-j)mod 8);end if;x(15-j):=z(5+i*2/2**j mod 2*j);end loop;put_line(x);end loop;end;