let to_list v = List.init (size v) ((+) v.lo)