beginfig(1)
input hatching;
u := 5 mm;
path xtelg,ytelg;
xtelg := (-4u,0) -- (6u,0);
ytelg := (0,-4u) -- (0,9u);
drawarrow xtelg;
drawarrow ytelg;
path parab, paraa,m,n,kujund;
parab:= (0u,8u) for i=0.5 step .5 until 6: .. (i*u, (i*i-6*i+8)*u) endfor;
paraa:= (-3u,5u) for i=-2 step .5 until 3: ..(i*u,(i*i-4)*u) endfor;
draw parab;
draw paraa;
m:=(0,-4u)--(0,8u) for i=0 step 0.5 until 2: ..(i*u,(i**2-6*i+8)*u) endfor;
n:=(0,-4u) for i=0 step 0.5 until 2: ..(i*u,(i**2-4)*u) endfor;
kujund:=buildcycle(m,n);
hatchfill kujund withcolor(45,1mm,.5bp);
draw kujund;
endfig;
end
Like I mentioned above, I don't know why the hatchfill won't fill my graph.

