Graphics[{Line[{{1,0},{0,0},{0,1}}],
Table[Line[{{1/n,0},{1/n,1}}],{n,1000}]}]