Updated ++sa-unearth to correctly work with current subscription paths.
%- ~(rep in sup.bol)
|= {{b/bone s/ship p/path} c/(set bone)}
?. ?& (~(has in sis) s)
- ?=({@tas *} p)
- =(i.p nom)
+ ?=({$circle @tas *} p)
+ =(i.t.p nom)
==
c
(~(put in c) b)
