added rm(list=ls())