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