couldn't open "Test_AAAA.tfa": permission denied
    while executing
"open Test_AAAA.tfa w"
    (in namespace eval "::request" script line 22)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/bin/tclsh

source /home/moumou/ordali/src/LesProcsDeGscope.tcl

set Laa [split "ACDEFGHIKLMNPQRSTVWY" ""]
set i 0
foreach a $Laa {
    foreach b $Laa {
	set n "seq_$a$a$b$b"
	if {! ($i % 2)} {
	    set mot "$a$a$b$b...."
	} else {
	    set mot "....$a$a$b$b"
	}
	set s [string repeat $mot 200]
	lappend tmp ">$n" $s
	incr i
    }
}

catch {file delete Test_AAAA.tfa}
set o [open Test_AAAA.tfa w]
puts $o [join $tmp \n]
close $o

exit