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 string)* => [[ flatten ]]

;EBNF


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