3 #lang racket
  4
  5 (for ([name (environment-variables-names (current-environment-variables))])
  6      (environment-variables-set! (current-environment-variables)
  7                                  name
  8                                  #f))