program cifre;
var n,i:integer;
   v:array[1..20] of integer;

function test(i:integer):boolean;
var vb:boolean;
begin
vb:=true;
if (i=1) and (v[i]=0) then vb:=false;
test:=vb;
end;

procedure afisare;
var j,p:integer;
begin
p:=1;
for j:=1 to n do p:=p*v[j];
if (p=n) then  begin
  for j:=1 to n do write(v[j]:4);
writeln;
end;
end;

begin
readln(n);
for i:=1 to n do v[i]:=0;
i:=1;
while (i<>0) do begin
 while(v[i]<9) do begin
                  v[i]:=v[i]+1;
                  if (test(i)) then
                    if i=n then afisare
                    else begin
                         i:=i+1;
                         v[i]:=0;
                         end;
                   end;
  i:=i-1;
  end;
end.