(defun addmul (x y z)
    (if
        (equal x 1)
        (+ y z)
        (* y z)
    )
)

(defun addmulmore (x y z)
(cond
    ((or (equal 1 x) (equal 4 x)) (+ y z))
    ((equal 2 x) (* y z))
    ((not (equal 3 x)) (/ y z))
))

(defun listp2 (x) 
(cond
   ((null x) nil)
   ((numberp x) (1+ x))
   (t (listp x))
))

(defun fact (n)
   (cond
      ((zerop n) 1)
      (t (* n (fact (1- n))))
   )
)

(defun loop2 (n)
   (cond
      ((> 0 n) nil)
      (t (loop2 (1- n)))
   )
)

(defun revio (todo done)
   (cond
      ((null todo) done)
      (t (revio (cdr todo) (cons (car todo) done)))
   )
)

(defun revio2 (todo)
   (revio todo nil)
)
	
	
(defun ll (todo done)
(cond
    ((null todo) done)
    (t (ll (cdr todo) (cons (list (car todo)) done)))
)
)

(defun ll2 (todo)
 (revio2 (ll todo nil))
)