program ex(input, output);
var a : array[1..100000] of integer;
var b0 : array[1..100000] of integer;
var b1 : array[1..100000] of integer;
var b2 : array[1..100000] of integer;
var b3 : array[1..100000] of integer;
var i,j,k,m,n,x:integer;
var i0, i1, i2, i3 : integer;
begin
  readln(n,m); {n=16, m=4}
  for i:=1 to n do a[i]:=round(random(1)*100);
  for i:=1 to n do write(a[i]:5);
  writeln;
  writeln;
  x:=1;
  for k:=1 to m do begin
    i0:=1;
    i1:=1;
    i2:=1;
    i3:=1;
    for i:=1 to n do begin
      j:=(a[i] div x) mod 4;
      case j of
        0: begin b0[i0]:=a[i]; i0:=i0+1 end;
        1: begin b1[i1]:=a[i]; i1:=i1+1 end;
        2: begin b2[i2]:=a[i]; i2:=i2+1 end;
        3: begin b3[i3]:=a[i]; i3:=i3+1 end;
      end; 
    end;
    i:=1; 
    while i<n do begin
      for j:=1 to i0-1 do begin a[i]:=b0[j]; i:=i+1 end;
      for j:=1 to i1-1 do begin a[i]:=b1[j]; i:=i+1 end;
      for j:=1 to i2-1 do begin a[i]:=b2[j]; i:=i+1 end;
      for j:=1 to i3-1 do begin a[i]:=b3[j]; i:=i+1 end;
    end;
    x:=x*4;
    for i:=1 to n do begin 
      write((a[i] div 64):2); 
      write((((a[i] div 16)) mod 4):1);
      write((((a[i] div 4)) mod 4):1);
      write((a[i] mod 4):1)
    end;
    writeln;
    readln;
  end;
  for i:=1 to n do write(a[i]:5);
  readln
end.