len seq 3 nbr seq 10
pw  1.0 33 33 1.0
pw2 100.0

len seq 1 nbr seq 20
pw  1.0 33 33 1.0
pw2 100.0

len seq 2 nbr seq 5
pw  1.0 66 66 1.0
pw2 100.0

len seq 10 nbr seq 100
pw  1.0 660 660 1.0
pw2 100.0

len seq 15 nbr seq 3
pw  1.0 9900 9900 1.0
pw2 100.0

<pre>wrong # args: should be "exit code"
    while executing
"exit"
    (in namespace eval "::request" script line 16)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)<hr/><p>OUTPUT BUFFER:</p>
package require tclordalie

set s "ACDE..FGH..ILM.P"
foreach {ns nl} {3 10 1 20 2 5 10 100 15 3} {
    puts "len seq $ns nbr seq $nl"
    set s [string repeat $s $ns]
    set L [lrepeat $nl $s]
    set o [Ccode_Pairwise $L]
    puts "pw  [lindex $o 0]"
    set o [Ccode_Pairwise2 $L]
    puts "pw2 [lindex $o 0]"
    puts ""
}

exit

</pre>