1 2 3 4 5 6 7 8
module Main where import Criterion.Main main = do defaultMain [ bgroup "head" [ bench "fortune-teller" $ whnf head [1..] ] ]