(define (atom? x)
  (not (pair? x)))

(define temp '())

(define (save depth value)
  (if (pair? value)
      (begin
        (set! temp (append temp (list (cons depth 0))))
        depth)
      (begin
        (set! temp (append temp (list (cons depth value))))
        depth)))

(define (diepste-element lst)
  (cond ((null? lst) 0)
        ((atom? lst) 0)
        (else (max (save (+ 1 (diepste-element (car lst))) (car lst))
                   (diepste-element (cdr lst))))))