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