File:Combspace.png

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

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

Replacing 500 by a smaller number gives fewer "teeth" of the comb and hence fails to show many of those close to 0.