;;;vybira ze seznamu prvky sude v poradi
(defun sude (x)
    (cond
	((not (null (cdr x))) 
		(cons(car (cdr x))(sude (cdr (cdr x)))))
	(t nil)
))