mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 18:31:44 +03:00
15 lines
331 B
Plaintext
15 lines
331 B
Plaintext
/- 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)
|