path: root/testsuite/tests/ghc-regress/codeGen/should_run/cgrun046.hs

module Main where

import System.IO

-- !!! CAF space leaks

main = lots_of_xs 10000

lots_of_xs 0 = return ()
lots_of_xs n = putChar 'x' >> lots_of_xs (n-1)