tclsh
foreach test {
17.57.100.1
17.57.100.2
17.57.101.1
17.57.102.1
17.57.103.1
208.28.1.65
208.28.1.66
208.28.1.129
208.28.1.130
180.40.7.65
180.40.7.66
180.40.7.129
180.40.7.130
208.28.1.1
208.28.1.2
180.40.7.2
180.40.7.3
17.80.1.1 
17.80.1.2 
10.1.1.1
20.1.1.1
30.1.1.1
40.1.1.1
50.1.1.1
60.1.1.1
180.40.7.33
180.40.7.34 
} {ping $test rep 2};tclquit


macro name testbgp
do ping 17.57.100.1
do ping 17.57.100.2
do ping 17.57.101.1
do ping 17.57.102.1
do ping 17.57.103.1
do ping 208.28.1.65
do ping 208.28.1.66
do ping 208.28.1.129
do ping 208.28.1.130
do ping 180.40.7.65
do ping 180.40.7.66
do ping 180.40.7.129
do ping 180.40.7.130
do ping 208.28.1.1
do ping 208.28.1.2
do ping 180.40.7.2
do ping 180.40.7.3
do ping 17.80.1.1 
do ping 17.80.1.2 
do ping 10.1.1.1
do ping 20.1.1.1
do ping 30.1.1.1
do ping 40.1.1.1
do ping 50.1.1.1
do ping 60.1.1.1
do ping 180.40.7.33
do ping 180.40.7.34 
@

macro global apply testbgp