;;odstrani vyskyty prvku e v nejvyssi urovni seznamu S
(DEFUN delete (e  S)
	(COND 	((NULL S) NIL)
		((EQUAL e (CAR S)) (delete e (CDR S)))
		(T (CONS (CAR S) (delete e (CDR S))))
))

;;zjisti maximalni hloubku vnoreni seznamu;; MAX je stand. fce
(DEFUN max_hloubka (S)
	(COND 	((NULL S) 0)
		((ATOM (CAR S)) (MAX 1 (max_hloubka (CDR S))))
		(T (MAX (+ 1 (max_hloubka (CAR S)))
			(max_hloubka (CDR S)) ));;nasobna redukce
))

;;najde prvek s nejvetsi hodnotou ve vnorovanem seznamu
(DEFUN max-prvek (S)
	(COND 	((ATOM S) S)
		((NULL (CDR S)) (max-prvek (CAR S)))
		(T (MAX (max-prvek (CAR S)) ;;nasobna redukce
			(max-prvek (CDR S)) ))
))