cat("\014")
setwd(dirname(parent.frame(2)$ofile))