(define (create-functions)
  (define (f) "X\n")
  (define (g) (f))
  (define (f) "Y\n")
  (define (h) (f))
  (list g h))

(define e (create-functions))

(display ((car e)))
(display ((cadr e)))

;; will display Y twice