while(n:?read(?-,?-,~))#~do dispterms(sum((d:mod(n,a)*10^a/10,n:fix(n/a),d),a,1,11));