Parser.until
: ∀(A: *)
∀(until: (Parser Bool))
∀(parse: (Parser A))
(Parser (List A))
= λA λuntil λparse
(Parser.map
(List.Concatenator A)
(List A)
(List.Concatenator.build A)
(Parser.until.go A until parse λx x)
)
