/-  spider
/+  threadio
=,  thread=thread:spider
^-  imp:spider
|=  [bowl:spider vase]
=/  m  (thread ,vase)
^-  form:m
~&  >  %first-starting
;<  ~  bind:m  echo:threadio
(pure:m *vase)