diff --git a/pkg/arvo/gen/show-vat.hoon b/pkg/arvo/gen/show-vat.hoon
new file mode 100644
index 0000000000..2f2e7f725c
--- /dev/null
+++ b/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))))
+==
diff --git a/pkg/arvo/mar/bill.hoon b/pkg/arvo/mar/bill.hoon
index 6b6426ca87..60dec34533 100644
--- a/pkg/arvo/mar/bill.hoon
+++ b/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
   |%
diff --git a/pkg/arvo/sur/bill.hoon b/pkg/arvo/sur/bill.hoon
new file mode 100644
index 0000000000..bfd52b04d6
--- /dev/null
+++ b/pkg/arvo/sur/bill.hoon
@@ -0,0 +1,7 @@
+|%
++$  bill  (list chit)
++$  chit
+  $%  [%apes duz=(list dude:gall)]
+      [%fish duz=(list dude:gall)]
+  ==
+--