(defvar total 20)
(defvar result 1)
(loop for i from 1 to 5 by 1 do
  (if (and (> (* i 2) 5)
           (= (- i 1) 2))
      (setf result (* result i))
      (setf result (/ result 1)))
  (setf total (- total i)))
(format t "result = ~a~%" result)
(format t "total = ~a~%" total)

(format t "~a" (- 1 2))
(terpri)

(defvar x 10)
(defvar y 5.5)
(format t "~a" (+ x y))
(terpri)
(if (> x 5) (format t "greater") (format t "smaller"))
(terpri)

(defvar z 3)
(defvar y 1)
(setf y (* z 2)) ; This is a comment. z becomes 6
(format t "~a" y)
(terpri)
(+ y 1 2)
(- y 1 2 (+ .5 .5))
(* y 1 2 3 4)
(format t "~a" (/ y 1 2 3 4))
(terpri)

(defvar k)
(loop for k from 1 to 10 by 2 do (format t "Printing k: ~a~%" k))

(defun named_function (arg1 arg2 arg3)
   (format t "~a" arg3))
(named_function 1 2 3.5)