::  +desk-jam: jam ankh from desk
::
|=  $:  [now=@da eny=@uvJ bec=beak]
        [=desk ~]
        ~
    ==
:-  %jam
%-  jam
=<  ank
.^(dome:clay %cv /(scot %p p.bec)/[desk]/(scot %da now))