(import r7rs
        srfi-1
        utf8
        srfi-69
        srfi-78
        shell
        medea
        srfi-123
        srfi-152
        srfi-197
        (chicken port))

(define pickle
  (chain (capture ("./gherkinexe" "--no-ast" "--no-source" "cucumber/gherkin/c/testdata/good/rule.feature"))
         (string-trim-both _)
         (string-split _ "\n")
         (string-join _ ", ")
         (list "[" _ "]")
         (string-concatenate _)
         (with-input-from-string _ read-json)))