/-  spider
/+  *ph-io
=,  strand=strand:spider
^-  thread:spider
|=  vase
=/  m  (strand ,vase)
=/  comet  ~bosrym-podwyl-magnes-dacrys--pander-hablep-masrym-marbud
;<  az=tid:spider
  bind:m  start-azimuth
;<  ~  bind:m  (spawn az ~bud)
;<  ~  bind:m  (real-ship az ~bud)
::
;<  ~  bind:m  (spawn az ~marbud)
;<  ~  bind:m  (real-ship az ~marbud)
::
;<  ~  bind:m  (real-ship az comet)
;<  ~  bind:m  (send-hi comet ~bud)
::
;<  ~  bind:m  (spawn az ~linnup-torsyx)
;<  ~  bind:m  (real-ship az ~linnup-torsyx)
::
;<  ~  bind:m  (send-hi comet ~linnup-torsyx)
;<  ~  bind:m  (send-hi ~linnup-torsyx comet)
::
;<  ~  bind:m  end-azimuth
(pure:m *vase)