set files [glob *]set sofar -1
foreach f $files {set size [file size $f]if {$size > $sofar} {set sofar $sizeset name $f}}
puts "Biggest files is $name at $sofar bytes"