Question on tapering a bezier curve
I would convert the curve to a mesh object with Alt+C> Mesh from curve/meta/ surf/ text. 

Next,  Tab into edit mode and enable proportional editing with O. 

Finally, select just the top few edge loops of the new object and scale while adjusting the proportional edit radius of influence with your mouse wheel until satisfied with the result.