Kern parser combinator with bb

kern.clj

#!/usr/bin/env bb

(require '[babashka.deps :as deps])

(deps/add-deps '{:deps {org.blancas/kern {:git/url "https://github.com/borkdude/kern"
                                          :sha "34a8c2f0c1ec5ab3e0e9aac56e6278abc3ed5a0b"}}})

(use 'blancas.kern.core
     'blancas.kern.lexer.basic)

(declare json)

(def pair (bind [f string-lit _ colon v json]
                  (return [f v])))

(def array (brackets (comma-sep (fwd json))))

(def object (braces
             (bind [fields (comma-sep pair)]
                   (return (apply hash-map (reduce concat [] fields))))))

(def json (<|> string-lit dec-lit float-lit object array bool-lit nil-lit))

(run json "{\"fst\": \"Joe\", \"lst\": \"Hacks\",\"id\":1122}")
;;=> {"fst" "Joe", "lst" "Hacks", "id" 1122}