#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)