shrub/ape/curl.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))
--