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