procedure vlconvert(var s: scalar; var v: vector; var l: ltuple);
var
  i: integer;
begin { vlconvert }
  for i:=0 to lmax-1 do l[i]:=v[i];
  vlho(lmax,v,s,l[lmax]);
end { vlconvert };