-- size must be >= 0
makeVector :: Int -> a -> SVector a
makeVector size val =
  let (low, high) = getLVecBounds size
  in  array (low, high) $ zip [low..high] (repeat val)
makeVector :: Int -> a -> SVector a
makeVector size val =
  let (low, high) = getLVecBounds size
  in  array (low, high) $ zip [low..high] (repeat val)
makeVector size val =
  let (low, high) = getLVecBounds size
  in  array (low, high) $ zip [low..high] (repeat val)