fill penup seth 250 fd 200 seth 90 filled 1 [arc 360 90] setcolor 2 setwidth 5 seth 300 pendown fd 20 seth 350 fd 50 setcolor 10 seth 340 fd 21 hideturtle penup home seth 250 fd 200 seth 337 showturtle arc 40 90 penup seth 17 fd 90 seth 190 pendown fd 20 hideturtle seth 275 fd 30 seth 190 fd 20 seth 270 fd 10 filled 10 [ hideturtle penup home seth 250 ]