Print["MMA Start at ",N[AbsoluteTime[]]];

res=Block[{},ref={11.36,10.41,15,9.43,18.40,11.49,12,10.92,32.88,7.59,10.15,10.84  ,10.73,15.084,25.64};
c[2]:=c2;c[3]:=c3;c[k_]:= 3/((2 k+1)(k-3)) Sum[c[m] c[k-m],{m,2,k-2}];
f[x_]:=4 x(1-x);  g[x_]:=BesselJ[0,x];
a[n_] := 2/\[Pi]  Integrate[Log[2 Cos[x/2]] * Cos[n x],{x,0,\[Pi]}];
	start = AbsoluteTime[];
	time={Timing[N[\[Pi],5000000]][[1]],
			Timing[N[Sin[1/2],3000000]][[1]],
			Timing[10000000!][[1]],
			Timing[FactorInteger[2^256-1]][[1]],
			Timing[PrimeQ[2^19937-1]][[1]],
			Timing[Eigenvalues[Table[Random[],{1200},{1200}]]][[1]],
			Timing[Nest[f,0.6,6000000]][[1]],
			Timing[Nest[g,2,16000]][[1]],
		         Timing[Table[Together[c[k]],{k,4,24}]][[1]],
			Timing[\[Integral]1/(1+x^1005)\[DifferentialD]x][[1]],
			Timing[Table[N[WeierstrassP[n,{1,1}]],{n,40000}]][[1]],
		Timing[Table[a[n],{n,0,15}]][[1]],
		Timing[Table[HermiteH[n,z],{n,1500}]][[1]],
		Timing[ Sum[Binomial[m,k],{k,0,10000000}]][[1]],Timing[Eliminate[{a0 b0==g0,a1 b0+a0 b1==g1,
a2 b0+2 a1 b1+a0 b2==g2,3 a2 b1+3 a1 b2-q1 g1-g0 q11==g3,-3 z (a1 b0-a0 b1)-q1 g2-7/2 q11 g1-g0 q12+6 a2 b2-6 a1 b1 q1==g4,g2-3 a1 b1+q1 g0==-1},{a0,a1,a2,b0,b1,b2}]][[1]]  };
	clocktime=N[AbsoluteTime[]-start,4];
	reltime=time/ref;
	timeN3=N[time,3];
	
	totalkernel =N[ Apply[Plus,time],4];
	benchmark=N[15/\!\(
\*UnderoverscriptBox[\(\[Sum]\), \(j = 1\), \(15\)]\(reltime[[j]]\)\),3];Print["Version   = ",$Version];Print["Times     = ",timeN3];
	Print["Total Kernel Time = ",totalkernel,
		",  Total Time = ",clocktime];Print["Benchmark = ",benchmark];
	{{"Version   = ",$Version},{"Times     = ",timeN3},
	{"Total Kernel Time = ",totalkernel},
	{"Total Time = ",clocktime},{"Benchmark = ",benchmark}}]
res>>mma.txt
Print["MMA End at ",N[AbsoluteTime[]]];
Quit[]
