::  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
=+  .^(=cone:clay %cx /(scot %p p.bec)//(scot %da now)/domes)
=/  =norm:clay  nor:(~(gut by cone) [ship desk] *norm)
[%c %tomb %norm ship desk (~(put of norm) path keep)]