on 5e6a67f help sign in
24 lines 498 B history raw
1# `:bush, $&, "bucpam", {$bush p/moss q/moss}`
3Union of two cells: one w/cellular head & other w/atomic head.
5Product: a mold which applies `p` if the head of its sample
6is a cell, `q` if the head of its sample is a cell.
8Regular form: *2-fixed*.
10Example:
11```
12~zod:dojo> =a :book({$foo p/@ud q/@ud} {$bar p/@ud})
14~zod:dojo> =b :bush({a a} a)
16~zod:dojo> (b [[%bar 33] [%foo 19 22]])
17[[%bar p=33] [%foo p=19 q=22]]
19~zod:dojo> (b [%foo 19 22])
20[%foo p=19 q=22]
22~zod:dojo> $:b
23[%bar p=0]
24```