while ~sep_by:(char ',') ~while_:(is_not (char 'b')) (char 'a'))
in
let v = P.parse_string p &quot;a,a,ab&quot; in
v = [ 'a'; 'a'; 'a' ]</code></pre></div></div><div class="odoc-spec"><div class="spec value" id="val-take_between" class="anchored"><a href="#val-take_between" class="anchor"></a><code><span><span class="keyword">val</span> take_between : <span>?sep_by:<span><span class="type-var">_</span> <a href="#type-t">t</a></span> <span class="arrow">&#45;&gt;</span></span> <span>start:<span><span class="