!:
|_  [hide ~]
++  lima  |*(a=(pole) ?~(a ~ [i t]=a(+ (..$ +.a))))
++  poke-bang-args
  |*  [ost=bone @ a=[* (pole)]]
  =>  .(a ^.(lima a))
  :_(+> (turn a |*(b=_i.a [ost %pass / b])))
::
++  pour
  |=  [ost=bone * sih=*]
  ~&  bang-resp/;;(,[term term] [&1 &2]:sih)
  :_(+> [ost %pass / %g %cide %$]~)
--