Program variace;

var n,k : integer;
    
    vysledek : array[1..1000] of integer;
    


procedure vypis;

var i : integer;

begin
    
   for i := 1 to n do write(vysledek[i], ' ');
    
   writeln;

end;



procedure generujVariace(pozice : integer);

var i : integer;

begin
    
   if pozice > n then begin vypis; exit; end;
    
   for i := 1 to k do 
    
   begin
        
      vysledek[pozice] := i;
        
      generujVariace(pozice+1);
    
   end;

end;
    


begin
  
   read(n,k);
  
   generujVariace(1);

end.