(*This is an example file for the use of the reduction library gtolrules.m in Mathematica,*)
(*by Hjalte Frellesvig,Damiano Tommasini,and Chris Wever.*)
(*For further details see ArXiv:xxxx.xxxxx.*)
(*Latest Changes: 8th of Jan, 2016
*)

(*This should contain the path to the folder containing lievaluateinterface*)
link=Install["/home/hjf/athena/goncharov/ccode/codeinteface/lievaluateinterface"];

?Li

Do[
(*x is a random complex number*)
x=5*(1-2*Random[])*Exp[2*Pi*I*Random[]];
dif=Chop[Abs[(Li4[x]-PolyLog[4,x])]];
Print[i," :  ",dif];
,{i,10}]

?Li22

Li22nint=Function[{x,y},NIntegrate[Log[z]*PolyLog[2,z*x*y]/(z-1/x),{z,0,1}]];

(*inprecisions here are partially due to NIntegrate...*)
Do[
(*x and y are random complex numbers*)
x=5*(1-2*Random[])*Exp[2*Pi*I*Random[]];
y=5*(1-2*Random[])*Exp[2*Pi*I*Random[]];
dif=Abs[(Li22[x,y]-Li22nint[x,y])];
Print[i," :  ",dif];
,{i,10}]