input geometriesyr12;
figure(0,0,10u,10u);
pair A,B,C,D,E,F;
A=u*(7,1);
B=u*(8,1);
C=rotation(A,B,-90);
D=rotation(A,C,-90);
E=rotation(A,D,-90);
F=rotation(A,E,-90);
trace A--B--C--D--E--F--cycle;
trace C--A--D;
trace E--A;
trace codeperp(A,B,C,8);
trace codeperp(A,C,D,8);
trace codeperp(A,D,E,8);
trace codeperp(A,E,F,8);
trace codesegments(A,B,B,C,1);
trace codesegments(A,C,C,D,2);
trace codesegments(A,D,D,E,4);
trace codesegments(A,E,E,F,3);
trace appelation(A,B,-3mm,btex 1 etex);
nomme.llft(A);
nomme.lrt(B);
nomme.urt(C);
nomme.top(D);
nomme.top(E);
nomme.lft(F);
fin;
end