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

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


(defun dep (lista d maxd)       ;maksimalna dlabocina
    (cond
        ((null lista) maxd)
        ((atom (car lista)) (dep (cdr lista) d maxd))
        (T (dep (cdr lista) d (dep (car lista) (+ 1 d) (max (+ 1 d) maxd))))
        )
    )


(defun elemsDep (lista tmpdep dep)    ;lista od elementite na edno nivo
    (cond
        ((null lista) nil)
        ((and (atom (car lista)) (eq tmpdep dep))
            (cons (car lista) (elemsDep (cdr lista) tmpdep dep)))
        ((listp (car lista))
            (append (elemsDep (car lista) (+ 1 tmpdep) dep) (elemsDep (cdr lista) tmpdep dep)))
        (T (elemsDep (cdr lista) tmpdep dep))
        )
    )

(defun istaDlabocina (lista maxdep)
    (cond
        ((eq maxdep -1) 0)
        (T (append (list(elemsDep lista 0 maxdep)) (istaDlabocina lista (- maxdep 1))))
        )
    )

(setq maxdep (dep '(1 5 (3 (8) 6 (7 (9)) )(4 (11 (20 ((2))) 13)) (7 ((1) (5)))) 0 0))
(print (istaDlabocina '(1 5 (3 (8) 6 (7 (9)) )(4 (11 (20 ((2))) 13)) (7 ((1) (5)))) maxdep))