% Ein Haeusle mit 8 Strichen
prologues := 1;
beginfig(1);
   l := 1in; % Masseinheit fuer das Haeussle
   pickup pencircle scaled 3pt;
   draw (0,0) -- (0,1l) -- (0.5l,1.5l) -- (1l,1l) --
        (0,1l) -- (1l,0) -- (0,0) -- (1l,1l) -- (1l,0);
endfig;
end.