main :: IO ()
main = defaultMain [
  bgroup "initializeCache" (map benchmarkInitializeCache [10, 100]),
  bgroup "updateCache" (map benchmarkUpdateCache [10, 100]),
  bgroup "initializeCache2" (map benchmarkInitializeCache2 [10, 100, 1000]),
  bgroup "updateCache2" (map benchmarkUpdateCache2 [10, 100, 1000])]
main :: IO ()
main = defaultMain [
  bgroup "initializeCache" (map benchmarkInitializeCache [10, 100]),
  bgroup "updateCache" (map benchmarkUpdateCache [10, 100]),
  bgroup "initializeCache2" (map benchmarkInitializeCache2 [10, 100, 1000]),
  bgroup "updateCache2" (map benchmarkUpdateCache2 [10, 100, 1000])]
main = defaultMain [
  bgroup "initializeCache" (map benchmarkInitializeCache [10, 100]),
  bgroup "updateCache" (map benchmarkUpdateCache [10, 100]),
  bgroup "initializeCache2" (map benchmarkInitializeCache2 [10, 100, 1000]),
  bgroup "updateCache2" (map benchmarkUpdateCache2 [10, 100, 1000])]