procedure perebor(s0, s1: string);
begin
  if length(s1) = 0 then
  begin
    writeln(s0 + s1);
    exit;
  end;
    for var i := 1 to length(s1) do
      perebor(s0 + s1[i], copy(s1, 1, i - 1) + copy(s1, i + 1, length(s1)));
end;


var
  n: integer;

begin
  readln(n);
  perebor('', IntToStr(n));
end.