(define (task lst)
(cond ((null? (cdr lst)) #f)
(
(or (and (list? (car lst))
(list? (cadr lst)))
(task (cdr lst))))))
(display (task '(1 2 3 4 (5))))
KGRlZmluZSAodGFzayBsc3QpCiAgKGNvbmQgKChudWxsPyAoY2RyIGxzdCkpICNmKQogICAgICAgICgKICAgICAgICAgKG9yIChhbmQgKGxpc3Q/IChjYXIgbHN0KSkKICAgICAgICAgICAgICAgICAgKGxpc3Q/IChjYWRyIGxzdCkpKQogICAgICAgICAgICAgKHRhc2sgKGNkciBsc3QpKSkpKSkKIAooZGlzcGxheSAodGFzayAnKDEgMiAzIDQgKDUpKSkp