{-# OPTIONS_GHC -fllvm -O3  -optlo-O3 -optlc-O=3 -funbox-strict-fields #-}
module Test (sum) where

import Prelude hiding (sum)
import Data.Int (Int32)
import Data.Vector.Unboxed (Vector)
import qualified Data.Vector.Unboxed as U

sum :: Vector Int32 -> Int32
sum v = U.mfold' (+) (+) 0 v