puts $tcl_platform(platform)
puts [info exists env(HOME)]
unset env(HOME)
puts [info exists env(HOME)]

interp create child
interp eval child {
	puts [info exists env(HOME)]
}
puts [info exists env(HOME)]
