(defun neql (a b)
  (not (eql a b))
)

(defun even (array)
    (cond
        ((null array) array)
        ((eql 0 (mod (car array) 2)) (cons (car array) (even (cdr array))))
        (t (even (cdr array)))
    )
)

(defun odd (array)
	(cond
        ((null array) array)
        ((neql 0 (mod (car array) 2)) (cons (car array) (odd (cdr array))))
        (t (odd (cdr array)))
    )
)

(defun even_odd (array) (list (odd array) (even array)))

(defvar lst)
(setq lst '(1 2 3 4 5 6 7 8 9 10))
(print (even_odd lst))