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;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).