                  (sexp-to-function-body range rest)))
 
 (def sexp-to-function-application (range expressions)
-     ((pipe
-            (list-map sexp-to-expression) 
+     ((pipe (list-map sexp-to-expression) 
             result-of-list
             (result-map (fn (expressions)
                             (FunctionApplication expressions range))))

(def sexp-to-function-type (name parameters range)
     (match parameters
            (Cons (List arg-types _) (Cons return-type Empty))
                    (result-flatmap (fn (arg-types)
                    (result-map     (fn (return-type)
                                        (FunctionType arg-types return-type range))
                                    (sexp-to-type return-type)))
                                    (sexp-to-types arg-types))
            _   (Error (MalformedTypeError range))))

(def sexp-to-complex-or-function-type (name parameters range)
     (match (string-equal? name (fn-string))


(def symbol-to-string (symbol)
     (match symbol
            (Symbol name _)
                (Result name)
            (List _ range)
                (Error  (MalformedSymbolError range))))

(typ type          (SimpleType           (list int32) range)
                   (ComplexType          (list int32) (list type) range)
