tclsh
foreach test {

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

macro name testospf

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 208.28.1.1
do ping 208.28.1.2
do ping 208.28.1.3
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 1.1.1.1
do ping 2.2.2.2
do ping 3.3.3.3
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 200.1.4.1
@

macro global apply testospf