[project @ 1999-01-23 18:10:00 by sof]
[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg046.hs
1 module Main where
2
3 import IO
4
5 -- !!! CAF space leaks
6
7 main = lots_of_xs 10000
8
9 lots_of_xs 0 = return ()
10 lots_of_xs n = putChar 'x' >> lots_of_xs (n-1)