(define (flatten x)
    (if (pair? x)
        (append (flatten (car x)) (flatten (cdr x)))
        (if (null? x)
            x
            (list x))))

(define (my-flatten x) (map list (flatten x))