r:?read;while(a:r(?-,?-,~))#~do dispterms(power_mod(a,r(),r()));