/-  hood
:-  %say
|=  $:  [now=@da eny=@uvJ bec=beak]
        [[=desk ~] ~]
    ==
:-  %tang
%+  turn  (get-apps-have:hood p.bec desk now)
|=  [=dude:gall live=?]
^-  tank
=/  liv  ?:(live "running " "archived")
[%leaf "status: {liv}  {<dude>}"]