(define (my-flatten xs)
  (define (iter xs1 lst)
    (if (equal? xs1 '())
        (reverse lst)
        (if (list? (car xs1))
            (iter (append (car xs1) (cdr xs1)) lst)
            (iter (cdr xs1)(cons (car xs1) lst)))))
  (iter xs '()))