 
 
 
-(def def-symbol (range)
-     (Symbol (list 100 101 102) range))
-
-(def typ-symbol (range)
-     (Symbol (list 116 121 112) range))
-
-(def fn-symbol (range)
-     (Symbol (list 102 110) range))
 
 (def type-to-sexp (type)
      (match type
             (SimpleType name range)
                 (Symbol name range)
             (FunctionType arg-types return-type range)
-                (List (Cons (fn-symbol range)
+                (List (Cons (Symbol (fn-string) range)
                       (Cons (List (types-to-sexp arg-types) range)
                       (Cons (type-to-sexp return-type) Empty))) range)
             (ComplexType name types range)


(def symbol-to-string (symbol)
     (match symbol

(def sexp-to-list-expression (expressions range)
     (match expressions
            (Cons (Symbol symbol _) rest) 
                  (match (string-equal? symbol (fn-string))
                         True
                             (sexp-to-lambda rest range)
                         False
