Vector2Element := function(v)

	local length, F, char, k;


	length := NumberOfColumns(v);
	F := Parent(v[1]);
	char := #F;
	F<e> := GF(char,length);

	k := F!0;


	for i in [0..length-1] do

		k := k + v[i+1]*e^(i);

	end for;


	return k;

end function;