{ genereerib kõik s jätkamised n-tähelisteks permutatsioonideks }
procedure gen(s : string; n : integer);
var i : integer; c : char;
begin
   if length(s) = n then begin
      writeln(s);
   end else begin
      c := 'a';
      for i := 1 to n do begin
         if pos(c, s) = 0 then begin
            gen(s + c, n);
         end;
         c := succ(c);
      end;
   end;
end;

var n : integer;
begin
   readln(n);
   gen('', n);
end.