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