/-  spider, docket
/+  strandio
=,  strand=strand:spider
^-  thread:spider
|=  arg=vase
=/  m  (strand ,vase)
^-  form:m
=+  !<(jim=@ arg)
;<  =bowl:spider  bind:m  get-bowl:strandio
=/  home=path  /(scot %p our.bowl)/[q.byk.bowl]/(scot %da now.bowl)
=/  =path  /(cat 3 'backup-' (scot %da now.bowl))/noun
  ::  XX remove prints
;<  ~  bind:m  (poke-our:strandio %hood drum-put+!>([path jim]))
(pure:m *vase)