var
a:array[-9..9] of longint ;
b:array[-9..9] of boolean;
c:array[1..9] of char;
i,j,k,x:longint;
procedure dfs(x,k);
var i:longint;
begin
if (x=n and k=0) then
for i:=x+1 to n do
if b[i]=true then
begin
dfs(i,x+i); dfs(i,x-i);
dfs(i,x*10+i);
end; end;
begin
fillchar(b,sizeof(b),false);
for i:=-9 to 9 do
a[i]:=i;
end;
readln(n);