(DEFUN lungime (lista)
    (COND   ((NULL lista) 0                                )
            (T            (+ 1 (lungime (REST lista) ) )   )
    )
)

(print(lungime  '(1 2 3)))

(DEFUN ordered (lista)
    (COND ((NULL (SECOND lista)) T)
          ((> (FIRST lista) (SECOND lista)) NIL)
          (T ( ordered (REST lista)))
    )
)

(print(ordered '(1 5 3)))

(DEFUN remove_nonnum (lista)
    (COND   ((NULL lista) NIL)
            ((NULL (NUMBERP (FIRST lista))) (remove_nonnum (DELETE (FIRST lista) lista)))
            (T (CONS (FIRST lista) (remove_nonnum (REST lista))))
    )
)

(print(remove_nonnum '(1 (a b) 3 mere 5)))

(DEFUN remove_nonnum_all (lista)
    (COND   ((NULL lista) NIL)
            ((NUMBERP (FIRST lista)) (CONS (FIRST lista) (remove_nonnum_all (REST lista))))
            ((LISTP (FIRST lista)) (CONS (remove_nonnum_all (FIRST lista)) (remove_nonnum_all (REST lista))))
            (T (remove_nonnum_all (REST lista)))
    )
)


(print(remove_nonnum_all '(1 (3 b) mere 5)))

(DEFUN sum_num_all (lista)
    (COND   ((NULL lista) 0)
            ((NUMBERP (FIRST lista)) (+ (FIRST lista) (sum_num_all (REST lista))))
            ((LISTP (FIRST lista)) (+ (sum_num_all (FIRST lista)) (sum_num_all (REST lista)) ))
            (T (sum_num_all (REST lista)))
    )
)

(print(sum_num_all '(1 (3 (1 2) b) mere 5)))


(DEFUN concat (list1 list2)
    (COND ((NULL list1) list2)
          (T (CONS (FIRST list1) (concat (REST list1) list2) ))
    )
)

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


(DEFUN map_leaf (func lista)
    (MAPCAN #'(LAMBDA (x) ( COND ((NULL x) NIL)
                                 ((ATOM x) (LIST(FUNCALL func x)))
                                 (T (LIST(map_leaf func x)))
                          )
              )
    lista)
)

(print (map_leaf #'NUMBERP '(1 (2 a) (4) 5)))


(DEFUN concat_all (list_of_lists)
    (MAPCAN #'  (LAMBDA (lista) (MAPCAN #'  (LAMBDA (element) (LIST element)) lista)) list_of_lists)
)

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


(DEFUN adancime (lista)
    (COND   ((NULL lista) 0)
            ((NOT (LISTP (FIRST lista))) (MAX 1 (adancime(REST lista))))
            (T (MAX (+ 1 (adancime (FIRST lista))) (adancime (REST lista)) ))
    )
)

(print(adancime '(1 (2 (3 4 (5 5 (1))) (3 e)) 4)))