uvector-0.1.1.1: tests/Fusion/head.hs

import Data.Array.Vector
import Data.Bits
main = print . headU . mapU (`shiftL` 1) . replicateU 1000000000 $ (7 :: Int)