(defun name (a b c)
    (format t "~a" 42)
    (terpri)
    (format t "Hello World!~%")

    (defvar x 10)
    (defvar y 5) ; making a variable
    (if (> x 5) 
        (format t "greater") (format t "smaller"))

    (setf x (+ 1 2))
    (setf y 2)
    (defvar z 3)
    (format t "~a~%" x)
    (format t "~a~%" y)
    (setf z (* z 2)) ; z becomes 6
    (format t "~a~%" z)

    (loop for i from 1 to 10 by 2 do 
        (setf i (- i 1)) 
        (format t "~a" i))

    (if (and (> x 5) (< y 10))
        (format t "Both conditions are true~%")
        (format t "One condition is false~%"))

    (if (and (= 3 3) (> 10 5))
        (format t "Yes")
        (format t "No"))

    (format t "~a" (* 1 2 3 4)))

(name 1 2 3)