anchor.diff:    (cond ((numberp expr) (temp-register-allot expr) )
   	((register-p expr) expr)
   	((listp expr)
  -	 (apply! (operands expr) (list-of-values (operands expr) env)))))
  +	 (apply! (operator expr) (list-of-values (operands expr) env)))))
   
   
   (defun apply! (funct params)
     "Takes a fuction and its parameters and converts to asm"
  -  (let ((output ( find-empty-t-register)))
  -    (with-output-to-string (s *output*)
  -      (format s "ADD ~{~a~^,  ~} ~%" (cons output params) ))
  -    (free-temp-register params)
  -    output))
  +  (funcall (gethash funct *procedures*) params)
  + )
   
   (defun list-of-values (operands env)
     (if (not operands)
  
positive.code:       (cons
         (evaluate (first operands) env)
         (list-of-values (rest operands) env))))
  
  
  
  
  ;(format t "Given arguments are ~&~S~&" *args*)
  (defparameter *output* (make-array 0 
  
negative.code: ;;Setting up stuff with all the registers and shit
  (defparameter *number-registers* 12)
  
  