1. (load “name.l”)

2. (max number1 number2 number3)

3. (+ 1 2 … 10)

4. (* 1 2 … 10)

5. (- 2 2 2)

6. (/ 3.0 5)

7. (/ 3 5)

8. (sqrt 100)

9. (expt 7 50)

10. (* 2 pi 10)

11. (* pi (expt 15 2))

12. (* pi (expt 15 2))

13. (* pi (expt 17.2 2))

14. (setf x1 number1)

(setf x2 number2)

(setf y1 number3)

(setf y2 number4)

(defun distance (a b c d) (sqrt (+ (expt (- a b) 2) (expt (- c d) 2))))

(distance x1 y1 x2 y2)