(define (string->byte-vector str)
(let ((vec (make-byte-vector 0 0)))
(do ((i 0 (+ i 1)))
((= i (string-length str)) vec)
(byte-vector-set! vec (char->integer (string-ref str i))))))