(bitpacket NString (size 8) (data (* 8 size) bitstring))
(define (make-nstr str)
  (let ((size (string-length str))
        (data str))
    (bitconstruct ((NString bitpacket)))))
(define nstr (make-nstr "ABC"))