var x:longint;
begin
readln (x);

If x div 20 >0 then begin 
write ('20x', x div 20,' ');
x:=x mod 20;
end;

If x div 10 >0 then begin 
write ('10x', x div 10,' ');
x:=x mod 10;
end;

If x div 5 >0 then begin 
write ('5x', x div 5,' ');
x:=x mod 5;
end;

If x div 3 >0 then begin 
write ('3x', x div 3,' ');
x:=x mod 3;
end;

If x div 2 >0 then begin 
write ('2x', x div 2,' ');
x:=x mod 2;
end;

If x >0 then begin 
write ('1x', x,' ');
end;
end.