Element2Vector := function(c)

	local F, e, degree, char, VDeg, R, prim, v, ln, p;


	F := Parent(c);
	e := PrimitiveElement(F);
	degree := Degree(F);
	char := Characteristic(F);
	VDeg := VectorSpace(GF(char), degree);
	R<x> := PolynomialRing(GF(char));

	prim := PrimitivePolynomial(GF(char), degree);
	v := [];


	if c eq 0 then

		v := Zero(VDeg);

	else		
		if c eq 1 then

			ln := 0;

		else
			ln := Log(e, c);

		end if;

		p := x^ln mod(prim);


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

			v:=Append(v,Coefficient(p,i));

		end for;

	end if;


	return VDeg!v;

end function;