gistfile1.txt

;;doesn't work
(define (repeat f n)
        (if (> n1)
            (lambda (x) (f (repeat f (- n 1))))
            f))

;;works
(define (compose f g)
        (lambda(x) (f (g x))))

(define (repeat f n)
        (if (>  n 1)
            (compose f (repeat f (- n 1)))
            f))