anchor.diff:        numSpawns <- numSpawns + 1L
         fib (n-2L) + fib (n-1L)
   
  -  let run () =
  +  let run n =
  +    numSpawns <- 0L
       printf "SerFun: "
       let timer = Stopwatch.StartNew ()
       let r = fib n
  
positive.code:       return x + y
    }
  
    let run () =
      printf "SerJob: "
      let timer = Stopwatch.StartNew ()
      let r = run (fib n)
  
negative.code:     GC.Collect ()
      Threading.Thread.Sleep 50
  
  do for n in [10L; 20L; 30L; 40L] do
       SerialFun.run n ; cleanup ()
       ParallelOpt.run n ; cleanup ()
       ParallelJob.run n ; cleanup ()
       SerialOpt.run n ; cleanup ()
       SerialJob.run n ; cleanup ()
       SerAsc.run n ; cleanup ()
       Task.run n ; cleanup ()
       if n <= 30L then
         ParAsc.run n ; cleanup ()
  