var
   n : longint ;
   st , fol : array[1..100] of longint ;
   f , g : text ;

procedure tipar ;
var
    i : longint ;

 begin

  for i:=1 to n do
   write(g, st[i]) ;s
  writeln ;

 end ;

procedure back(k : longint) ;
var
   i : longint ;

 begin

  if k=n+1 then
    tipar
      else begin

         for i:=1 to n do
           if fol[i]=0 then begin
            fol[i]:=1 ;
            st[k]:=i ;
            back(k+1) ;
            fol[i]:=0 ;
          end ;
       end ;

  end ;

begin

 assign(f,'permutari.in') ;
 reset(f) ;
 readln(f,n) ;
 close(f) ;
 assign(g,'permutari.out') ;
 rewrite(g) ;
 back(1) ;
 close(g) ;

end.