(import r7rs
        srfi-1
        utf8
        srfi-69
        srfi-78
        shell
        json-abnf
        srfi-152
        (chicken port))

(define output (capture ("./gherkinexe" "--no-ast" "--no-source" "cucumber/gherkin/c/testdata/good/rule.feature")))
(define outputs (string-split (string-trim-both output) "\n"))
(define json-string (string-concatenate (list "[" (string-join outputs ", ") "]")))
(define pickle #f)
(let* ((pickles (parser json-string))
       (pickle (cdar (vector-ref pickles 0))))
  (set! pickle pickle))