How can I do shorter benchmarks?

```
module Main where

import Criterion.Types
import Criterion.Main

myConfig :: Config
myConfig = defaultConfig {
resamples = 1
, timeLimit = 0.01
}

main :: IO ()
main = do
let f = (\x -> bench (show x) $ nf xyz x)
defaultMainWith myConfig [
bgroup "fib" [
env (pure 400000) f
, env (pure 100) f
, env (pure 200) f
]
]

xyz :: Int -> [Double]
xyz 0 = []
xyz _ = [fromIntegral 1000]

```

I was hoping I could quickly benchmark an example like this - but it seems to be taking around 4 seconds - to do numerous(?) runs.

Have I misunderstood the `resamples` / `timeLimit` values?