with Gnat.Io;procedure Gnat.Spitbol.C is use Io;X,Y:Integer;begin Get(x);Get(y);for I in 1..X loop Put_Line(S(I Mod 2*" 1"&Y*" 0 1")(2..Y*2));end Loop;end;