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;