mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 08:32:39 +03:00
24 lines
358 B
Plaintext
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)
|
|
--
|