set master "\n
Hard Archive \"pwd\"
Path Time: [file mtime [pwd]
Time this script was executed: clock seconds
[clock format [clock seconds]
Epoch time (clock format 0)

Legend: 
\"Filename\" [ModifyTime\] [FileSize\] \"File Type\"
Please refer to documentation for information regarding
file types, times and sizes

"

set files glob *

foreach x $files {
        if { file type $x == "file" } {
                append master "\"$x\" [file mtime $x\] [file size $x\] \"exec file -b $x\"\n"

                exec ./a.exe -e $x out.txt

        }
}

puts $master

exec rm -Rf work
exec mkdir work     
set fp open "out.txt" r
fconfigure $fp -buffering line
set mc 10
set lc 1
set process ""

gets $fp data
while {$data != ""} {
        append process "$data\\n"
        set lc incr lc
        if { $lc>5 } {

                exec ./qrencode-3.1.1/qrencode.exe -o work/$mc.png -s 3 -8 "$process"
                
                set mc incr mc 10

                 set process ""
                set lc 1
        }
          gets $fp data
     }
     close $fp
exec ./qrencode-3.1.1/qrencode.exe -o work/$mc.png -s 3 -8 "$process"