library(Matching)

foo  <- function()
  {
                  cat("d1:\n");
                  demo(AbadieImbens);
                  demo(AbadieImbens);
                  demo(AbadieImbens);
                  demo(AbadieImbens);
                  demo(AbadieImbens);
                  demo(AbadieImbens);
                  demo(AbadieImbens);
                  demo(AbadieImbens);
                  demo(AbadieImbens);
                  cat("d10:\n")      ;            
                  demo(AbadieImbens);
                  cat("done:\n")     ;                                   
  }

print(system.time(foo()))