test :: (Show a, Num a, MV.Unbox a) => V.Vector a -> V.Vector a
test l = runST $ do
  ml <- V.thaw l
  MV.write ml 1 10
  MV.write ml 2 12
  V.freeze ml