\\ Rename this!
paritoolslib="~/Datenbank/++/paritools/Library"
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
paritoolsfiles=["auxiliary-functions.gp","binary-tree.gp","discrepancy.gp",\
         "dynamical-systems.gp", "fourier.gp", "fourier-graphics.gp",\
         "functional.gp", "hash.gp", "latex.gp",\
         "number-representations.gp", "number-theory.gp","number-theory-varia.gp",\
         "oeis.gp",\
         "output.gp","output-gaps.gp","output-tables.gp", "permutations.gp",\
         "plot.gp","pos-and-run.gp", "sets.gp", "statistics.gp", "strings.gp", "tables-color.gp",\
         "tests.gp","vectors.gp"]

for (i=1,#paritoolsfiles, read(Strprintf("%s/%s",paritoolslib,paritoolsfiles[i])))
\\ 10 significant digits; usual default is "g.28". 25157-ZZ, 306.
default(format, "g.10")
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\ t_write writes text to a file, canceling the old content.
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\ Comment this if you're using Windows.

\\ install(unlink,vs) \\ Uncomment this, if necessary.
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);}