::
::::
  ::
:-  %say
|=  $:  [now=@da eny=@uvJ bec=beak]
        [[syd=desk =aeon:clay ~] ~]
    ==
::
::  Remove a commit message to a given case on a given desk 
::
=/  our  p.bec
=/  tak  .^(tako:clay %cs /(scot %p our)/base/(scot %ud aeon)/tako/~)
=/  tale=(map tako:clay [@t @t])
  .^((map tako:clay [@t @t]) %cx /(scot %p our)/[syd]/(scot %da now)/story)
=.  tale  (~(del by tale) tak)
:-  %helm-pass
[%c [%info syd %& [/story %ins story+!>(tale)]~]]