print("loaded")

  svydsgn <- svrepdesign(

      weight = ~pwgtp ,

      repweights = 'pwgtp[1-9]' ,

      scale = 4 / 80 ,

      rscales = rep( 1 , 80 ) ,

      mse = TRUE ,

      data = svydata) 

  print("initialized")

  for (r in 1:5) {

    timing <- system.time({

      agep <- svymean(~agep, svydsgn, se=TRUE)

      print(agep)

      print(relp)

    })[[3]]

    log.result("survey", sys, conf, s, r, timing)

    clearResultRecycler()

  }

}