diff --git a/R/cell.R b/R/cell.R
index 746634e..c98a0dc 100644
--- a/R/cell.R
+++ b/R/cell.R
@@ -2,9 +2,14 @@
 #' @description Creates an array of zeros
 #' @param n a the first dimension (or both, if sz is not passed)
 #' @param sz the second dimension (or 1st and 2nd, if not passed)
+#' @param expandable if TRUE, output is a list (so it can take different
+#' lengths)
 #' @param ... Other dimensions
 #' @return An array of zeroes with the dimensions passed on call
-cell <- function(n, sz = c(n, n), ...) {
+cell <- function(n, sz = c(n, n), expandable=FALSE, ...) {
+	if (expandable) {
+		return(vector("list", length = n))
+	}
 	if (length(sz) == 1 & missing(...)) {
 		return(array(0, dim = c(n, sz)))
 	} else if (length(sz) == 2) {