// it works like incrlist 5 6 7 =>> 6 7 8

proc incrlist args {

set s 0

foreach s $args {

incr s 1

puts $s

}

}

//for list

proc incrlist list {

set s 0

foreach s $list {

incr s 1

puts $s

}

}