anchor.diff:       ,*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)
  
positive.code: (defparameter *benches*
    `((bench-pmap
       (map pmap)
       (10 100 500 1000 5000 10000 50000 100000 500000)
       ,*trials*
       ,*rehearsals*)
  
      (bench-psort
       (sort psort)
  
negative.code:   (declare (optimize (speed 3) (safety 0) (debug 0)))
    (if (< n 2)
        n
        (plet-if (> n 15)
            ((a (fib-plet-if (- n 1)))
             (b (fib-plet-if (- n 2))))
          (+ a b))))
  