verbatimtex
%&latex
\documentclass{article}
\usepackage[frenchb]{babel}
\begin{document}
etex

input geometriesyr16;

figuremainlevee(0,0,7u,5u);
pair K,L,M,N;
N=u*(0.75,0.75);
M=u*(6.25,0.75);
L=u*(6.25,4);
K=u*(0.75,4);
trace polygone(K,L,M,N);
trace segment(K,M);
trace appelation(K,L,2mm,btex 6~cm etex);
trace Marqueangle(segment(K,N),segment(K,M),0);
label.lrt(btex 70\degres etex,w);
nomme.llft(N);
nomme.lrt(M);
nomme.urt(L);
nomme.ulft(K);
finmainlevee;

end