while(n:?read(?-,?-,~))#~do dispterms(abs(n));