[project @ 1997-09-05 14:11:05 by simonm]
[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg006.hs
1 main = print (length thirteen_ones)
2      where
3         thirteen_ones   = take (13::Int) ones
4
5         ones :: [Int]
6         ones            = 1 : ones