gistfile1

(defun max-min ()
  (loop with num do (setf num (read)) until (eql num 'q)
	initially (format t "Please enter numbers (q to quit): ")
	maximizing num into max
	minimizing num into min
	finally (format t "Max: ~a~%Min: ~a" max min)))

(defun pos-power (base exponent)
  (if (<= exponent 1) base
    (* base (pos-power base (decf exponent)))))