prologues:=2;

input geometriesyr16

  figure(-20u,-20u,20u,20u);
pair A[];
A0=(0,0);
A1=(1pt,0);
trace segment(A0,A1);
for k=2 upto 200:
  A[k]=rotation(A[k-1]+k*unitvector(A[k-1]-A[k-2]),A[k-1],-121);
  trace segment(A[k-1],A[k]);
endfor;
fin;

end