anchor.diff:  (defparameter *benches*
     `((bench-pmap
        (map pmap)
  -     (10 100 500 1000 5000 10000 50000 100000 500000)
  +     (10 50 100 500 1000 5000 10000 50000 100000 500000)
        ,*trials*
        ,*rehearsals*)
  +
  +    (bench-preduce
  +     (reduce preduce)
  +     (10 50 100 500 1000 5000 10000 50000 100000 500000)
  +     ;; needs more unthrottling
  +     ,(+ 10 *trials*)
  +     ,(+ 10 *rehearsals*))
   
       (bench-psort
        (sort psort)
  
positive.code:      ,*trials*
       ,*rehearsals*)
  
      (bench-preduce
       (reduce preduce)
       (10 100 500 1000 5000 10000 50000 100000 500000)
       ;; needs more unthrottling
       ,(+ 10 *trials*)
       ,(+ 10 *rehearsals*))
  
      (bench-pfib
       (fib-let fib-plet fib-plet-if)
       (5 10 15 20 25 30 35)
  
negative.code: 
      (bench-pmatrix-mul
       (matrix-mul pmatrix-mul)
       (5 10 50 100 200)
       ,*trials*
       ,*rehearsals*)))
  
  