urbit/pkg/arvo/gen/show-vat.hoon
2022-05-07 03:16:30 -05:00

15 lines
345 B
Plaintext

:- %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))))
==