::  Add rule to tombstone policy
::
:-  %say
|=  [[now=@da eny=@uvJ bec=beak] [=ship =desk =path keep=? ~] ~]
:-  %helm-pass
=/  =case:clay
  ?:  =(p.bec ship)
    da+now
  =+  .^([=@ud @da] %cs /(scot %p ship)/[desk]/1/late)
  ud+ud
=+  .^(=dome:clay %cv /(scot %p ship)/[desk]/(scot case))
[%c %tomb %norm ship desk (~(put of nor.dome) path keep)]