!:
|_  [hid=hide ~]
++  poke-mv-args
  |=  [ost=bone you=ship input=path output=path ~]
  :_  +>.$
  :*  :^  ost  %pass  /mv
      :^  %c  %info  our.hid
      (furl (foal output .^(%cx input)) (fray input))
      [ost %pass / %g %cide %$]
      [ost %give %nice ~]
      %+  turn  (~(tap by sup.hid))
      |=  [ost=bone *]
      :^  ost  %give  %rush
      :-  %tang  :_  ~
      leaf/"moved"
  ==
++  peer
  |=
    *
  `+>
--