uvector-0.1: tests/Fusion/take.hs

import Data.Array.Vector
import Data.Bits
main = print . lengthU . takeU 100000 . replicateU 1000000 $ (7 :: Int)