open Impact
clear()
x <- 0.0 
while x < 200. do 
    dot (x,monster(x)) blue
    x <- x + 1.