           (constantly t)
     :object-value         #'report-member
     :end-of-object        #'report-pop
     :aggregate-scope      (list 'level 'count))
  (json:decode-json-from-string
    "{\"foo\": [10, 20, 50], \"bar\": true}"))
</pre>
<pre class="output">beginning of aggregate</pre>
<pre class="output">	beginning of aggregate</pre>
<pre class="output">		token: #\f</pre>
<pre class="output">		token: #\o</pre>
<pre class="output">		token: #\o</pre>
<pre class="output">	end of aggregate</pre>
<pre cla