procedure gnat.io.a is
x:integer;begin
get(x);while x>=0 loop
put(x);new_line;x:=x-1;x:=x-10**(x'img'length-2)+1;end loop;end;