/-  hood
:-  %say
|=  $:  [now=@da eny=@uvJ bec=beak]
        $:  =desk
            arg=(list [? dude:gall])
        ==
        liv=_&
    ==
:-  %kiln-rein
:-  desk
=+  .^(=cone:clay %cx /(scot %p p.bec)//(scot %da now)/domes)
%+  roll  arg
|:  [*[on=? =dude:gall] rein=ren:(~(got by cone) [p.bec desk])]
(~(put by rein) dude on)