(define (traverse x ack)
    (if (pair? x)
        (let ((ack (traverse (car x) ack)))
            (traverse (cdr x) ack))
        (if (null? x)
            ack
            (cons (list x) ack))))

(define (my-traverse x) (reverse! (traverse x '())))