/-  spider
/+  strandio
=,  strand=strand:spider
^-  thread:spider
|=  arg=vase
=/  m  (strand ,vase)
^-  form:m
=+  !<([a=mark b=mark ~] arg)
;<  =bowl:spider  bind:m  get-bowl:strandio
=/  bek=beak  [our q.byk da+now]:bowl
;<  =tube:clay  bind:m  (build-cast:strandio bek a b)
(pure:m !>(tube))