sum(printf(?t,"~c
",fix(lsum(cint(c),c,charlist(x:?read\-line()))/slength(x))),i,1,518);