var
   a,k:array[0..7] of word;
   duyet:array[0..7] of boolean;
   i,n:byte;
   dem:word;
   f:text;
const fi='DIENKINH.INP';
fo='DIENKINH.OUT';
procedure xuat;
var ii:byte;
begin
    for ii:=1 to n do write(f,k[ii],' ');writeln(f);inc(dem);
end;
procedure hoanvi(i:byte);
var j:byte;
begin
  if i<=n then
    for j:=1 to n do
       begin
           if duyet[j]=true then
              begin
                  k[i]:=a[j];
                  duyet[j]:=false;
                  hoanvi(i+1);
                  duyet[j]:=true;
              end;
       end
  else xuat;
end;
begin
    assign(f,fi);reset(f);
    readln(f,n);
    for i:=1 to n do read(f,a[i]);
    close(f);
    assign(f,fo);rewrite(f);
    fillchar(duyet,sizeof(duyet),true);
    hoanvi(1);
    writeln(f,dem);
    close(f);
end.

uses crt;
var f:text; i,n:longint; a,b:array[1..10000000]of longint;
procedure print;
var i,d,j,kt:longint;
begin
   d:=0;
   for i:=1 to n do 
      begin 
         kt:=0;
         for j:=1 to i-1 do if b[i]=b[j] then kt:=1;
         if kt=0 then inc(d);
      end;
   if d=n then 
      begin
         for i:=1 to n do write(f,a[b[i]],' ');
         writeln(f); 
      end;
end;
function dequy(a:longint):longint;
var i:longint;
begin
   if a=n+1 then print else
         for i:=1 to n Do
            begin
               b[a]:=i;
               dequy(a+1);
            end;
end;
begin
clrscr;
   assign(f,'DIENKINH.INP');reset(f);
      readln(f,n); 
      for i:=1 to n do read(f,a[i]);
   close(f);
   assign(f,'DIENKINH.OUT');rewrite(f);
      dequy(1);
   close(f); 
end.