"Source: Text/Ring/FldNum.text";
"Line: 927";
"Date: Fri Sep 26 12:10:11 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Ring/FldNum.text, line: 927
// Example: H36E6 ()
print "Example: H36E6";
ei := GetEchoInput();
SetEchoInput(true);
R<x> := PolynomialRing(Integers());
Composite := function( K, L )
    T<y> := PolynomialRing( K );
    f := T!DefiningPolynomial( L );	
    ff := Factorization(f);
    LKM := NumberField(ff[1][1]);
    return AbsoluteField(LKM);
end function;
K := NumberField(x^2-3);
L := NumberField(x^2-2);
M := NumberField(x^2-5);
KL := Composite(K, L);
S<s> := PolynomialRing(BaseField(KL));
KLM<w> := Composite(KL, M);
KLM;
KLM2 := AbsoluteField(NumberField([x^2-3, x^2-2, x^2-5]));
KLM2;
AbsoluteField(ext<Rationals() | [x^2-3, x^2-2, x^2-5]>);
KLM3 := NumberField([x^2-3, x^2-2, x^2-5]: Abs);
AbsoluteField(KLM3);
SimpleExtension(KLM3);
SetEchoInput(ei);
