sum((lsum(?princ(mod(58-cint(v),10)),v,charlist(?read\-line())),newline()),i,1,9);