anchor.diff:    (format stream "~a" *output*)
     (format t "~a" *output*)
     (close stream))
  -
  
positive.code: ;(format t "~{~a~}" *code*)
  ;;Setting up stuff with all the registers and shit
  (defparameter *number-registers* 12)
  
  
negative.code:   (cond ((numberp expr) (temp-register-allot expr) )
  	((register-p expr) expr)
  	((listp expr)
  	 (apply! (operator expr) (list-of-values (operands expr) env)))))
  
  
  (defun apply! (funct params)
    "Takes a fuction and its parameters and converts to asm"
    (funcall (gethash funct *procedures*) params)
   )
  
  (defun list-of-values (operands env)
    (if (not operands)
  