u := 1.25cm;
r := 5pt;

beginfig(1);
for i=0 upto 5:  z[i]=u*dir(90-60*i);  endfor
draw z0--z1--z2--z3--z5--z0--z3;
draw z1--z4--z2;
pickup pencircle scaled r;
for i=0 upto 5:  draw z[i];  endfor
label.top(btex$A$etex, z0+r*dir90);
label.urt(btex$B$etex, z1+r*dir30);
label.lrt(btex$C$etex, z2+r*dir-30);
label.bot(btex$D$etex, z3+r*dir-90);
label.llft(btex$E$etex, z4+r*dir-150);
label.ulft(btex$F$etex, z5+r*dir150);
endfig;

bye