n<- floor(runif(1000)*10) t<- table(n)