prologues := 3;
beginfig(1)
drawdot(0,30);
draw (0,0) -- (3,4);
draw (0,5) -- (3,4);
draw (0,5) -- (5,5);
endfig;
end