sum(a[i]:sconcat(b:?read\-line(),b,b,b),i,0,2);sum((sum(dispterms(substring(a[mod(i+j,3)],i,i+16)),j,-1,1),newline()),i,2,49);