USING: math peg.ebnf sequences ;
IN: engramme-parser

EBNF: engramme
plain = [0-1] => [[ CHAR: 0 - ]]
recursive = "(" engramme* ")" => [[ second ]]
engramme = plain | recursive
;EBNF