vector :: [a] -> SVector a
vector vals =
  let bounds = getLVecBounds $ length vals
  in  listArray bounds vals
vector :: [a] -> SVector a
vector vals =
  let bounds = getLVecBounds $ length vals
  in  listArray bounds vals
vector vals =
  let bounds = getLVecBounds $ length vals
  in  listArray bounds vals