!:
::  /=main=/bin/cat/hoon
::
|=  *
|=  ape=(list path)
=-  ~[-]~
^-  gift  :-  %te
%-  zing
%+  turn  ape  |=  pax=path
^-  wain
=+  ark=;;(arch .^(%cy pax))
?~  q.ark
  ?-  r.ark
        ~
      ~[(crip "No file {(spud pax)}")]
        [[@t ~] ~ ~]
      $(pax (welp pax /[p.n.r.ark]))
        *
      ~[(crip "Multiple in {(spud pax)}")]
  ==
:-  (crip (spud pax))
(lore ;;(,@t .^(%cx pax)))