var n:int64;
procedure work(x:int64);
var t,k:int64;
begin
if x=1 then
begin
write('2(0)');
exit;
end;
if x=2 then
begin
write('2');
exit;
end;
if x=3 then
begin
write('2+2(0)');
exit;
end;
t:=2;
k:=0;
while t<=x do
begin
t:=t*2;
k:=k+1;
end;
write('2(');
work(k);
write(')');
if (x-t div 2<>0) then
begin
write('+');
work(x-t div 2);
end;
end;
begin
readln(n);
work(n);
end.