ata-language="janet">(<span class="mdzsyn-coresym">defn</span> <span class="mdzsyn-symbol">replacer</span>
 <span class="mdzsyn-string">"Creates a peg that replaces instances of patt with subst."</span>
 [<span class="mdzsyn-symbol">patt</span> <span class="mdzsyn-symbol">subst</span>]
 (<span class="mdzsyn-coresym">peg/compile</span> ~(<span class="mdzsyn-coresym">%</span> (<span class="mdzsyn-symbol">any</span> (<span class="mdzsyn-coresym">+</span> (<span class="mdzsyn-coresym">/</span> (<span class="mdz