p:dispterms;r:?read\-line;m:substring;a:r();p(a);sum(p(sconcat(h:m(s:r(),1,2),smake(b-2," "),h,ssubst(""," ",m(s,2,b)))),i,3,b:slength(a));p(a);