(define task (lambda (lst)
(cond ((null? (cdr lst)) '())
((or (and (list? (car lst)) (list? (cadr lst))) (task (cdr lst)))))))
(display (task '(1 2 (3) (4) 5)))
KGRlZmluZSB0YXNrIChsYW1iZGEgKGxzdCkKICAoY29uZCAoKG51bGw/IChjZHIgbHN0KSkgJygpKQogICAgICAgICgob3IgKGFuZCAobGlzdD8gKGNhciBsc3QpKSAobGlzdD8gKGNhZHIgbHN0KSkpICh0YXNrIChjZHIgbHN0KSkpKSkpKQooZGlzcGxheSAodGFzayAnKDEgMiAoMykgKDQpIDUpKSk=