(define (list->bytevector arr)
  (do ((j 0 (add1 j))
       (arr arr (cdr arr))
       (flat (gu:make-bytevector (length arr) 0) flat))
      ((null? arr) flat)
    (gu:bytevector-u8-set! flat j (car arr))))