var a:array[1..10,1..10] of integer;
    b:array[1..30] of char;
    i,j,m,x,n:integer;
begin
     read(n,m);
     for i:=1 to m*n+2 do read(b[i]);     x:=3;
     for i:=1 to n do
     begin
          for j:=1 to m do
          begin
               write(ord(b[x]),' ');
               inc(x);
               end;
          writeln;
     end;
end.