urbit/pkg/arvo/sur/bill.hoon

|%
+$  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)
--
/gen/show-vat.hoon 2021-06-29 02:07:29 +03:00			`\|%`
			`+$ bill (list chit)`
			`+$ chit`
			`$% [%apes duz=(list dude:gall)]`
			`[%fish duz=(list dude:gall)]`
			`==`
gall,drum,kiln: WIP start agents in kiln 2021-07-15 09:51:03 +03:00			`::`
			`++ 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)`
/gen/show-vat.hoon 2021-06-29 02:07:29 +03:00			`--`