var w,x:integer;begin read(w);x:=1;while x*10<=w do x:=x*10;repeat writeln(w);if(w<>1)and(w=x)then x:=x div 10;dec(w,x);until w<0;end.