while(n:?read(?-,?-,~))#~do dispterms(?integer\-length(n)-1);