#lang scheme/base

(define (sqr n) (* n n))

(define current-value (make-parameter 4))

(define (with-value value next)
  (parameterize
      ((current-value value))
    (next)))

(with-value (+ 4 5)
            (λ ()
              (sqr (current-value))))