for v in charlist(?read\-line())do(sum(?princ(ascii(i)),i,65,cint(v)),newline());