/-  spider
/+  strandio
=,  strand=strand:spider
^-  thread:spider
|=  vase
=/  m  (strand ,vase)
^-  form:m
~&  >  %first-starting
;<  ~  bind:m  echo:strandio
(pure:m *vase)