b0oh

(define (mceval exp env)
  (cond ((self-evaluating? exp) exp)
        ((variable? exp) (lookup-variable-value exp env))
        ((quoted? exp) (text-of-quotation exp))
        ((assignment? exp) (eval-assignment exp env))
        ((definition? exp) (eval-definition exp env))
        ((if? exp) (eval-if exp env))
        ((lambda? exp)
         (make-procedure (lambda-parameters exp)
                         (lambda-body exp)

b0oh

String.prototype.fixSpaces = function () {
  return this.replace(/\s+/g, ' ').trim();
};

var Symbol = String;

function tokenize(s) {
  return s.replace(/([()])/g, ' $1 ').fixSpaces().split(' ');
};