gistfile1.txt

#lang racket



(module foo ragg/sexp/lang
  rule-1: "0"+ || rule-2
  rule-2: "1"
  )

(require (prefix-in test: (submod "." foo)))

(test:parse '("0" "0" "0"))
(test:parse '("0" "0"))
(test:parse '("1"))