init <- function() {
    source(".init.R")
}

cat("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n")
cat("    =================")
cat("\n\n")
cat("        WELCOME !\n")
cat("\n")
cat("  Type  'init()'  to begin\n\n")
cat("\n")
cat("    =================")
cat("\n\n")