module Foo (module Foo) where

import Data.Array.IArray
import Data.Array.Unboxed

big1 :: UArray Int Char
big1 = array (0,1000) $! map (\i -> (i,toEnum i)) [0..1000]

big2 = sum [0..10000]::Int