Fix some more tests on Win64
[packages/base.git] / tests / list003.hs
1 -- !!! Test that length doesn't give a stack overflow
2
3 module Main (main) where
4
5 main :: IO ()
6 main = print $ length $ filter odd [0 .. 9999999]
7