tclsh
foreach test {
200.1.0.1
200.1.1.1
200.1.2.1
200.1.3.1
217.57.100.1
217.57.100.2
208.28.1.65
208.28.1.130
208.28.1.66
208.28.1.129
208.28.1.1
208.28.1.3
180.40.7.2
180.40.7.3
180.40.7.66
180.40.7.65
17.80.1.1
17.80.1.2
1.1.1.1
2.2.2.2
3.3.3.3
202.2.2.2
} {ping $test};tclquit


macro name testbgp
do ping 200.1.0.1
do ping 200.1.1.1
do ping 200.1.2.1
do ping 200.1.3.1
do ping 217.57.100.1
do ping 217.57.100.2
do ping 208.28.1.65
do ping 208.28.1.130
do ping 208.28.1.66
do ping 208.28.1.129
do ping 208.28.1.1
do ping 208.28.1.3
do ping 180.40.7.2
do ping 180.40.7.3
do ping 180.40.7.66
do ping 180.40.7.65
do ping 17.80.1.1
do ping 17.80.1.2
do ping 1.1.1.1
do ping 2.2.2.2
do ping 3.3.3.3
do ping 202.2.2.2
@

macro global apply testbgp