withRStorable_ :: (Storable a, PrimMonad m)=> a -> (Ptr a -> m ()) -> m ()
withRStorable_ val fun = do
    valVect <- M.replicate 1 val
    unsafeWithPrim valVect fun

    return ()

withRStorable_ :: (Storable a, PrimMonad m)=> a -> (Ptr a -> m ()) -> m ()
withRStorable_ val fun = do
    valVect <- M.replicate 1 val
    unsafeWithPrim valVect fun

    return ()

withRStorable_ val fun = do
    valVect <- M.replicate 1 val
    unsafeWithPrim valVect fun

    return ()
