how to plot a fitted smooth line on histograms?

for example,

x <- read.table(....);  here x is a vector containing  my data to be analyzed.
hist(x,plot=TRUE,breaks=200)

then I got a histogram graph. However, How can't get a smooth curve
based on the histogram cells to show out the outline?

Thanks very much.