(define-module (gn data genotype)
  #:use-module (json)
  #:use-module (ice-9 match)
  #:use-module (ice-9 format)
  #:use-module (ice-9 iconv)
  #:use-module (ice-9 receive)
  #:use-module (ice-9 string-fun)
  ;; #:use-module (gn db sparql)
  #:use-module (dbi dbi)
  #:use-module (gn db mysql)
  #:use-module (gn data group)
  #:use-module (gn util convert)

  #:export (
            geno-inds-bxd
            ))

(define (geno-inds-bxd fn)
  (let [(js (call-with-input-file fn
              (lambda (port)
                (json->scm port))))]
    (vector->list (assoc-ref (car (vector->list (assoc-ref js "genofile"))) "sample_list"))
))