/+  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))
--