(require 'stdlib)

(define (make-power-func n)
  (lambda (x)
    (expt x n)))

(define pow-2 (make-power-func 2))
(define pow-10 (make-power-func 10))

(puts (pow-2 2))
(puts (pow-10 2))

(puts (mapcar (make-power-func 1/2) '(1 2 3 4 5)))