(define (task lst)
(cond ((null? (cdr lst)) #f)
(else
(or (and (list? (car lst))
(list? (cadr lst)))
(task (cdr lst))))))
(display (task '(1 2 3 4 (5))))
KGRlZmluZSAodGFzayBsc3QpCiAgKGNvbmQgKChudWxsPyAoY2RyIGxzdCkpICNmKQogICAgICAgIChlbHNlCiAgICAgICAgIChvciAoYW5kIChsaXN0PyAoY2FyIGxzdCkpCiAgICAgICAgICAgICAgICAgIChsaXN0PyAoY2FkciBsc3QpKSkKICAgICAgICAgICAgICh0YXNrIChjZHIgbHN0KSkpKSkpCiAKKGRpc3BsYXkgKHRhc2sgJygxIDIgMyA0ICg1KSkpKQ==