catt("\n", A_scriptname, " started\n")
catt("-----------------------------------------------------\n")
catt <- define.catt(nspace=2)

##### libraries needed here #####
inst.load.packages("GEOquery", inst.bioclite = TRUE)

##### function to be applied here #####
get.lenz <- function(rdafile){

}

##### apply the function only if the given .rda does NOT exist #####
currentCodechunk <- file.path(A_RDA.DIR, "Lenz.rda")
if(!file.exists(currentCodechunk)){
	tmp <- get.lenz(currentCodechunk)
	save(tmp, file=currentCodechunk)
}else{
	load(currentCodechunk)
}


catt <- define.catt()
catt("-----------------------------------------------------\n")
catt(A_scriptname, " finished\n")