! A parser for the numeration system described here ! http://instinctive.eu/articles/systeme-numeration-exotique ! (French !) ! Copyright (C) 2010 Jon Harper. ! See http://factorcode.org/license.txt for BSD license. USING: math peg.ebnf sequences ; IN: engramme-parser plain = [0-1] => [[ CHAR: 0 - ]] recursive = "(" engramme* ")" => [[ rest but-last ]] engramme = plain => [[ ]] | recursive => [[ first ]] ;EBNF