mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 08:32:39 +03:00
17 lines
315 B
Plaintext
17 lines
315 B
Plaintext
/- hood
|
|
:- %say
|
|
|= $: [now=@da eny=@uvJ bec=beak]
|
|
$: =desk
|
|
arg=(list [? dude:gall])
|
|
==
|
|
liv=_&
|
|
==
|
|
:- %kiln-rein
|
|
:- desk
|
|
%+ roll arg
|
|
=| =rein:hood
|
|
|: [*[on=? =dude:gall] rein(liv liv)]
|
|
?: on
|
|
rein(add (~(put in add.rein) dude))
|
|
rein(sub (~(put in sub.rein) dude))
|