Test Trac #5962
[packages/base.git] / tests / length001.hs
1
2 module Main (main) where
3
4 import Data.List
5
6 main :: IO ()
7 main = do print (genericLength [1..10000000] :: Int)
8 print (genericLength [1..10000000] :: Integer)