(module f
  (*)
  (import scheme)
  (import chicken)
  (import (only vector-lib vector-index))
  (import srfi-42 srfi-69)

  (define-record frame
    data    ; vector of vectors
    names   ; vector of names of each column
    results ; vector of hashtable of statistics
    )

  (define (new-frame)
    (make-frame (vector) (vector) (vector)))

  (define (get-col-index df col-ref)
    (vector-index (lambda (x) (equal? col-ref x)) (frame-names df)))
 
  ) ;; end-module

(module f
  (*)
  (import scheme)
  (import chicken)
  (require-library srfi-42 srfi-69 vector-lib)
  (import (only vector-lib vector-index) srfi-42 srfi-69)

  (define-record frame
    data    ; vector of vectors
    names   ; vector of names of each column
    results ; vector of hashtable of statistics
    )

  (define (new-frame)
    (make-frame (vector) (vector) (vector)))

  (define (get-col-index df col-ref)
    (vector-index (lambda (x) (equal? col-ref x)) (frame-names df)))
 
  )