::
::::
  ::
:-  %say
|=  $:  [now=@da eny=@uvJ bec=beak]
        [[~] =desk ~]
    ==
::
::  Create a story file for a given desk 
::
=/  our  p.bec
=?  desk  =(*^desk desk)  q.bec  :: use current desk if user didn't provide
=|  tale=(map tako:clay [@t @t])
:-  %helm-pass
[%c [%info desk %& [/story %ins story+!>(tale)]~]]