mirror of
https://github.com/urbit/shrub.git
synced 2024-12-04 14:58:10 +03:00
11 lines
301 B
Plaintext
11 lines
301 B
Plaintext
!:
|
|
:::: /hoon
|
|
::
|
|
|_ [[^ ^ ost=@ ^] ~]
|
|
++ poke |*(a=[mark *] :_(+> [ost %hiss / %wain a]~))
|
|
::++ poke-purl |=(a=purl :_(+> [ost %hiss / %wain %purl a]~))
|
|
++ poke-noun |=(a=tape (poke %purl (scan a auri:epur)))
|
|
++ sigh-wain |=([* a=wain] ~&(a `+>))
|
|
++ sigh-tang |=([* a=tang] (mean a))
|
|
--
|