to sp2 :l
cs spi 1 :l
end
to spi :l :n
if :l > 60 [stop]
rt :n fd :l
if memberp :l [5 10 15 20 25 30 35 40 45 50 55 60] [simp gensym]
spi :l + 1 :n
end
to simp :a
nothing shell se [import -silent -windows BXLogo] word :a ".gif
end
to nothing :a
end
