(E.g., area .00013.) gosper.org/00013.pdf (Bug in Mathematica's pdf renderer: Windings are iored vs xored. But you can see the little sucker near the Middle of B&W Graphics.) --rwg Also, Julian bummed my winding # function: turns[L_List] := Total@Mod[RotateLeft[#] - # &@Arg@L/π, 2, -1]/2