input graph defaultfont:="ptmr8r"; warningcheck:=0; beginfig(1) path m,w,last; draw begingraph(3in,2in); setrange((1800,0),(whatever,whatever)); gdata ("decade.dat",y, last:=((scantokens y1),0); augment.w(y1,y2); augment.m(y1,y3);); gfill (1800,0)--w--last--cycle withcolor red; gfill (1800,0)--m--last--cycle withcolor green; pickup pencircle scaled 3pt; gdraw w dashed withdots; pickup pencircle scaled .75pt; glabel.bot (btex Number of burials per decade ($n \approx 4300$) etex,OUT); endgraph rotated 90; endfig; end;