;; In Emacs, open this file in -*- Scheme -*- mode

;; Test the @block-length primitive

(@byte-write 66)

(@byte-write (@block-length (@block-alloc-0 65))) ;A
(@byte-write (@block-length (@block-alloc-1 66))) ;B