directories <- c("flyFactorSurvey", "hPDI", "jaspar", "ScerTF", "stamlab")#   "uniprobe"       
 starting.directory <- getwd()
 stopifnot(basename(starting.directory) == "import")
 
 for(directory in directories){
     print(noquote(sprintf("--- importing %s", directory)))
     setwd(file.path(starting.directory, directory))

     #source("test.R")
     #run.tests()

     source("import.R")
     run()
     }