::  Display tombstone policies
::
=,  clay
:-  %say
|=  [[now=@da eny=@uvJ bec=beak] ~ ~]
:-  %tang
=+  .^(=cone %cx /(scot %p p.bec)//(scot %da now)/domes)
%-  flop  ^-  tang
%-  zing
%+  turn  ~(tap by cone)
|=  [[=ship =desk] foam]
:-  leaf+"{<ship>}/{<desk>}:"
%+  turn  ~(tap of nor)
|=  [=path keep=?]
leaf+"  {<path>}: {<keep>}"