lsiz<-function(env=1, sort=TRUE) {
   z <- sapply(ls(env), function(x) object.size(get(x))) #  envir=baseenv()
   if(sort) z<-as.matrix(rev(sort(z)))
   z
}