1 eq [false] [true] [false] cmp
2 gt [true] [false] [false] cmp
3 lt [false] [false] [true] cmp
4 neq [true] [false] [true] cmp
5 le [false] [true] [true] cmp
6 ge [true] [true] [false] cmp
9 && nulco [nullary [false]] dip branch
11 || nulco [nullary] dip [true] branch
15 abs dup 0 < [] [neg] branch
16 anamorphism [pop []] swap [dip swons] genrec
18 app2 [grba swap grba swap] dip [infrst] cons ii
20 appN [grabN] codi map reverse disenstacken
22 average [sum] [size] cleave /
30 cmp [[>] swap] dipd [ifte] ccons [=] swons ifte
35 disenstacken swaack pop
37 down_to_zero [0 >] [dup --] while
43 enstacken stack [clear] dip
45 flatten <{} [concat] step
48 gcd true [tuck mod dup 0 >] loop pop
49 genrec [[genrec] ccccons] nullary swons concat ifte
50 grabN <{} [cons] times
53 ifte [nullary] dipd swap branch
55 infra swons swaack [i] dip swaack
57 make_generator [codireco] ccons
60 not [true] [false] branch
62 null [] concat bool not
63 nullary [stack] dinfrirst
73 product 1 swap [*] step
75 range [0 <=] [-- dup] anamorphism
76 range_to_zero unit [down_to_zero] infra
87 shift uncons [swons] dip
89 size [pop ++] step_zero
90 small dup null [rest null] [pop true] branch
91 spiral_next [[[abs] ii <=] [[<>] [pop !-] ||] &&] [[!-] [[++]] [[--]] ifte dip] [[pop !-] [--] [++] ifte] ifte
92 split_at [drop] [take] clop
93 split_list [take reverse] [drop] clop
96 step_zero 0 roll> step
103 take <<{} [shift] times pop
108 uncons [first] [rest] cleave
111 unstack [[] swaack] dip swoncat swaack pop
113 while swap nulco dupdipd concat loop
116 _step0 _step1 [popopop] [_stept] branch
117 _step1 [?] dipd roll<
118 _stept [uncons] dipd [dupdipd] dip x
120 _times0 _times1 [popopop] [_timest] branch
121 _times1 [dup 0 >] dipd roll<
122 _timest [[--] dip dupdipd] dip x
123 map [_map0] cons [[] [_map?] [_mape]] dip tailrec
126 _map0 [_map1] dipd _map2
128 _map2 [infrst] cons dipd roll< swons
129 _\/_ [not not] [not] branch
130 /\ [not not] ii [pop false] [] branch
131 \/ [not not] ii [] [pop true] branch