dev.new(width=5,height=2); par( mai = c(0.5,0.5,0.1,0.1) )
x <- 3+runif(1)*5+runif(10000)^(runif(1)+0.7)*(runif(1)+5)
boxplot(x,horizontal=TRUE,col="yellow",lwd=2)
abline(v=seq(2,20,0.1),lty=3); abline(v=seq(2,20,1/2),lty=2)