g.pen (0)
g.paper (100)
for a in a range(0,100):
g.pen(a)
g.line(a,60,a,100)
g.pen(a+30)
g.line(a,40,a,60)
g.pen(a+60)
g.line(a,45,a,20)
g.pen(a+80)
g.line(a,0,a,10)
g.field(60,0,61,5,50)