path: root/libraries/base/tests/length001.hs

module Main (main) where

import Data.List (genericLength)

main :: IO ()
main = do print (genericLength [1..10000000] :: Int)
          print (genericLength [1..10000000] :: Integer)