\begin{Schunk}
\begin{Sinput}
 alist <- vector(mode = "list", length = 10000)
 for(i in 1:10000){
      alist2[[i]] <- matrix(rnorm(9), ncol = 3)
  }
\end{Sinput}
\end{Schunk}
