module Main where

import Lib
import System.Environment
import Criterion
import Criterion.Main


main = defaultMain
    [ bench "Sequential 1,000,000" $ whnf (driver life) 1000000  
    , bench "Parallel 1,000,000"    $ whnf (driver parLife) 1000000]