A better name for the function moose, below:

(define (moose x)
  (cond ((null? x) x)
        ((list? (car x)) (append (moose (car x))
                                 (moose (cdr x))))
        (else (cons (car x) (moose (cdr x))))))