if {![exists -proc escape]} {
	proc escape {str} {
		regsub -all -- {"} "$str" "\\\"" str
		return $str
	}
}