scope
t := time();
for x from -1 to 1 by 0.0000001 do
   a := arcsin(x)
od;
print('arcsin;' & time()-t);

t := time();
for x from -1 to 1 by 0.0000001 do
   a := arccos(x)
od;
print('arccos;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := arcsec(x)
od;
print('arcsec;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := arctan(x)
od;
print('arctan;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
#   a := cosc(x)
od;
print('cosc;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := csc(x)
od;
print('csc;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := csch(x)
od;
print('csch;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := sec(x)
od;
print('sec;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := sech(x)
od;
print('sech;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := sinc(x)
od;
print('sinc;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := tanh(x)
od;
print('tanh;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := cbrt(x)
od;
print('cbrt;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
#   a := ceil(x)
od;
print('ceil;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := cosh(x)
od;
print('cosh;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := frexp(x)
od;
print('frexp;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := ldexp(x, 2)
od;
print('ldexp;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := log(x, 3)
od;
print('log;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := log10(x)
od;
print('log10;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := sinh(x)
od;
print('sinh;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := tanh(x)
od;
print('tanh;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := math.expminusone(x)
od;
print('math.expminusone;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := x^4
od;
print('x^4;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := x**4
od;
print('x**4;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := x symmod x+1
od;
print('symmod;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a, b := modf(x)
od;
print('modf;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a, b := arctan2(x, 2)
od;
print('arctan2;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := math.wrap(x)
od;
print('math.wrap;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := math.quadrant(x)
od;
print('math.quadrant;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := sin(x)
od;
print('sin;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := cos(x)
od;
print('cos;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := ln(x)
od;
print('ln;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := exp(x)
od;
print('exp;' & time()-t);

t := time();
for x from -100k to 100k by 0.01 do
   a := tan(x)
od;
print('tan;' & time()-t);

epocs;
