shrub/pkg/arvo/gen/show-vat.hoon

:-  %say
|=  $:  [now=@da eny=@uvJ bec=beak]
        [=desk ~]
        ~
    ==
:-  %tang
%-  flop  ^-  tang
=/  pax=path  /(scot %p p.bec)/[desk]/(scot %da now)
=/  welt=(list [@tas @ud])
  =+  .^(=waft:clay cx+(weld pax /sys/kelvin))
  %+  sort  ~(tap in (waft-to-wefts:clay waft))
  |=  [a=weft b=weft]
  ?:  =(lal.a lal.b)
    (lte num.a num.b)
  (lte lal.a lal.b)
:~  '/sys/kelvin:'
    (sell !>(welt))
    '/desk/bill:'
    (sell !>(.^((list dude:gall) cx+(weld pax /desk/bill))))
==