|%
++  eval
  |=  [=bowl:gall =hoon]
  ^-  (list tank)
  =/  fowl=[our=@p now=@da eny=@uvJ]
    :+  our.bowl
      now.bowl
    (shaz (cat 3 (mix [now eny]:bowl) %eny))
  ::
  =/  subject  [fowl ..zuse]
  =/  minted=(each [=type =nock] (list tank))
    %-  mule  |.
    (~(mint ut -:!>(subject)) %noun hoon)
  ?:  ?=(%| -.minted)  p.minted
  =/  =toon
    (mock [subject nock.p.minted] |=(^ ~))
  ?-  -.toon
    %0  [(sell type.p.minted p.toon) ~]
    %1  :-  leaf+".^ unsupported in chat eval"
        (turn ;;((list path) p.toon) smyt)
    %2  [leaf+"crash!" p.toon]
  ==
--