var t:array [0..10] of byte;
    i,n,k:byte;

function valid(k:byte):boolean;
var i:byte;
  b:boolean;
Begin
b:=true;
for i:=1 to k-1 do
  if t[i]=t[k] then b:=false;
valid:=b;
end;

procedure tipar;
var i:integer;
begin
for i:=1 to n do
write(t[i],' ');
writeln;
end;

procedure back(k:byte);
var i:integer;
Begin
  if k=n+1 then tipar
  else
    for i:=1 to n do
    begin
    t[k]:=i;
    if valid(k) then back(k+1);
    end;
End;



BEGIN
readln(n);
back(1);

End.