mirror of
https://github.com/urbit/shrub.git
synced 2024-12-16 06:51:14 +03:00
14 lines
307 B
Plaintext
14 lines
307 B
Plaintext
!:
|
|
|_ [hide ~]
|
|
++ lima |*(a=(pole) ?~(a ~ [i t]=a(+ (..$ +.a))))
|
|
++ poke-bang-args
|
|
|* [ost=bone @ a=[* (pole)]]
|
|
=> .(a ^.(lima a))
|
|
:_(+> (turn a |*(b=_i.a [ost %pass / b])))
|
|
::
|
|
++ pour
|
|
|= [ost=bone * sih=*]
|
|
~& bang-resp/;;(,[term term] [&1 &2]:sih)
|
|
:_(+> [ost %pass / %g %cide %$]~)
|
|
--
|