for(;$=readline(s='');print(s))for(p=0;$[p];s+=o){for(n=q=x=0;(o=$[p])-1;q++)p++
for(f=[];q-->=0?1:q+2?--m:(m=n-1,n=1,m);)n+=+$[p++]+n
for(a=b=1;b<=n;f[x++]=a=b-a)b+=a
for(;v=f[--x];)o=(n<v?0:(n-=v,1))+o}