::  Tree view recursive directory contents
::
::::  /hoon/tree/gen
  ::
/?    310
::
::::
  ::
:-  %say
|=  {^ {pax/path fla/$@($~ {$full $~})} $~}
=+  len=(lent pax)
=+  rend=?^(fla smyt |=(a/path (smyt (slag len a))))
:-  %tang  %-  flop
|-  ^-  tang
=+  ark=.^(arch cy+pax)
=-  ?~  fil.ark  -
    [(rend pax) -]
%-  zing
%+  turn
  (sort ~(tap by dir.ark) aor)
|=  {a/@t $~}
^$(pax (welp pax /[a]))