uvector-0.1: tests/Fusion/maximum.hs

import Data.Array.Vector
import Data.Bits
main = print . maximumU . mapU (*2) . mapU (`shiftL` 2) $ replicateU (100000000 :: Int) (5::Int)