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

set Laa [list A C D E F G H I K L M N P Q R S T V W Y]
set Ln [list] ; set Ls [list]
set i 0
foreach a $Laa {
    set s [string repeat $a 30]
    lappend Ls $s
    lappend Ln "Seq-$i"
    incr i
}
set o [open aa.tfa w]
foreach n $Ln s $Ls {
    puts $o ">$n"
    puts $o "$s"
}
close $o

exit