\\ Rename this!
paritoolslib="~/Datenbank/Didattica/Pari/Tools/Library"
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
paritoolsfiles=["auxiliary-functions.gp","binary-tree.gp","discrepancy.gp",\
         "dynamical-systems.gp", "fourier.gp", "fourier-graphics.gp",\
         "number-representations.gp", "number-theory.gp",\
         "output.gp","output-tables.gp", "permutations.gp",\
         "plot.gp","pos-and-run.gp", "statistics.gp", "tables-color.gp",\
         "tests.gp"]

for (i=1,#paritoolsfiles, read(Strprintf("%s/%s",paritoolslib,paritoolsfiles[i])))
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\ t_write writes text to a file, canceling the old content.
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\ Comment this if you're using Windows.

install(unlink,vs)
t_write (file,text) = {unlink(file); write(file,text)}
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\ Uncomment this if you're using Windows.
\\ The first write guarantees that the file exists.

\\t_write (file,text) = {write(file,""); system(Strprintf("del %s",file)); write(file,text);}