$ cat gavtcl/fixfiles.tcl
#! /home/g/tcl/bin/tclsh8.6.exe
foreach v {pik vid "vid/l33t"} {
set dir "/home/g/windows_g/$v"
foreach q {jpg mpg wmv} {
set y $q
set z 1000000
set files [glob -directory $dir *.$y]
foreach x $files {
 file rename $x $dir/$z.$y
 incr z
}
set z 1
set files [glob -directory $dir *.$y]
foreach x $files {
 file rename $x $dir/$z.$y
 incr z
}
}
}