/-  spider
/+  strandio
=,  strand=strand:spider
^-  thread:spider
|=  arg=vase
=/  m  (strand ,vase)
^-  form:m
=+  !<([pax=path ~] arg)
;<  bek=beak  bind:m  get-beak:strandio
;<  paz=(list path)  bind:m  (list-tree:strandio bek (flop pax))
(pure:m !>(paz))