Begin["System`"]
$Package=Path["Package/"]

Do[Install[StringJoin[$Package,i,".dll"]],{i,
{"Differential","Function","Graphics","NumberTheory","Polynomial","Stream","Matrix"}}]

Do[Get[StringJoin[$Package,i,".u"]],{i,
{"Integration/Integrate","Summation/Sum","TeX/TeX"}}]

{\[Infinity],\[Pi],\[ExponentialE],\[ImaginaryI]} = {Infinity,Pi,E,I}
End[]
(*
simpson[f_, a_, b_, n_] := 
  Module[{h = N[(b - a)/n], u, v, r}, 
   u = Table[N[f[a + i h]], {i, 0, n}];
   v = Table[u[[i]] + u[[i + 1]], {i, n}];
   r = u[[1]] + u[[n + 1]] + 2 v[[1]];
   Do[r += 2 u[[i]] + 2 v[[i]], {i, 2, n}]; (h/6) r];
f[x_] := 1/(x^2 + 1);
simpson[f, 0, 1, 200]
*)