; read input

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

(defun readinput(i)
    (cdr (read-input 1))
)
;--don't change above this line


; write your function here
(defun transformiraj(lista)
    (trans lista nil 0)
)


(defun atomi (lista)
    (cond
        ((null lista) nil)
        ((listp (car lista)) (append (atomi (car lista)) (atomi (cdr lista))))
        (T (cons (car lista) (atomi (cdr lista))))
        )
    )

(defun pojavuvanja (lista e)
    (cond
        ((null lista) 0)
        ((eq (car lista) e) (+ 1 (pojavuvanja (cdr lista) e)))
        (T (pojavuvanja (cdr lista) e))
        )
    )

(defun trans(lista pominati depth)
    (cond
        ((null lista) nil)
        ((listp (car lista))
            (cons (trans (car lista) pominati (+ 1 depth)) (trans (cdr lista) (append(atomi(car lista))pominati) depth)))
        ((and (atom (car lista)) (or (evenp depth) (evenp (pojavuvanja pominati (car lista)))))
            (cons (car lista) (trans (cdr lista) (cons (car lista) pominati) depth)))
        (T (trans (cdr lista) (cons (car lista) pominati) depth))
        )
    )


; http://pastebin.com/MVWzuk9a od mj
; http://pastebin.com/6UkvWBgu moe
; http://pastebin.com/TnphC3CX od stefi


;--don't change below this line
(print (transformiraj (readinput nil)))