/-  spider
/+  strandio
=,  strand=strand:spider
^-  thread:spider
|=  arg=vase
=/  m  (strand ,vase)
^-  form:m
=+  !<([~ pax=path] arg)
?~  bem=(de-beam:format pax)
  (strand-fail:strand %path-not-beam >pax< ~)
=/  =mars:clay  [i i.t]:?>(?=([@ @ ~] s.u.bem) s.u.bem)
;<  =tube:clay  bind:m  (build-cast:strandio -.u.bem mars)
(pure:m !>(tube))