and, or (Boolean ops).

"not not" serves as a kind of type-checking identity function. "not"
will error out on non-Boolean values, or the absence of a second arg.
This commit is contained in:
Simon Forman 2023-02-09 07:52:50 -08:00
parent 66f47f8e36
commit 101a0241d3
6 changed files with 376 additions and 351 deletions

View File

@ -14,6 +14,8 @@ struct dict_entry;
"<>", def_neq "<>", def_neq
"<=", def_le "<=", def_le
">=", def_ge ">=", def_ge
"&", def_and
"|", def_or
"%", tdiv_r "%", tdiv_r
mod, tdiv_r mod, tdiv_r
*, mul *, mul

View File

@ -19,6 +19,8 @@ struct dict_entry;
"<>", def_neq "<>", def_neq
"<=", def_le "<=", def_le
">=", def_ge ">=", def_ge
"&", def_and
"|", def_or
"%", tdiv_r "%", tdiv_r
mod, tdiv_r mod, tdiv_r
*, mul *, mul
@ -168,3 +170,5 @@ _map0, def__map0
_map1, def__map1 _map1, def__map1
_map2, def__map2 _map2, def__map2
xor, def_xor xor, def_xor
and, def_and
or, def_or

View File

@ -134,6 +134,8 @@ JoyList def__map0_body;
JoyList def__map1_body; JoyList def__map1_body;
JoyList def__map2_body; JoyList def__map2_body;
JoyList def_xor_body; JoyList def_xor_body;
JoyList def_and_body;
JoyList def_or_body;
/* /*
@ -266,6 +268,8 @@ init_defs(void)
def__map1_body = text_to_expression("stackd shift"); def__map1_body = text_to_expression("stackd shift");
def__map2_body = text_to_expression("[infrst] cons dipd roll< swons"); def__map2_body = text_to_expression("[infrst] cons dipd roll< swons");
def_xor_body = text_to_expression("[not not] [not] branch"); def_xor_body = text_to_expression("[not not] [not] branch");
def_and_body = text_to_expression("[pop false] [not not] branch");
def_or_body = text_to_expression("[not not] [pop true] branch");
} }
@ -395,3 +399,5 @@ void def__map0(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression)
void def__map1(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def__map1_body, expression); } void def__map1(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def__map1_body, expression); }
void def__map2(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def__map2_body, expression); } void def__map2(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def__map2_body, expression); }
void def_xor(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_xor_body, expression); } void def_xor(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_xor_body, expression); }
void def_and(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_and_body, expression); }
void def_or(__attribute__((unused)) JoyListPtr stack, JoyListPtr expression) { push_quote_onto_expression(def_or_body, expression); }

View File

@ -125,3 +125,5 @@ void def__map0(JoyListPtr stack, JoyListPtr expression);
void def__map1(JoyListPtr stack, JoyListPtr expression); void def__map1(JoyListPtr stack, JoyListPtr expression);
void def__map2(JoyListPtr stack, JoyListPtr expression); void def__map2(JoyListPtr stack, JoyListPtr expression);
void def_xor(JoyListPtr stack, JoyListPtr expression); void def_xor(JoyListPtr stack, JoyListPtr expression);
void def_and(JoyListPtr stack, JoyListPtr expression);
void def_or(JoyListPtr stack, JoyListPtr expression);

View File

@ -119,4 +119,6 @@ _mape popd reverse
_map0 [_map1] dipd _map2 _map0 [_map1] dipd _map2
_map1 stackd shift _map1 stackd shift
_map2 [infrst] cons dipd roll< swons _map2 [infrst] cons dipd roll< swons
xor [not not] [not] branch xor [not not] [not] branch
and [pop false] [not not] branch
or [not not] [pop true] branch

View File

@ -36,7 +36,7 @@
#line 13 "KEYWORDS.txt" #line 13 "KEYWORDS.txt"
struct dict_entry; struct dict_entry;
#include <string.h> #include <string.h>
/* maximum key range = 304, duplicates = 0 */ /* maximum key range = 294, duplicates = 0 */
#ifdef __GNUC__ #ifdef __GNUC__
__inline __inline
@ -50,32 +50,32 @@ keyword_hash (register const char *str, register size_t len)
{ {
static const unsigned short asso_values[] = static const unsigned short asso_values[] =
{ {
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 5, 305, 305, 305, 80, 10, 305, 295, 295, 295, 140, 295, 295, 295, 105, 90, 295,
305, 305, 60, 75, 305, 25, 305, 30, 55, 65, 295, 295, 100, 85, 295, 70, 295, 30, 15, 45,
15, 40, 305, 305, 305, 305, 305, 305, 305, 305, 35, 20, 295, 295, 295, 295, 295, 295, 295, 295,
10, 105, 0, 45, 305, 305, 305, 305, 305, 305, 125, 25, 0, 80, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 20, 305, 295, 295, 295, 295, 295, 295, 295, 295, 0, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 70, 305, 60, 70, 0, 295, 295, 295, 295, 295, 15, 295, 100, 10, 0,
5, 30, 40, 100, 40, 15, 305, 5, 40, 60, 5, 30, 40, 110, 5, 15, 295, 5, 40, 60,
0, 15, 0, 85, 70, 30, 25, 0, 115, 80, 0, 15, 0, 85, 70, 30, 25, 0, 95, 35,
20, 5, 20, 40, 0, 0, 305, 305, 305, 305, 20, 85, 0, 0, 75, 0, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 295, 295, 295, 295, 295, 295, 295, 295, 295, 295,
305, 305, 305, 305, 305, 305 295, 295, 295, 295, 295, 295
}; };
register unsigned int hval = len; register unsigned int hval = len;
@ -99,11 +99,11 @@ in_word_set (register const char *str, register size_t len)
{ {
enum enum
{ {
TOTAL_KEYWORDS = 156, TOTAL_KEYWORDS = 160,
MIN_WORD_LENGTH = 1, MIN_WORD_LENGTH = 1,
MAX_WORD_LENGTH = 14, MAX_WORD_LENGTH = 14,
MIN_HASH_VALUE = 1, MIN_HASH_VALUE = 1,
MAX_HASH_VALUE = 304 MAX_HASH_VALUE = 294
}; };
static const struct dict_entry wordlist[] = static const struct dict_entry wordlist[] =
@ -111,377 +111,386 @@ in_word_set (register const char *str, register size_t len)
{""}, {""},
#line 16 "KEYWORDS.txt" #line 16 "KEYWORDS.txt"
{">", def_gt}, {">", def_gt},
#line 59 "KEYWORDS.txt" {""}, {""}, {""}, {""}, {""}, {""},
{"||", def_VERTICAL_LINE_VERTICAL_LINE}, #line 41 "KEYWORDS.txt"
{""}, {""}, {""}, {""}, {""},
#line 39 "KEYWORDS.txt"
{"dup", dup}, {"dup", dup},
{""}, {""}, {""}, {""},
#line 87 "KEYWORDS.txt" #line 89 "KEYWORDS.txt"
{"dupdip", def_dupdip}, {"dupdip", def_dupdip},
#line 19 "KEYWORDS.txt" {""}, {""},
{"<>", def_neq}, #line 87 "KEYWORDS.txt"
{""},
#line 85 "KEYWORDS.txt"
{"dupd", def_dupd}, {"dupd", def_dupd},
#line 86 "KEYWORDS.txt" #line 88 "KEYWORDS.txt"
{"dupdd", def_dupdd}, {"dupdd", def_dupdd},
{""}, {""},
#line 88 "KEYWORDS.txt" #line 90 "KEYWORDS.txt"
{"dupdipd", def_dupdipd}, {"dupdipd", def_dupdipd},
#line 44 "KEYWORDS.txt" #line 46 "KEYWORDS.txt"
{"pop", pop}, {"pop", pop},
{""}, {""},
#line 112 "KEYWORDS.txt"
{"popop", def_popop},
#line 17 "KEYWORDS.txt"
{"<", def_lt},
#line 113 "KEYWORDS.txt"
{"popopop", def_popopop},
#line 38 "KEYWORDS.txt"
{"dip", dip},
#line 110 "KEYWORDS.txt"
{"popd", def_popd},
#line 111 "KEYWORDS.txt"
{"popdd", def_popdd},
#line 114 "KEYWORDS.txt" #line 114 "KEYWORDS.txt"
{"popopd", def_popopd}, {"popop", def_popop},
#line 73 "KEYWORDS.txt"
{"b", def_b},
#line 115 "KEYWORDS.txt" #line 115 "KEYWORDS.txt"
{"popopop", def_popopop},
#line 40 "KEYWORDS.txt"
{"dip", dip},
#line 112 "KEYWORDS.txt"
{"popd", def_popd},
#line 113 "KEYWORDS.txt"
{"popdd", def_popdd},
#line 116 "KEYWORDS.txt"
{"popopd", def_popopd},
#line 117 "KEYWORDS.txt"
{"popopdd", def_popopdd}, {"popopdd", def_popopdd},
{""}, {""},
#line 80 "KEYWORDS.txt" #line 82 "KEYWORDS.txt"
{"dipd", def_dipd}, {"dipd", def_dipd},
{""}, {""},
#line 41 "KEYWORDS.txt" #line 43 "KEYWORDS.txt"
{"i", i_joyfunc}, {"i", i_joyfunc},
#line 57 "KEYWORDS.txt" {""}, {""},
{"&&", def_AMPERSAND_AMPERSAND}, #line 149 "KEYWORDS.txt"
{""},
#line 147 "KEYWORDS.txt"
{"tuck", def_tuck}, {"tuck", def_tuck},
{""}, {""},
#line 149 "KEYWORDS.txt" #line 151 "KEYWORDS.txt"
{"uncons", def_uncons}, {"uncons", def_uncons},
#line 73 "KEYWORDS.txt" #line 75 "KEYWORDS.txt"
{"ccccons", def_ccccons}, {"ccccons", def_ccccons},
{""}, {""},
#line 77 "KEYWORDS.txt" #line 79 "KEYWORDS.txt"
{"codi", def_codi}, {"codi", def_codi},
{""}, {""},
#line 155 "KEYWORDS.txt" #line 157 "KEYWORDS.txt"
{"x", def_x}, {"x", def_x},
#line 152 "KEYWORDS.txt" #line 154 "KEYWORDS.txt"
{"unstack", def_unstack}, {"unstack", def_unstack},
#line 78 "KEYWORDS.txt" #line 80 "KEYWORDS.txt"
{"codireco", def_codireco}, {"codireco", def_codireco},
#line 150 "KEYWORDS.txt" #line 152 "KEYWORDS.txt"
{"unit", def_unit}, {"unit", def_unit},
{""}, {""},
#line 37 "KEYWORDS.txt" #line 39 "KEYWORDS.txt"
{"concat", concat}, {"concat", concat},
#line 99 "KEYWORDS.txt" #line 101 "KEYWORDS.txt"
{"ii", def_ii}, {"ii", def_ii},
{""}, {""},
#line 36 "KEYWORDS.txt" #line 38 "KEYWORDS.txt"
{"cons", cons}, {"cons", cons},
#line 74 "KEYWORDS.txt"
{"ccons", def_ccons},
#line 28 "KEYWORDS.txt"
{"-", sub},
#line 106 "KEYWORDS.txt"
{"nullary", def_nullary},
#line 61 "KEYWORDS.txt"
{"<{}", def_LESS_THAN_SIGN_LEFT_CURLY_BRACKET_RIGHT_CURLY_BRACKET},
#line 79 "KEYWORDS.txt"
{"dinfrirst", def_dinfrirst},
{""}, {""},
#line 60 "KEYWORDS.txt"
{"!-", def_EXCLAMATION_MARK_HYPHEN_MINUS},
{""},
#line 76 "KEYWORDS.txt" #line 76 "KEYWORDS.txt"
{"clop", def_clop}, {"ccons", def_ccons},
#line 105 "KEYWORDS.txt"
{"nulco", def_nulco},
#line 30 "KEYWORDS.txt"
{"/", tdiv_q},
#line 81 "KEYWORDS.txt"
{"disenstacken", def_disenstacken},
#line 35 "KEYWORDS.txt"
{"cmp", cmp_joyfunc},
#line 62 "KEYWORDS.txt"
{"<<{}", def_LESS_THAN_SIGN_LESS_THAN_SIGN_LEFT_CURLY_BRACKET_RIGHT_CURLY_BRACKET},
{""}, {""},
#line 153 "KEYWORDS.txt"
{"unswons", def_unswons},
#line 104 "KEYWORDS.txt"
{"not", def_not},
#line 89 "KEYWORDS.txt"
{"enstacken", def_enstacken},
#line 148 "KEYWORDS.txt"
{"unary", def_unary},
#line 128 "KEYWORDS.txt"
{"second", def_second},
{""},
#line 127 "KEYWORDS.txt"
{"run", def_run},
#line 43 "KEYWORDS.txt"
{"loop", loop},
#line 97 "KEYWORDS.txt"
{"hypot", def_hypot},
{""},
#line 55 "KEYWORDS.txt"
{"--", def_HYPHEN_MINUS_HYPHEN_MINUS},
#line 27 "KEYWORDS.txt"
{"add", add},
#line 66 "KEYWORDS.txt"
{"app2", def_app2},
{""},
#line 132 "KEYWORDS.txt"
{"spiral_next", def_spiral_next},
{""},
#line 42 "KEYWORDS.txt"
{"inscribe", inscribe},
#line 68 "KEYWORDS.txt"
{"appN", def_appN},
{""},
#line 101 "KEYWORDS.txt"
{"infrst", def_infrst},
{""},
#line 23 "KEYWORDS.txt"
{"mod", tdiv_r},
#line 156 "KEYWORDS.txt"
{"step", def_step},
#line 146 "KEYWORDS.txt"
{"third", def_third},
#line 56 "KEYWORDS.txt"
{"?", def_QUESTION_MARK},
#line 51 "KEYWORDS.txt"
{"lt", def_lt},
#line 138 "KEYWORDS.txt"
{"stuncons", def_stuncons},
#line 84 "KEYWORDS.txt"
{"drop", def_drop},
{""},
#line 72 "KEYWORDS.txt"
{"binary", def_binary},
#line 107 "KEYWORDS.txt"
{"of", def_of},
#line 151 "KEYWORDS.txt"
{"unquoted", def_unquoted},
#line 131 "KEYWORDS.txt"
{"size", def_size},
#line 130 "KEYWORDS.txt"
{"shunt", def_shunt},
#line 92 "KEYWORDS.txt"
{"fourth", def_fourth},
#line 53 "KEYWORDS.txt"
{"le", def_le},
#line 133 "KEYWORDS.txt"
{"split_at", def_split_at},
#line 67 "KEYWORDS.txt"
{"app3", def_app3},
#line 134 "KEYWORDS.txt"
{"split_list", def_split_list},
#line 75 "KEYWORDS.txt"
{"cleave", def_cleave},
#line 143 "KEYWORDS.txt"
{"tailrec", def_tailrec},
{""},
#line 137 "KEYWORDS.txt"
{"step_zero", def_step_zero},
{""},
#line 117 "KEYWORDS.txt"
{"quoted", def_quoted},
#line 69 "KEYWORDS.txt"
{"at", def_at},
#line 93 "KEYWORDS.txt"
{"gcd", def_gcd},
#line 98 "KEYWORDS.txt"
{"ifte", def_ifte},
#line 129 "KEYWORDS.txt"
{"shift", def_shift},
{""},
#line 116 "KEYWORDS.txt"
{"product", def_product},
{""},
#line 120 "KEYWORDS.txt"
{"reco", def_reco},
#line 100 "KEYWORDS.txt"
{"infra", def_infra},
#line 24 "KEYWORDS.txt"
{"*", mul},
#line 109 "KEYWORDS.txt"
{"pm", def_pm},
#line 164 "KEYWORDS.txt"
{"map", def_map},
#line 144 "KEYWORDS.txt"
{"take", def_take},
#line 46 "KEYWORDS.txt"
{"stack", stack},
#line 136 "KEYWORDS.txt"
{"stackd", def_stackd},
#line 83 "KEYWORDS.txt"
{"down_to_zero", def_down_to_zero},
{""},
#line 65 "KEYWORDS.txt"
{"app1", def_app1},
#line 122 "KEYWORDS.txt"
{"roll>", def_roll_GREATER_THAN_SIGN},
#line 124 "KEYWORDS.txt"
{"rollup", def_rollup},
{""},
#line 125 "KEYWORDS.txt"
{"rolldown", def_rolldown},
#line 91 "KEYWORDS.txt"
{"fork", def_fork},
#line 160 "KEYWORDS.txt"
{"times", def_times},
#line 94 "KEYWORDS.txt"
{"genrec", def_genrec},
#line 145 "KEYWORDS.txt"
{"ternary", def_ternary},
{""}, {""},
#line 123 "KEYWORDS.txt"
{"roll<", def_roll_LESS_THAN_SIGN},
#line 71 "KEYWORDS.txt"
{"b", def_b},
#line 163 "KEYWORDS.txt"
{"_timest", def__timest},
#line 25 "KEYWORDS.txt"
{"mul", mul},
#line 32 "KEYWORDS.txt"
{"bool", truthy},
#line 34 "KEYWORDS.txt"
{"clear", clear},
#line 82 "KEYWORDS.txt"
{"divmod", def_divmod},
#line 90 "KEYWORDS.txt"
{"flatten", def_flatten},
{""}, {""}, {""},
#line 26 "KEYWORDS.txt"
{"+", add},
#line 50 "KEYWORDS.txt"
{"gt", def_gt},
#line 139 "KEYWORDS.txt"
{"sum", def_sum},
{""},
#line 40 "KEYWORDS.txt"
{"first", first},
#line 159 "KEYWORDS.txt"
{"_stept", def__stept},
#line 142 "KEYWORDS.txt"
{"swoncat", def_swoncat},
#line 119 "KEYWORDS.txt"
{"range_to_zero", def_range_to_zero},
#line 45 "KEYWORDS.txt"
{"rest", rest},
#line 141 "KEYWORDS.txt"
{"swons", def_swons},
#line 22 "KEYWORDS.txt"
{"%", tdiv_r},
#line 54 "KEYWORDS.txt"
{"ge", def_ge},
{""}, {""},
#line 118 "KEYWORDS.txt"
{"range", def_range},
{""}, {""}, {""}, {""},
#line 154 "KEYWORDS.txt"
{"while", def_while},
{""},
#line 161 "KEYWORDS.txt"
{"_times0", def__times0},
#line 29 "KEYWORDS.txt"
{"sub", sub},
#line 48 "KEYWORDS.txt"
{"swap", swap},
{""}, {""}, {""},
#line 170 "KEYWORDS.txt"
{"xor", def_xor},
{""},
#line 140 "KEYWORDS.txt"
{"swapd", def_swapd},
#line 47 "KEYWORDS.txt"
{"swaack", swaack},
#line 162 "KEYWORDS.txt"
{"_times1", def__times1},
#line 108 "KEYWORDS.txt"
{"pam", def_pam},
{""}, {""},
#line 157 "KEYWORDS.txt"
{"_step0", def__step0},
{""}, {""}, {""}, {""},
#line 64 "KEYWORDS.txt"
{"anamorphism", def_anamorphism},
{""},
#line 63 "KEYWORDS.txt"
{"abs", def_abs},
{""}, {""},
#line 158 "KEYWORDS.txt"
{"_step1", def__step1},
{""}, {""}, {""},
#line 126 "KEYWORDS.txt"
{"rrest", def_rrest},
{""},
#line 49 "KEYWORDS.txt"
{"eq", def_eq},
#line 52 "KEYWORDS.txt"
{"neq", def_neq},
{""}, {""}, {""}, {""}, {""},
#line 102 "KEYWORDS.txt"
{"make_generator", def_make_generator},
#line 169 "KEYWORDS.txt"
{"_map2", def__map2},
#line 15 "KEYWORDS.txt" #line 15 "KEYWORDS.txt"
{"=", def_eq}, {"=", def_eq},
#line 21 "KEYWORDS.txt" #line 21 "KEYWORDS.txt"
{">=", def_ge}, {">=", def_ge},
{""}, {""}, {""}, {""}, #line 31 "KEYWORDS.txt"
#line 18 "KEYWORDS.txt" {"sub", sub},
{"!=", def_neq}, #line 81 "KEYWORDS.txt"
{""}, {""}, {""}, {""}, {"dinfrirst", def_dinfrirst},
#line 148 "KEYWORDS.txt"
{"third", def_third},
{""}, {""}, {""},
#line 78 "KEYWORDS.txt"
{"clop", def_clop},
#line 107 "KEYWORDS.txt"
{"nulco", def_nulco},
#line 32 "KEYWORDS.txt"
{"/", tdiv_q},
#line 83 "KEYWORDS.txt"
{"disenstacken", def_disenstacken},
#line 37 "KEYWORDS.txt"
{"cmp", cmp_joyfunc},
{""},
#line 132 "KEYWORDS.txt"
{"shunt", def_shunt},
#line 94 "KEYWORDS.txt"
{"fourth", def_fourth},
#line 155 "KEYWORDS.txt"
{"unswons", def_unswons},
#line 106 "KEYWORDS.txt"
{"not", def_not},
#line 91 "KEYWORDS.txt"
{"enstacken", def_enstacken},
{""},
#line 130 "KEYWORDS.txt"
{"second", def_second},
{""},
#line 129 "KEYWORDS.txt"
{"run", def_run},
#line 45 "KEYWORDS.txt"
{"loop", loop},
{""}, {""},
#line 163 "KEYWORDS.txt"
{"_times0", def__times0},
{""},
#line 133 "KEYWORDS.txt"
{"size", def_size},
#line 131 "KEYWORDS.txt"
{"shift", def_shift},
#line 134 "KEYWORDS.txt"
{"spiral_next", def_spiral_next},
#line 85 "KEYWORDS.txt"
{"down_to_zero", def_down_to_zero},
#line 44 "KEYWORDS.txt"
{"inscribe", inscribe},
#line 34 "KEYWORDS.txt"
{"bool", truthy},
{""},
#line 103 "KEYWORDS.txt"
{"infrst", def_infrst},
#line 165 "KEYWORDS.txt"
{"_timest", def__timest},
#line 25 "KEYWORDS.txt"
{"mod", tdiv_r},
#line 158 "KEYWORDS.txt"
{"step", def_step},
#line 156 "KEYWORDS.txt"
{"while", def_while},
#line 159 "KEYWORDS.txt"
{"_step0", def__step0},
#line 53 "KEYWORDS.txt"
{"lt", def_lt},
#line 140 "KEYWORDS.txt"
{"stuncons", def_stuncons},
#line 86 "KEYWORDS.txt"
{"drop", def_drop},
{""}, {""},
#line 109 "KEYWORDS.txt"
{"of", def_of},
#line 153 "KEYWORDS.txt"
{"unquoted", def_unquoted},
{""}, {""},
#line 161 "KEYWORDS.txt"
{"_stept", def__stept},
#line 55 "KEYWORDS.txt"
{"le", def_le},
#line 135 "KEYWORDS.txt"
{"split_at", def_split_at},
#line 70 "KEYWORDS.txt"
{"appN", def_appN},
#line 136 "KEYWORDS.txt"
{"split_list", def_split_list},
#line 77 "KEYWORDS.txt"
{"cleave", def_cleave},
#line 164 "KEYWORDS.txt"
{"_times1", def__times1},
{""},
#line 139 "KEYWORDS.txt"
{"step_zero", def_step_zero},
{""},
#line 119 "KEYWORDS.txt"
{"quoted", def_quoted},
#line 144 "KEYWORDS.txt"
{"swoncat", def_swoncat},
#line 173 "KEYWORDS.txt"
{"and", def_and},
#line 100 "KEYWORDS.txt"
{"ifte", def_ifte},
#line 143 "KEYWORDS.txt"
{"swons", def_swons},
#line 74 "KEYWORDS.txt"
{"binary", def_binary},
#line 118 "KEYWORDS.txt"
{"product", def_product},
#line 29 "KEYWORDS.txt"
{"add", add},
#line 122 "KEYWORDS.txt"
{"reco", def_reco},
#line 99 "KEYWORDS.txt"
{"hypot", def_hypot},
#line 160 "KEYWORDS.txt"
{"_step1", def__step1},
#line 111 "KEYWORDS.txt"
{"pm", def_pm},
#line 95 "KEYWORDS.txt"
{"gcd", def_gcd},
#line 69 "KEYWORDS.txt"
{"app3", def_app3},
{""},
#line 84 "KEYWORDS.txt"
{"divmod", def_divmod},
#line 19 "KEYWORDS.txt"
{"<>", def_neq},
#line 63 "KEYWORDS.txt"
{"<{}", def_LESS_THAN_SIGN_LEFT_CURLY_BRACKET_RIGHT_CURLY_BRACKET},
{""},
#line 124 "KEYWORDS.txt"
{"roll>", def_roll_GREATER_THAN_SIGN},
#line 126 "KEYWORDS.txt"
{"rollup", def_rollup},
#line 108 "KEYWORDS.txt"
{"nullary", def_nullary},
#line 127 "KEYWORDS.txt"
{"rolldown", def_rolldown},
#line 93 "KEYWORDS.txt"
{"fork", def_fork},
#line 162 "KEYWORDS.txt"
{"times", def_times},
{""}, {""}, {""},
#line 68 "KEYWORDS.txt"
{"app2", def_app2},
{""},
#line 30 "KEYWORDS.txt"
{"-", sub},
{""},
#line 27 "KEYWORDS.txt"
{"mul", mul},
{""},
#line 36 "KEYWORDS.txt"
{"clear", clear},
#line 96 "KEYWORDS.txt"
{"genrec", def_genrec},
#line 145 "KEYWORDS.txt"
{"tailrec", def_tailrec},
{""},
#line 67 "KEYWORDS.txt"
{"app1", def_app1},
{""},
#line 23 "KEYWORDS.txt"
{"|", def_or},
#line 71 "KEYWORDS.txt"
{"at", def_at},
#line 141 "KEYWORDS.txt"
{"sum", def_sum},
{""},
#line 42 "KEYWORDS.txt"
{"first", first},
{""},
#line 174 "KEYWORDS.txt"
{"or", def_or},
{""},
#line 47 "KEYWORDS.txt"
{"rest", rest},
#line 102 "KEYWORDS.txt"
{"infra", def_infra},
#line 58 "KEYWORDS.txt"
{"?", def_QUESTION_MARK},
#line 52 "KEYWORDS.txt"
{"gt", def_gt},
#line 166 "KEYWORDS.txt"
{"map", def_map},
#line 146 "KEYWORDS.txt"
{"take", def_take},
#line 48 "KEYWORDS.txt"
{"stack", stack},
#line 138 "KEYWORDS.txt"
{"stackd", def_stackd},
{""}, {""},
#line 50 "KEYWORDS.txt"
{"swap", swap},
{""},
#line 28 "KEYWORDS.txt"
{"+", add},
#line 56 "KEYWORDS.txt"
{"ge", def_ge},
#line 65 "KEYWORDS.txt"
{"abs", def_abs},
{""},
#line 142 "KEYWORDS.txt"
{"swapd", def_swapd},
#line 49 "KEYWORDS.txt"
{"swaack", swaack},
#line 20 "KEYWORDS.txt" #line 20 "KEYWORDS.txt"
{"<=", def_le}, {"<=", def_le},
#line 172 "KEYWORDS.txt"
{"xor", def_xor},
{""}, {""}, {""}, {""},
#line 166 "KEYWORDS.txt" #line 22 "KEYWORDS.txt"
{"_mape", def__mape}, {"&", def_and},
{""},
#line 58 "KEYWORDS.txt"
{"++", def_PLUS_SIGN_PLUS_SIGN},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 103 "KEYWORDS.txt" #line 92 "KEYWORDS.txt"
{"neg", def_neg}, {"flatten", def_flatten},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 165 "KEYWORDS.txt" #line 150 "KEYWORDS.txt"
{"_map?", def__map_QUESTION_MARK}, {"unary", def_unary},
{""}, #line 35 "KEYWORDS.txt"
#line 70 "KEYWORDS.txt"
{"average", def_average},
{""}, {""}, {""},
#line 33 "KEYWORDS.txt"
{"branch", branch}, {"branch", branch},
{""}, {""}, {""}, #line 18 "KEYWORDS.txt"
#line 167 "KEYWORDS.txt" {"!=", def_neq},
{""}, {""},
#line 169 "KEYWORDS.txt"
{"_map0", def__map0}, {"_map0", def__map0},
{""}, {""}, {""},
#line 121 "KEYWORDS.txt" #line 121 "KEYWORDS.txt"
{"reverse", def_reverse}, {"range_to_zero", def_range_to_zero},
#line 31 "KEYWORDS.txt" {""},
#line 128 "KEYWORDS.txt"
{"rrest", def_rrest},
#line 26 "KEYWORDS.txt"
{"*", mul},
#line 51 "KEYWORDS.txt"
{"eq", def_eq},
#line 54 "KEYWORDS.txt"
{"neq", def_neq},
{""},
#line 120 "KEYWORDS.txt"
{"range", def_range},
{""}, {""}, {""}, {""},
#line 168 "KEYWORDS.txt"
{"_mape", def__mape},
#line 24 "KEYWORDS.txt"
{"%", tdiv_r},
#line 57 "KEYWORDS.txt"
{"--", def_HYPHEN_MINUS_HYPHEN_MINUS},
#line 33 "KEYWORDS.txt"
{"div", tdiv_q}, {"div", tdiv_q},
{""}, {""},
#line 95 "KEYWORDS.txt" #line 171 "KEYWORDS.txt"
{"grabN", def_grabN}, {"_map2", def__map2},
{""}, {""},
#line 135 "KEYWORDS.txt"
{"sqr", def_sqr},
{""}, {""},
#line 168 "KEYWORDS.txt" #line 147 "KEYWORDS.txt"
{"ternary", def_ternary},
{""}, {""}, {""}, {""}, {""},
#line 110 "KEYWORDS.txt"
{"pam", def_pam},
{""},
#line 170 "KEYWORDS.txt"
{"_map1", def__map1}, {"_map1", def__map1},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, #line 61 "KEYWORDS.txt"
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {"||", def_VERTICAL_LINE_VERTICAL_LINE},
{""}, {""}, {""}, {""},
#line 123 "KEYWORDS.txt"
{"reverse", def_reverse},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 96 "KEYWORDS.txt" #line 104 "KEYWORDS.txt"
{"make_generator", def_make_generator},
{""},
#line 17 "KEYWORDS.txt"
{"<", def_lt},
{""},
#line 105 "KEYWORDS.txt"
{"neg", def_neg},
#line 64 "KEYWORDS.txt"
{"<<{}", def_LESS_THAN_SIGN_LESS_THAN_SIGN_LEFT_CURLY_BRACKET_RIGHT_CURLY_BRACKET},
#line 125 "KEYWORDS.txt"
{"roll<", def_roll_LESS_THAN_SIGN},
{""},
#line 60 "KEYWORDS.txt"
{"++", def_PLUS_SIGN_PLUS_SIGN},
#line 137 "KEYWORDS.txt"
{"sqr", def_sqr},
{""},
#line 167 "KEYWORDS.txt"
{"_map?", def__map_QUESTION_MARK},
{""},
#line 72 "KEYWORDS.txt"
{"average", def_average},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 66 "KEYWORDS.txt"
{"anamorphism", def_anamorphism},
#line 59 "KEYWORDS.txt"
{"&&", def_AMPERSAND_AMPERSAND},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 62 "KEYWORDS.txt"
{"!-", def_EXCLAMATION_MARK_HYPHEN_MINUS},
{""}, {""},
#line 97 "KEYWORDS.txt"
{"grabN", def_grabN},
{""}, {""}, {""}, {""}, {""}, {""}, {""}, {""},
#line 98 "KEYWORDS.txt"
{"grba", def_grba} {"grba", def_grba}
}; };