(use srfi-42)(while(print(sum-ec(:\(read-line))(: b"06889")(if(eq?\ b))1)))