module Main where

import Control.Monad (forM_)

import GHC.GC_Hook


main :: IO ()
main = do
  setGCHook
  forM_ [1..10] $ \i -> do
    let l = [i..10000]
    print (sum l + product l + length l)
  getGCLog >>= print