Plaster

(import (rnrs bytevectors)) (define (bytevector-fold f init bv) (let loop ((i 0) (accum init)) (if (= i (bytevector-length bv)) accum (loop (1+ i) (f (bytevector-u8-ref bv i) accum))))) (display (bytevector-fold + 0 #vu8(1 2 3 4 5))) (newline)