program lecsic1;
 {$apptype console}
 var n,i,k:integer;
 	x,y:array [1..100] of integer;
 function next:boolean;
 var k,j,temp:integer;
 	found:boolean;
 	begin
 i:=n;
 found:=false;
 while (not found)and(i>1)do
 begin
 found:=x[i-1]<x[i];
 if(not found)then i:=i-1 else k:=i-1;
 end;

 if found then begin
               i:=n;
                while x[i]<=x[k] do i:=i-1;
                 temp:=x[i];
                 x[i]:=x[k];
                 x[k]:=temp;

  i:=k+1;
  j:=n;
  while i<j do
  	begin
  temp:=x[j];
  x[j]:=x[i];
  x[i]:=temp;
  i:=i+1;
  j:=j-1;
  	end;
  end;
  next:=found;
  end;

  begin
  write('n=');
  readln(n);
  for i:=1 to n do x[i]:=i;
  for i:=1 to n do read(y[i]);

  k:=1;
  while next do begin   for i:=1 to n do write(y[x[i]],' ');
  writeln;
  k:=k+1;
  end;
  write('k=',k);
  readln;
  readln;
  end.