::
::::  /hoon/subdir/ls/gen
  ::
/?    310
|%
++  subdir
  |=  {pax/path des/(map @t $~)}
  ^-  tank
  :+  %rose  [" " `~]
  %+  turn  (sort (~(tap by des)) aor)
  |=  {kid/@ta $~}
  =+  paf=`path`/[kid]
  =-  :+  %rose  ["/" ~ ?:(dir "/" ~)]
      (turn paf |=(a/knot leaf+(trip a)))
  |-  ^-  {dir/? paf/path}
  =+  arf=.^(arch %cy (weld pax paf))
  ?^  fil.arf  
    [| paf]
  ?~  dir.arf
    [& paf]  ::  !!
  ?.  ?=({^ $~ $~} dir.arf)
    [& paf]
  $(paf (welp paf /[p.n.dir.arf]))
--