// Test program for testing function call timing.

f[x,y,z=10] := sin[1.0 x/y]

var start
var end

for a = 1 to 10
{
   start = now[]
   for i=1 to 10000
      f[2i, 3i ,4i]
   end = now[]
   println["Time is " + (end-start -> "s")]
}