if {[expr ! [exists -proc cat ]]} {
	proc cat {file} {
		if {[catch {set fp [open $file r]]}} { return }
		puts [read $fp]
		close $fp
	}
}