/-  spider
/+  *ph-io
=,  strand=strand:spider
^-  thread:spider
|=  vase
=/  m  (strand ,vase)
;<  ~  bind:m  start-simple
;<  ~  bind:m  (raw-ship ~bud ~)
;<  ~  bind:m  (raw-ship ~marbud ~)
;<  ~  bind:m  (raw-ship ~linnup-torsyx ~)
;<  ~  bind:m  (raw-ship ~dev ~)
;<  ~  bind:m  (raw-ship ~mardev ~)
;<  ~  bind:m  (raw-ship ~mitnep-todsut ~)
;<  ~  bind:m  (send-hi ~linnup-torsyx ~mitnep-todsut)
;<  ~  bind:m  end-simple
(pure:m *vase)