fix jael +vent-pass recursion
=+ yez=~(tap in yen)
|- ^+ ..vent-pass
?~ yez ..vent-pass
+ =. ..vent-pass
=* d i.yez
?> ?=([[%a @ @ *] *] d)
=+ our=(slav %p i.t.i.d)
/(scot %p our)/vent-result
^- note
[%a %want who /j/(scot %p our)/vent-result %vent-result res]
+ $(yez t.yez)
::
++ extract-snap :: extract rewind point
^- snapshot
