lss <- function(objs = ls(pos=1)) {
  names <- c()
  modes <- c()
  bytes <- c()
  lengths <- c()
  dims <- c()
  for (o in objs) {
    value <- eval(parse(text=o))
    names <- c(names,o)
    modes <- c(modes,mode(value))
    bytes <- c(bytes, object.size(value))
    lengths <- c(lengths, length(value))
    d <- dim(value)
    dims <- c(dims, if (!is.null(d)) paste(d,collapse="x") else "")
  }
  d <- data.frame(names,modes,bytes,lengths,dims)
  print(d)
  return(invisible(d))
}