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