library(foreach)
(x <- foreach(i=1:3) %do% sqrt(i))

(x <- foreach(a=1:3, b=rep(10, 3)) %do% (a + b))

x <- foreach(a=1:3, b=rep(10, 3)) %do% {
  a + b
}



(x <- foreach(i=1:3, .combine='c') %do% exp(i))

(x <- foreach(i=1:4, .combine='cbind') %do% rnorm(4))