(def text1 (p/re-term #"(?i)false"))
(def text2 (p/re-term #"(?i)true"))
(def text3 (p/re-term #" "))

(def text (p/rep* (p/alt text1 text2 text3)))




(defn run-p
         [parser input]
         (let [result (p/rule-match parser
                                  #(prn "fail:" %&)
                                  #(prn "incomplete:" %&)
                                  {:remainder input})]
            (cond (nil? result) nil
                  (vector? result) (apply str result)
                  :else (str result))))