   (regexp-opt factor-declaration-words 'symbols))
 
 (defconst factor-integer-regex
-  "\\_<-?\\(0[xob][0-9a-fA-F]+\\|[0-9]+\\)\\_>")
+  "\\_<-?\\(0[xob][0-9a-fA-F]+\\|[0-9][0-9,]*\\)\\_>")
 
 (defconst factor-raw-float-regex
   "[0-9]*\\.[0-9]*\\([eEpP][+-]?[0-9]+\\)?")

    "HINTS:"
    "initial:" "INTERSECTION:" "IMPLEMENT-STRUCTS:"
    "MACRO:" "MACRO::" "MATH:"
    "MEMO:" "MEMO:" "METHOD:"
    "PRIVATE>" "PROTOCOL:" "PROVIDE:"
    "read-only" "REQUIRE:"  "REQUIRES:"
    "SINGLETONS:" "SLOT:"

(defconst factor-symbol-definition-regex
  (syntax-and-1-symbol
   '("&" "CONSTANT" "DESTRUCTOR" "FORGET" "HELP" "LIBRARY"
     "MAIN" "MAIN-WINDOW" "STRING" "SYMBOL" "VAR")))

;; [parsing-word] [symbol-word]* ;
(defconst factor-symbols-lines-regex
