anchor.diff:      (format s "li $v0 , 5 ~%")
     (format s "syscall~%")
     (format s "move ~a , $v0~%" output))
  +
  +(defprocedure '>
  +    (format s "bge ~{~a~^,~}~%" params))
   
   (setf (gethash 'print-string *procedures*) (lambda (params)
   					     (with-output-to-string (s *text*)
  
positive.code:   (format t "The current environmnet is ~a ~%" *env*)
    (cond ((multi-exprp expr) (format t "Multi expression found: ~a~%" expr)
  	 (dolist (exp expr)
  			      (evaluate exp)))
  	((numberp expr) (temp-register-allot expr))
  	((stringp expr) (get-string-name expr))
  	((register-p expr)  expr )
  	((variablep expr) (format t "Found variable ~a~%" expr)(get-register-for-var expr))
  	((letp expr)
  	 (format t "Found a let~%")
  	 (add-frame (cadr expr))
  
negative.code:     (format s "div ~{~a~^,  ~} ~%"  params )
    (format s "mflo ~a~%" output))
  
  (defprocedure 'exit
      (format s "li $v0 ,10~%")
    (format s "syscall~%"))
  
  (defprocedure '%
      (format s "div ~{~a~^,  ~} ~%"  params )
    (format s "mfhi ~a~%") output)
  