path: root/testsuite/tests/perf/space_leaks/space_leak_001.hs

import Data.List

main :: IO ()
main = print $ length $ show (foldl' (*) 1 [1..100000] :: Integer)