uvector-0.1: tests/Fusion/lookup.hs

import Data.Array.Vector
import Data.Bits
main = print . lookupU 10000
             . zipU (enumFromToU 1 (10000000 :: Int)) $
                    (replicateU (10000000 :: Int) (42::Int))