urbit/pkg/base-dev/sur/bill.hoon
2021-08-10 16:13:27 +03:00

24 lines
358 B
Plaintext

|%
+$ bill (list chit)
+$ chit
$% [%apes duz=(list dude:gall)]
[%fish duz=(list dude:gall)]
==
::
++ read-apes
|= =bill
^- (list dude:gall)
?~ bill ~
?: ?=(%apes -.i.bill)
duz.i.bill
$(bill t.bill)
::
++ read-fish
|= =bill
^- (list dude:gall)
?~ bill ~
?: ?=(%fish -.i.bill)
duz.i.bill
$(bill t.bill)
--