reset st color[0 191 255] penwidth 500 fw 250 color[0 191 255] penwidth 500 home bw 250 setxy 1 1 penwidth 100 color[255 255 0] circle 50 penwidth 1 repeat 10000[ setxy rand 150 rand 150 fw 1 ] setxy 0 500 to curl repeat 100[ make "b rand 2 make "r random 200 if :r = 5 [ color[random 255 random 255 rand 255] penwidth 10 circle rand 7 ] penwidth 1 if :b = 0[ lt 1 ] if :b = 1[ rt 2 ] fw 1 ] setheading 0 end make "x 0 repeat rand 500[ color[rand 255 rand 255 rand 255] setxy :x 500 curl make "x :x+rand 11 ]