sum(dispterms(sum((d:mod(n,a)*10^a/10,n:fix(n/a),d),a,1,7)),n,0,1000);