Dwarf Home

var n0,n,n1,n2:int64;
    i,j,ok:longint;
    f:boolean;
    s1,s2,s:string;
    ans:array[0..25] of int64;
    l:array[0..10] of longint;
begin
  while not eoln do begin
    readln(n);
    n0:=n;
    fillchar(ans,sizeof(ans),0);
    f:=false;
    while f=false do begin
      str(n,s1);
      fillchar(l,sizeof(l),0);
      for i:=1 to length(s1) do begin
        val(s1[i],l[10],ok);
        inc(l[l[10]]);
      end;
      s1:='';
      for i:=0 to 9 do
        for j:=1 to l[i] do begin
          str(i,s);
          s1:=s1+s;
        end;
      s2:='';
      for i:=length(s1) downto 1 do s2:=s2+s1[i];
      val(s1,n1,ok);
      val(s2,n2,ok);
      n:=abs(n1-n2);
      inc(ans[0]);
      ans[ans[0]]:=n;
      for j:=1 to ans[0]-1 do
        if (ans[j]=n) and (ans[0]-1<>0) then begin
          f:=true;
          break;
        end;
    end;
    dec(ans[0]);
{    for i:=j to ans[0]-2 do write(ans[i],' ');
    write(ans[ans[0]-1]);}
    if ans[ans[0]]=n0
      then begin
             if ans[0]=2 then write(n0)
                         else begin
                           write(n0,' ');
                           for i:=j to ans[0]-2 do write(ans[i],' ');
                           write(ans[ans[0]-1]);
                         end;
           end
      else begin
             for i:=j to ans[0]-1 do write(ans[i],' ');
             write(ans[ans[0]])
           end;
 
    writeln;
  end;
end.