::  List running threads
/-  spider
:-  %say
|=  [[now=@da @ our=@p ^] ~ *]
:-  %tang
=/  tree
  .^  (list (list tid:spider))
    %gx
    /(scot %p our)/spider/(scot %da now)/tree/noun
  ==
%+  turn  tree
|=  yarn=(list tid:spider)
>`path`yarn<