::  Add rule to tombstone policy
::
:-  %say
|=  [[now=@da eny=@uvJ bec=beak] [=ship =desk =path keep=? ~] ~]
:-  %helm-pass
=+  .^(=cone:clay %cx /(scot %p p.bec)//(scot %da now)/domes)
=/  =norm:clay
  ?~  got=(~(get by cone) ship desk)
    *norm:clay
  nor.u.got
[%c %tomb %norm ship desk (~(put of norm) path keep)]