import Workflow/Pure()
import Criterion.Main

main = defaultMain [
  bgroup "Workflow/Pure"
    [ bench "1" $ nf   length [1..1000::Int]
    , bench "2" $ whnf length [1..1000::Int]
    ]
  ]