x<-rnorm(200)
slider.hist(x)