proc blah:proc {blah vars} {
set fid [open list.txt a+]
set fi [glob *]
set fe [split $fi]

foreach fil $fe {


if {[file isdirectory $fil]} { puts $fid "!$trigger $arg/$fil)" }

if {[file isfile $fil]} { puts $fid "!$trigger $arg/$fil (size: [filesize [file size $fil]])" }

}
cd $tdir
close $fid
}