::
::::  /hoon/curl/app
  ::
/?    310
/+  old-zuse
=,  old-zuse
::
|_  {{^ ^ ost/@ ^} $~}
++  poke  |*(a/{mark *} :_(+> [ost %hiss / `~ %wain a]~))
::++  poke-purl  |=(a/purl :_(+> [ost %hiss / %wain %purl a]~))
++  poke-tape  |=(a/tape (poke %purl (scan a auri:urlp)))
++  poke-hiss  |=(a/hiss (poke %hiss a))
++  poke-noun  poke-hiss
++  sigh-wain  |=({* a/wain} ~&(a `+>))
++  sigh-tang  |=({* a/tang} (mean a))
--