USING: arrays kernel peg.ebnf sequences urls strings
combinators accessors prettyprint sequences.deep lexer parser 
quotations io.streams.string strings.parser ;
IN: jeah

EBNF: embedded-quotations
embedded-quotation = '[[' (!(']]').)* ']]'
    => [[ second "[ " " ]" swapd 3append  ]]
string = (!(embedded-quotation).)* => [[ >string unparse ]]
foo = (string|embedded-quotation)* => [[ flatten ]]
;EBNF

: I" parse-string embedded-quotations parse-lines parsed ; parsing