var n,nr,i:integer;
    a,st:array[1..100] of integer;
procedure tipar(k:integer);
var i:integer;
begin
     for i:=1 to k do write(a[st[i]],' ');
     inc(nr);
     writeln;
end;
function ev(k:integer):boolean;
var i:integer;
begin
     ev:=true;
     for i:=1 to k-1 do
          if st[i]=st[k] then
          begin
               ev:=false;
               exit;
          end;
end;
procedure gen(k:integer);
var i:integer;
begin
     if k=n+1 then tipar(k-1)
              else
               for i:=1 to n do
               begin
                    st[k]:=i;
                    if ev(k) then gen(k+1);
               end;
end;
begin
     readln(n);  nr:=0;
     for i:=1 to n do read(a[i]);
     writeln;
     gen(1);
     writeln('si numarul este ',nr);
end.