   
   ;; Operators, regexes
   '(
+    ;; ("-- TODO.*" . 'font-lock-warning-face)
     ("TODO" . 'font-lock-warning-face)
+    ("`.*`" . 'font-lock-doc-face)
+    ("?=" . 'font-lock-function-name-face)
     ("?" . 'font-lock-warning-face)
-    ("`.*`" . 'font-lock-doc-face)
     (":=" . 'font-lock-function-name-face)
     (";" . 'font-lock-function-name-face)
+    ("," . 'font-lock-function-name-face)
     ("=" . 'font-lock-function-name-face)
     ("(" . 'font-lock-type-face)
     (")" . 'font-lock-type-face)

    "VectorSpace" "Scalar" "Vector" "LinearMap" "Neg" "Scale" "AddV" "AddS" "Norm" "InnerProd" "Determinant" "Apply" "In" "From" "Not"

    ;; RA reserved words
    "Set" "Reals" "Real" "Point" "Function" "Interval" "OpenInterval" "ClosedInterval" "LeftClopenInterval" "RightClopenInterval" "CreateInterval" "CreateOpenInterval" "CreateClosedInterval" "CreateLeftClopenInterval" "CreateRightClopenInterval" "CreateFunction" "Pt" "union" "intersection" "derivativeAtP" "derivativeOverD" "integral" "apply" "compose" "Bounded" "LeftBounded" "RightBounded" "Unbounded" "Compact" "Disconnected" "Degenerate" "Empty" "Continuous" "Discontinuous" "Differentiable" "Integrable" "Invertible" "Monotonic" "Decreasing" "Increasing" "In" "In2" "Subset" "LessThan" "ClosedEnd" "OpenEnd" 

    ;; Style reserved words
    "with" "where" "LOCAL" "ensure" "encourage" "override" "delete" "OPTIMIZED" "List"

    ("$.*$" . 'font-lock-variable-name-face)
    (":=" . 'font-lock-variable-name-face)
    ("=" . 'font-lock-variable-name-face)
    ("(" . 'font-lock-type-face)
    (")" . 'font-lock-type-face)
    ;; ("(.*)" . 'font-lock-variable-name-face)
    )

