<< Graphics`FilledPlot`
FilledPlot [ 1/x,{x,1,10}];

