seed <-1

seed<-round(1024*runif(1))


m<-50
n<-60
b<-0
dist<-"cont"
design<- 1
updates<-fullmonte (m, n, b, dist, design, seed)
cat("Distribution ", dist, "\n",
    "     design  ", design, "\n",
    "       seed  ", seed, "\n",
    "          m  ", m, "\n",
    "          n  ", n, "\n",
    "          b  ", b, "\n")
updates