(defvar |scanKeyWords|)
(format t "before scanKeyWords ~%")
(force-output *standard-output*)


(SETQ |scanKeyWords|
          (LIST (LIST "add" 'ADD)
                (LIST "and" 'AND)
                (LIST "break" 'BREAK)
                (LIST "by" 'BY)
                (LIST "case" 'CASE)
                (LIST "default" 'DEFAULT)
                (LIST "define" 'DEFN)
                (LIST "do" 'DO)
                (LIST "else" 'ELSE)
                (LIST "exit" 'EXIT)
                (LIST "export" 'EXPORT)
                (LIST "for" 'FOR)
                (LIST "free" 'FREE)
                (LIST "from" 'FROM)
                (LIST "has" 'HAS)
                (LIST "if" 'IF)
                (LIST "import" 'IMPORT)
                (LIST "in" 'IN)
                (LIST "inline" 'INLINE)
                (LIST "is" 'IS)
                (LIST "isnt" 'ISNT)
                (LIST "iterate" 'ITERATE)
                (LIST "local" '|local|)
                (LIST "macro" 'MACRO)
                (LIST "mod" 'MOD)
                (LIST "or" 'OR)
                (LIST "pretend" 'PRETEND)
                (LIST "quo" 'QUO)
                (LIST "rem" 'REM)
                (LIST "repeat" 'REPEAT)
                (LIST "return" 'RETURN)
                (LIST "rule" 'RULE)
                (LIST "then" 'THEN)
                (LIST "where" 'WHERE)
                (LIST "while" 'WHILE)
                (LIST "with" 'WITH)
                (LIST "|" 'BAR)
                (LIST "." 'DOT)
                (LIST "::" 'COERCE)
                (LIST ":" 'COLON)
                (LIST ":-" 'COLONDASH)
                (LIST "@" 'AT)
                (LIST "@@" 'ATAT)
                (LIST "," 'COMMA)
                (LIST ";" 'SEMICOLON)
                (LIST "**" 'POWER)
                (LIST "*" 'TIMES)
                (LIST "+" 'PLUS)
                (LIST "-" 'MINUS)
                (LIST "<" 'LT)
                (LIST ">" 'GT)
                (LIST "<=" 'LE)
                (LIST ">=" 'GE)
                (LIST "=" 'EQUAL)
                (LIST "~=" 'NOTEQUAL)
                (LIST "~" '~)
                (LIST "^" 'CARAT)
                (LIST ".." 'SEG)
                (LIST "#" '|#|)
                (LIST "&" 'AMPERSAND)
                (LIST "$" '$)
                (LIST "/" 'SLASH)
                (LIST "\\" 'BACKSLASH)
                (LIST "//" 'SLASHSLASH)
                (LIST "\\\\" 'BACKSLASHBACKSLASH)
                (LIST "/\\" 'SLASHBACKSLASH)
                (LIST "\\/" 'BACKSLASHSLASH)
                (LIST "=>" 'EXIT)
                (LIST ":=" 'BECOMES)
                (LIST "==" 'DEF)
                (LIST "==>" 'MDEF)
                (LIST "->" 'ARROW)
                (LIST "<-" 'LARROW)
                (LIST "+->" 'GIVES)
                (LIST "(" '|(|)
                (LIST ")" '|)|)
                (LIST "(|" '|(\||)
                (LIST "|)" '|\|)|)
                (LIST "[" '[)
                (LIST "]" '])
                (LIST "[_]" '[])
                (LIST "{" '{)
                (LIST "}" '})
                (LIST "{_}" '{})
                (LIST "[|" '|[\||)
                (LIST "|]" '|\|]|)
                (LIST "[|_|]" '|[\|\|]|)
                (LIST "{|" '|{\||)
                (LIST "|}" '|\|}|)
                (LIST "{|_|}" '|{\|\|}|)
                (LIST "<<" 'OANGLE)
                (LIST ">>" 'CANGLE)
                (LIST "'" '|'|)
                (LIST "`" 'BACKQUOTE)))

(format t "|scanKeyWords| ~S~%" |scanKeyWords|)
(force-output *standard-output*)

