Испушти N

;Отстрани на редниот број

(defun pomosna (n lista brojac)
    (cond
        ((null lista) nil)
        ((< brojac n)(cons (car lista)(pomosna n (flatten (cdr lista))(+ brojac 1))))
        ((= brojac n)(pomosna n (flatten (cdr lista)) 1))
    )
)


(defun flatten (lista)
    (cond
        ((null lista) nil)
        ((listp (car lista))(append (flatten (car lista))(flatten (cdr lista))))
        (t(append (list (car lista))(flatten (cdr lista))))
    )
)




(defun ispushtiN (n lista)
    (pomosna n lista 1)
    )
(print (ispushtiN 2 (flatten'((1 2 3 4)(1 2 2 1)((1 3 5) 3 1)))))