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)
=+  .^([lal=@tas num=@ud] cx+(weld pax /sys/kelvin))
:~  'sys.kelvin:'
    leaf/"[%{<lal>} %{<num>}]"
    'desk.bill:'
    (sell !>(.^((list dude:gall) cx+(weld pax /desk/bill))))
==