(define (task lst)
(define (check lst prev?)
(if (null? lst)
#f
(let ((curr? (list? (car lst))))
(or (and prev? curr?)
(check (cdr lst) curr?)))))
(check lst #f))
(define (test lst)
(display lst)
(display " => ")
(display (task lst))
(newline))
(for-each
test
'(()
(1)
(1 2)
((1) 2)
(1 (2))
((1) (2))
(1 (2) 3)
((1) 2 (3))
(1 (2) (3))
((1) (2) 3)))
KGRlZmluZSAodGFzayBsc3QpCiAgKGRlZmluZSAoY2hlY2sgbHN0IHByZXY/KQogICAgKGlmIChudWxsPyBsc3QpCiAgICAgICAgI2YKICAgICAgICAobGV0ICgoY3Vycj8gKGxpc3Q/IChjYXIgbHN0KSkpKQogICAgICAgICAgKG9yIChhbmQgcHJldj8gY3Vycj8pCiAgICAgICAgICAgICAgKGNoZWNrIChjZHIgbHN0KSBjdXJyPykpKSkpCiAgKGNoZWNrIGxzdCAjZikpCgooZGVmaW5lICh0ZXN0IGxzdCkKICAoZGlzcGxheSBsc3QpCiAgKGRpc3BsYXkgIiA9PiAiKQogIChkaXNwbGF5ICh0YXNrIGxzdCkpCiAgKG5ld2xpbmUpKQoKKGZvci1lYWNoCiB0ZXN0CiAnKCgpCiAgICgxKQogICAoMSAyKQogICAoKDEpIDIpCiAgICgxICgyKSkKICAgKCgxKSAoMikpCiAgICgxICgyKSAzKQogICAoKDEpIDIgKDMpKQogICAoMSAoMikgKDMpKQogICAoKDEpICgyKSAzKSkp