while(a:?read\-line(?-,?-,~))#~do dispterms(lsum(?logcount(v),v,map(eval_string,split(a,"."))));