mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-19 12:51:51 +03:00
12 lines
324 B
Plaintext
12 lines
324 B
Plaintext
/+ mean
|
|
!:
|
|
::::
|
|
::
|
|
|_ [^ ~]
|
|
++ poke |*([[a=@ @] b=[mark *]] :_(+> [a %hiss / %wain b]~))
|
|
::++ poke-purl |=([[a=@ @] b=purl] :_(+> [a %hiss / %wain %purl b]~))
|
|
++ poke-noun |=([a=from b=tape] (poke a %purl (scan b auri:epur)))
|
|
++ sigh-wain |=([^ a=wain] ~&(a `+>))
|
|
++ sigh-tang |=([^ a=tang] `_+>`(mean a))
|
|
--
|