clear

set a {1 2 3 4}

set c {4 5 6 7}

set d {1 2 3 4}

set e {1 2 3 4}

foreach i $a {

puts $i

puts [lindex $c $i-1]

*createnode [lindex $c $i-1] [lindex $c $i-1]  [lindex $c $i-1] 0 0 0

}