main :: IO ()
main = do
  print $ let {-# NOINLINE l #-}
              l = [1..100000000 :: Int]
          in sum l + product l