main :: IO ()
main = defaultMain
  [ bgroup "modB" [ bench "10" $ nf (\x -> get #age $ modB x) 10
                  , bench "100" $ nf (\x -> get #age $ modB x) 100
                  ]
  , bgroup "modR" [ bench "10" $ nf (\x -> age $ modR x) 10
                  , bench "100" $ nf (\x -> age $ modR x) 100
                  ]
  ]
main :: IO ()
main = defaultMain
  [ bgroup "modB" [ bench "10" $ nf (\x -> get #age $ modB x) 10
                  , bench "100" $ nf (\x -> get #age $ modB x) 100
                  ]
  , bgroup "modR" [ bench "10" $ nf (\x -> age $ modR x) 10
                  , bench "100" $ nf (\x -> age $ modR x) 100
                  ]
  ]
main = defaultMain
  [ bgroup "modB" [ bench "10" $ nf (\x -> get #age $ modB x) 10
                  , bench "100" $ nf (\x -> get #age $ modB x) 100
                  ]
  , bgroup "modR" [ bench "10" $ nf (\x -> age $ modR x) 10
                  , bench "100" $ nf (\x -> age $ modR x) 100
                  ]
  ]