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