{-# LANGUAGE BangPatterns #-}

module Main where
    


import qualified Data.Vector.Unboxed.Mutable      as UM
import Control.Monad.Primitive    

import System.IO.Unsafe (unsafePerformIO)



foo :: ()
foo = unsafePerformIO $ do
            _ <- UM.replicate 1 0.0 :: IO (UM.MVector RealWorld Double)
            return ()

main :: IO ()
main = print ()