full tree traverse in "mark" dashboard
::
=, gall
=, ford
+=, format
|_ {bowl $~}
++ peek _~
++ peer-scry-x
$| v
==
::
+++ made-a-core
+ |= {a/spur @uvH b/gage}
+ :_ +>.$
+ ?> ?=([%tabl ^ ~] b)
+ =/ cur p.i.p.b
+ %- %- slog
+ ?+ -.cur !!
+ %| (flop p.cur)
+ %& ~ ::[(sell q.p.cur)]~
+ ==
+ =/ nex/(list spur)
+ =<(p ;;(,[%& %cont * p=(list spur)] q.i.p.b))
+ ?~ nex ~
+ [ost (build-core nex)]~
+::
+++ build-core
+ |= [a=spur b=(list spur)]
+ ~& >> (flop a)
+ :^ %exec a-core+a our
+ %- some
+ ^- bilk
+ :- now-beak
+ :~ %tabl
+ [[%core now-beak a] [%$ %cont !>(b)]]
+ ==
+:: =; res/results
+:: [ost %diff [%json (show-results res)]]~
+:: %- malt
+:: %+ turn p.a
+:: |= {k/gage v/gage} ^- {mark (each vase tang)}
+:: :- ?>(?=({$& $mark * @tas} k) q.q.p.k)
+:: ?- -.v
+:: $tabl !!
+:: $& [%& q.p.v]
+:: $| v
+:: ==
+::
++ build-marks
^- {beak silk}
:- now-beak
[%bunt a]
::
++ poke-noun
- |= *
- ~& have+list-marks
- `+>
+ |= a/path
+ :_ +>
+ ?: [dry=|]
+ ~&((list-cores a) ~)
+ [ost (build-core [- +]:(list-cores a))]~
+::
+++ list-cores
+ |= a/path ^- (list spur)
+ =/ sup (flop a)
+ %- sort :_ |=({a/spur b/spur} (aor (flop a) (flop b)))
+ |- ^- (list spur)
+ %- ~(rep by dir:.^(arch %cy (en-beam now-beak sup)))
+ |= [[a=knot ~] b=(list spur)] ^+ b
+ =. sup [a sup]
+ ?^ [fil:.^(arch %cy (en-beam now-beak [%hoon sup]))]
+ ~& (flop sup)
+ [sup (weld ^$ b)]
+ (weld ^$ b)
::
++ now-beak %_(byk r [%da now])
++ list-marks
