read `GeometryMiracles.txt`: 


P:=RanLiP(4,100):


print(`Here is a quartet of four random points in the (complex) plane, i.e. the Four Adams`):
lprint(P):


print(``):
print(`----------------------------------`):
print(``):

print(`Here is a random family tree with 12 generations`):
C:=RanObjF4(P,12,100)[1][1]:

print(``):
print(`----------------------------------`):
print(``):

lprint(C):
print(`Here is the corrresponding family circuit`):
C:=TtoC(C):
lprint(C):


print(``):
print(`----------------------------------`):
print(``):

print(`Here the detailed  genealogy of the lucky 12-generation descendant of the above-mentioned four  Adams`):

Ge(P,C):


quit: