while(a:?read(?-,?-,~))#~do dispterms(2^?integer\-length(a));