Print[Integrate[1/(x^4 - a^4), x]];

(*Prints all Mersenne PRime numbers less than 10000*)
Print[Select[Range[10000],PrimeQ[2^#-1]&]];

A = Sum[i, {i,1,100}];
B = Mean[{25, 36, 22, 16, 8, 42}];
Print[A + B];

Quit[];