var a, x:longint;
label m1;
begin
readln (x);
a:=20;
m1:
If x div a >0 then begin
write (a, 'x', x div a,' ');
x:=x mod a;
end;
case a of
20: begin
      a:=10;
      goto m1;
      end;
10: begin
      a:=5;
      goto m1;
      end;
5: begin
     a:=3;
     goto m1;
     end;
3: begin
     a:=1;
     goto m1;
     end;
else 
end;
end.