第一引数で指定されたファイルを読み込んでstdoutに出力するプログラムが出来たお

if {$argc == 0} {
exit
} else {
set filename [lindex $argv 0]
}
puts [read [open $filename r 666] [file size $filename]]