program excp2;
var
i,j:integer;
a:array[1..14] of integer;
procedure sw(i1,j1:integer);
var k1:integer;
begin
for k1:=1 to (j1-i1+1) div 2 do
begin
a[i1+k1-1]:=a[i1+k1-1]+a[j1-k1+1];
a[i1-k1+1]:=a[i1+k1-1]-a[j1-k1+1];
a[i1+k1-1]:=a[i1+k1-1]-a[j1-k1+1];
end;
end;
begin
j:=211;
for i:=1 to 14 do
begin
a[i]:=i;j:=j-1;
end;
sw(1,4);sw(5,10);
sw(11,14);sw(1,14);
for i:=1 to 14 do
begin
if j mod i=1 then write(a[i]:3);
j:=j-a[i];
end;
writeln;
end.