implemented digit-value procedure in (scheme char)