rm(list=ls())
#######################################
Caricalibreria = function ()
{for (x in dir("Libreria",
  full.names=TRUE,recursive=TRUE))
  source(x)}

# Sotto Windows "alfa.txt"
# e "programma.txt".
Alfa = function ()
{source("alfa")
Caricalibreria()
source("programma")}