proc trafficMultiplier { hops } {
puts "ip access-list extended test"
for {set a 1} {$a <= $hops} {incr a} {
  set c [expr $a/256]
  set d [expr $a%256]
  puts "$a permit tcp host 232.$c.$d.1 host 239.$c.$d.2 lt 1024"
  }
puts "99999 permit ip any any"
}

trafficMultiplier 10