/- spider /+ *ph-io =, thread=thread:spider ^- imp:spider |= [=bowl:spider vase] =/ m (thread ,vase) ;< az=iid:spider bind:m start-azimuth ;< ~ bind:m (spawn az ~bud) ;< ~ bind:m (spawn az ~marbud) ;< ~ bind:m (spawn az ~linnup-torsyx) ;< ~ bind:m (spawn az ~dev) ;< ~ bind:m (real-ship az ~bud) ;< ~ bind:m (real-ship az ~marbud) ;< ~ bind:m (real-ship az ~linnup-torsyx) ;< ~ bind:m (real-ship az ~linnup-torsyx-linnup-torsyx) ;< ~ bind:m (send-hi ~bud ~linnup-torsyx-linnup-torsyx) ;< ~ bind:m (send-hi ~linnup-torsyx-linnup-torsyx ~marbud) ;< ~ bind:m (real-ship az ~dev) ;< ~ bind:m (send-hi ~linnup-torsyx-linnup-torsyx ~dev) ;< ~ bind:m (send-hi ~dev ~linnup-torsyx-linnup-torsyx) ;< ~ bind:m end-azimuth (pure:m *vase)