Welcome to the CHICKEN Scheme pasting service

;; b.scm
(use frame)

(define (mytest)
  (let ((d (new-frame)))
    (append-col! d (vector 10 10 100 1000))
    (print (get-row d 2))
    ))
(mytest)

;; frame.scm
(module frame
  (new-frame append-col! get-col
             get-row
             set-col-names! set-col-name! get-col-names
             num-cols num-rows
             set-result! get-result clear-results!)
  (import scheme)
;;etc
)