;uses (use loops)
(define (list->bytevector arr)
  (define flat (gu:make-bytevector (length arr) 0))
  (do-for j (0 (length arr))
          (gu:bytevector-u8-set! flat j (list-ref arr j))
          )
  flat)