(define-module (gn runner gemma)
  #: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)

  #:export (
            run-gemma
            ))

(define (run-gemma data-id name trait-name traits)
  (if name
      (display (string-append "WE HAVE OUR BXD DATASET " name " and trait " trait-name " for precompute!\n")))
  (display data-id)
  (display traits)
  (newline)
  ;; ---- write phenotype file
  (call-with-output-file "test.tmp"
    (lambda (port)
      (write 12 port)
      (newline port)
      (write "HELLO" port)
      ))

  ;; ---- start GEMMA precompute
  (system "gemma")
  )