#lang racket/base
(define location (make-parameter "here"))
(define (foo)
(location))
(parameterize ([location "there"])
(foo))
(foo)
(parameterize ([location "in a house"])
(list (foo)
(parameterize
([location "with a mouse"])
(foo))
(foo)))
(location)