recursion-schemes-ext-0.1.0.0: bench/Bench.hs

module Main where

import Criterion.Main

main = do
    defaultMain [ bgroup "head"
                      [ bench "fortune-teller" $ whnf head [1..] ]
                ]