sapply(g, plot)
sapply(g, function(x) {plot(x);return(invisible())})
for (i in 1:3) plot(g[[i]])
