   ;[var]
   ;(lookup-variable var global-env)
   [var env]
-  (js/console.log "the var is " var)
   (let [new-var (keyword var)]
     (or (new-var (:frames @env))
         (new-var @env))))

  (list? exp))

(defn operator [exp]
  (js/console.log "the first of exp is" (first exp))
  (first exp))

(defn operands [exp]

        (variable? exp) (lookup-variable exp env)
        (lookup? exp) (eval-lookup exp env)
        (lambda? exp) (do
                        (make-proc (lambda-params exp) (lambda-body exp) env))
        (application? exp) (my-apply (my-eval (operator exp) env)
                                     (eval-sub-exps (operands exp) env))
