procedure gnat.io.a is x,y:integer;begin get(y);get(x);for i in 0..x*y-1 loop put(1-(i mod x+i/x)mod 2);put(character'val(32-22*(i mod x/(x-1))));end loop;end;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page