$func  Vector         e.Source = s.Vector;
$func  Vector-To-Exp  s.Vector = e.Exp;
$func  Vector-Init    s.Vector s.Len e.Fill = ;
$func  Vector-Fill    s.Vector e.Fill = ;
$func  Vector-Length  s.Vector = s.Len;
$func  Vector-Ref     s.Vector s.Index = e.Exp;
$func  Vector-Set     s.Vector s.Index e.Exp = ;
$func  Vector-Replace s.Vector e.Source = ;
$func  Subvector      s.Vector s.Index s.Len = s.NewVector;
$func  Subvector-Fill s.Vector s.Index s.Len e.Fill = ;