invalid command name "Ccode_InitPosSGGS"
    while executing
"Ccode_InitPosSGGS $Lns"
    (in namespace eval "::request" script line 13)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/ActiveTcl/bin/tclsh


set auto_path [linsert $auto_path 0 /home/moumou/ordali/lib]
package require tclordalie

set s "AC.D..GF.KLMPQ...RT.EDSQATR..TYL..L.M.QSDF.KLNIVWYER..T"
set Lns [list]
for {set i 0} {$i < 10} {incr i} {
    lappend Lns "seq$i" [string range $s $i $i+10]
}

lassign [Ccode_InitPosSGGS $Lns] LGS LSG

puts "LGS [lrange $LGS 0 3]"