(define arr (array-create type-byte 19))
(bufset-u8 arr 0 255)
(bufset-u8 arr 1 127)
(bufset-u8 arr 18 1100)
(and (= (bufget-u8 arr 0) 255)
(= (bufget-u8 arr 1) 127)
(= (bufget-u8 arr 18) (mod 1100 256)))