full tree traverse in "mark" dashboard

app/mark-dashboard.hoon

@@ -17,6 +17,7 @@
 ::
 =,  gall
 =,  ford
+=,  format
 |_  {bowl $~}
 ++  peek  _~
 ++  peer-scry-x
@@ -39,6 +40,43 @@
     $|  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
@@ -49,9 +87,24 @@
   [%bunt a]
 ::
 ++  poke-noun
-  |=  *
+  |=  a/path
-  ~&  have+list-marks
+  :_  +>
-  `+>
+  ?:  [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