/gen/show-vat.hoon

pkg/arvo/gen/show-vat.hoon

@@ -0,0 +1,15 @@
+/-  *bill
+:-  %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 !>(.^(bill cx+(weld pax /desk/bill))))
+==

pkg/arvo/mar/bill.hoon

@@ -1,10 +1,4 @@
-=>  |%
-    +$  bill  (list chit)
-    +$  chit
-      $%  [%apes duz=(list dude:gall)]
-          [%fish duz=(list dude:gall)]
-      ==
-    --
+/-  *bill
 |_  bil=bill
 ++  grow
   |%

pkg/arvo/sur/bill.hoon

@@ -0,0 +1,7 @@
+|%
++$  bill  (list chit)
++$  chit
+  $%  [%apes duz=(list dude:gall)]
+      [%fish duz=(list dude:gall)]
+  ==
+--