Function Shrink-Vector

Part of:

package kmrcl
( shrink-vector < str > < size > )