(define (task lst)
(define (count x c m)
(cond ((null? x) (if (> c m) c m))
((list? (car x)) (count (cdr x) (+ c 1) m))
(#t (if (> c m) (count (cdr x) 0 c) (count (cdr x) 0 m)))))
(count lst 0 0))
(display (task '(1 2 (1) (2) (3) 4 5 (6))))
KGRlZmluZSAodGFzayBsc3QpCiAgKGRlZmluZSAoY291bnQgeCBjIG0pCiAgICAgKGNvbmQgKChudWxsPyB4KSAoaWYgKD4gYyBtKSBjIG0pKQogICAgICAgICAgICgobGlzdD8gKGNhciB4KSkgKGNvdW50IChjZHIgeCkgKCsgYyAxKSBtKSkKICAgICAgICAgICAoI3QgKGlmICg+IGMgbSkgKGNvdW50IChjZHIgeCkgMCBjKSAoY291bnQgKGNkciB4KSAwIG0pKSkpKQogIChjb3VudCBsc3QgMCAwKSkKICAKICAoZGlzcGxheSAodGFzayAnKDEgMiAoMSkgKDIpICgzKSA0IDUgKDYpKSkpCg==