summ price
local mu = r(mean)
histogram price, start(3000) width(2000) xlabel(3000(2000)17000) freq kdensity ///
	addplot(function y = exp(`mu'/x), range(3000 16000))
histogram price, start(3000) width(2000) xlabel(3000(2000)17000) freq addlabels ///
	addplot(function y = exp(`mu'/x), range(3000 16000))
histogram price, start(3000) width(2000) xlabel(3000(2000)17000) freq addlabels legend(order(1 3)) ///
	addplot(function y = exp(`mu'/x), range(3000 16000))

* More minimal example
summ price
local mu = r(mean)
histogram price, freq addplot(function y = exp(`mu'/x), range(3000 16000))
histogram price, addlabels freq addplot(function y = exp(`mu'/x), range(3000 16000))
histogram price, addlabels legend(order(1 3)) freq addplot(function y = exp(`mu'/x), range(3000 16000))