File:Closedinfinitebroom.png

This file was created using Wolfram Mathematica 8 with the following code:

Graphics[{Line[{{0, 0}, {1, 0}}], Map[Function[n, Line[{{0, 0}, {1, 1/n}}]], Range[500]]}]