(defun read-input(p)
(cond
   ((null p) nil)
   (T (cons p (read-input (read nil nil))))
)
)

(defun readinput(i)
    (cdr (read-input 1))
)


(defun empty(lista)
    (cond
        ((null lista) T)
        ((atom lista) nil)
        (T (and (empty (car lista)) (empty (cdr lista))))
        )
    )

(defun brisi (lista)
    (cond
        ((null lista) nil)
        ((empty (car lista)) (brisi (cdr lista)))
        ((eq (car lista) nil) (brisi (cdr lista)))
        ((listp(car lista)) (cons (brisi (car lista)) (brisi (cdr lista))))
        (T (cons (car lista) (brisi (cdr lista))))
        )
    )

; ^ brisenje nil


(defun atomi(lista)    ;listata na 1 nivo
    (cond
        ((null lista) nil)
        ((listp (car lista)) (append (atomi (car lista)) (atomi (cdr lista))))
        (T (cons (car lista) (atomi (cdr lista))))
        )
    )

(defun broi (lista)  ;broj na elementi vo lista
    (cond
        ((null lista) 0)
        ((atom (car lista)) (+ 1 (broi (cdr lista))))
        (T (+ (broi (car lista)) (broi (cdr lista))))
        )
    )


(defun izbrisi(lista n1 n2 br)
    (cond
        ((null lista) nil)
        ((listp (car lista))
             (cons (izbrisi (car lista) n1 n2 br) (izbrisi (cdr lista) n1 n2 (+ br (broi (car lista))))))
        ((and (atom (car lista)) (or (< br n1) (> br n2)))
             (cons (car lista) (izbrisi (cdr lista) n1 n2 (+ br 1))))
        (T (izbrisi (cdr lista) n1 n2 (+ br 1)))
        )
    )



(print (brisi(izbrisi '(1 2 (3 (4) 5 (6 (7)))(8 (9 (10 ((11))) 12)) (13 ((14) (15)))) 7 13 1)))