(
defun cont (lista)
(
if (equal lista nil)
  0
(
    + 1 (cont (cdr lista)) 
)


)
)


(
defun contuno(lista)
(
   + 1 (

if (equal lista nil)
-1
(
    contuno(cdr lista)
)
)
)
)

(
  defun del(lista)
   (
    if(equal lista nil)
     lista
     (
     if(numberp (car lista))
     (
          cons (car lista) (del (cdr lista))
     )
(
    append (del (car lista)) (del(cdr lista))
)
     )
)
)
(
  defun quita(lista)
   (
    if(equal lista nil)
     lista
     (
     if(numberp (car lista))
     (
          cons (car lista) ( quita (cdr lista))
     )
(
     if(listp (car lista))
       (    cons (quita (car lista)) ( quita (cdr lista)))
       ( quita (cdr lista) )
)
     )
)
)

(
defun suma_lista (l)
(
if(equal l nil)
0
(
    if(numberp (car l))
(
    + (car l) (suma_lista (cdr l))
)
(
    + (suma_lista (car l)) (suma_lista (cdr l))
)
)
)
)

(
defun fib1(n)
(
if(or (= n 0) (= n 1))
1
(
 * (fib1(- n 1)) (fib1(- n 2))
)
)
)
(print (cont '(1 2 3 4 5 6)))
(print (contuno '(1 2 3 4 5 6)))
(print (del '(1 (2 (3)) 4 5 6)))
(print (quita '(1 (a (a)) 4 b 6)))

(print (suma_lista '(1 (2 (3)) 4 5 6)))

(print(fib1 5))