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