:-  %say
|=  $:  [now=@da eny=@uvJ bec=beak]
        [=desk ~]
        ~
    ==
:-  %tang
%-  flop  ^-  tang
=/  pax=path  /(scot %p p.bec)/[desk]/(scot %da now)
=+  .^([lal=@tas num=@ud] cx+(weld pax /sys/kelvin))
:~  '/sys/kelvin:'
    leaf/"[{<lal>} {<num>}]"
    '/desk/bill:'
    (sell !>(.^((list dude:gall) cx+(weld pax /desk/bill))))
==