couldn't open "globin.free": no such file or directory
    while executing
"open "globin.free" r"
    (in namespace eval "::request" script line 3)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/bin/tclsh

set f [open "globin.free" r]

while {! [eof $f]} {
    set l [gets $f]
    lappend Lignes $l	
}


foreach l [lrange $Lignes 0 end-1] {
    set n [regsub -all "  " $l " " l]
    while {$n > 0} {
	set n [regsub -all "  " $l " " l]
    }
    set Lsq [split $l " "]
    set Lt [lindex $Lsq 0]
    set Ls [lindex $Lsq 1]
    puts ">A$Lt"
    set D 0
    while {$D < [string length $Ls]} {
	set F [expr $D + 59]
	set L [string range $Ls $D $F]
	
	puts "$L"
	incr D 60
    }
}

exit