load crack$
lisp(nfct_:=12)$

off batch_mode$
list_of_variables:=
{}$
list_of_functions:=
{q11,
p3,
q10,
q3,
q4,
q7,
p2,
q8,
q5,
q9,
q2,
q6,
p1,
q1}$
list_of_equations:=
{p1*q1,
p1*q6,
p1*q2,
p1*q9,
p1*q5,
p2*(q2 + 2*q8),
p2*(q2 - 2*q7),
p1*(q1 + q4),
p1*(q2 + q3),
p1*(q2 - q8),
p1*(q2 + q7),
p2*(q2 - q7 + q8),
p1*(q3 + q7 - q8),
2*(p1*q10 - 1/2*p2*q1 - p2*q6),
2*(p1*q10 - 1/2*p2*q1 - p2*q9),
2*(p2*q2 - 1/2*p2*q7 + p2*q8 + 3/2*p3*q6),
2*(p1*q10 - 1/2*p2*q1 - 1/2*p2*q6 - 1/2*p2*q9),
2*(p2*q2 - p2*q7 + 1/2*p2*q8 + 3/2*p3*q9),
10*(p1*q11 + 1/5*p2*q2 + 1/10*p2*q7 - 1/10*p2*q8 - 3/10*p3*q1),
2*(p2*q2 + 3/2*p2*q3 - 3/2*p2*q7 + 3/2*p2*q8 + 3*p3*q5),
8*(p1*q10 - 1/4*p2*q1 + 1/8*p2*q6 + 1/8*p2*q9 - 3/8*p3*q2),
8*(p1*q10 - 1/4*p2*q1 - 1/4*p2*q4 - 1/4*p2*q5 + 1/8*p2*q6 - 3/8*p3*q7),
8*(p1*q10 - 1/4*p2*q1 - 1/4*p2*q4 - 1/4*p2*q5 + 1/8*p2*q9 + 3/8*p3*q8),
20*(p1*q11 + 1/20*p2*q2 + 3/20*p2*q3 + 3/20*p2*q7 - 3/20*p2*q8 - 3/20*p3*q1 - 3/
10*p3*q4),
8*(p1*q10 - 1/4*p2*q1 - 1/4*p2*q4 + 1/2*p2*q5 - 1/8*p2*q6 - 1/8*p2*q9 - 3/8*p3*
q3),
12*(p1*q10 - 1/12*p2*q1 - 1/3*p2*q4 + 1/6*p2*q5 + 1/12*p2*q6 + 1/12*p2*q9 - 1/4*
p3*q2 - 1/4*p3*q3),
12*(p1*q10 - 1/6*p2*q1 - 1/3*p2*q4 - 1/3*p2*q5 + 1/12*p2*q6 + 1/12*p2*q9 - 1/4*
p3*q7 + 1/4*p3*q8)}$
list_of_inequalities:=
{g0040*p3 + g0041*p2 + g0042*p1,
g0029*q11 + g0030*q10 + g0031*q9 + g0032*q8 + g0033*q7 + g0034*q6 + g0035*q5 + 
g0036*q4 + g0037*q3 + g0038*q2 + g0039*q1,
g0019*q9 + g0020*q8 + g0021*q7 + g0022*q6 + g0023*q5 + g0024*q4 + g0025*q3 + 
g0026*q2 + g0027*q1 + g0028*p1,
g0011*q10 + g0012*q8 + g0013*q7 + g0014*q6 + g0015*q5 + g0016*q3 + g0017*q2 + 
g0018*p2,
g0003*q10 + g0004*q9 + g0005*q8 + g0006*q7 + g0007*q5 + g0008*q3 + g0009*q2 + 
g0010*p2}$

solution_:=crack(list_of_equations,
                 list_of_inequalities,
                 list_of_functions,
                 list_of_variables)$















end$

These data were produced with the following input:

lisp( old_history := 
'(l 2 ; cp (*comma* 1 3 45 11 53 27 8 20 30 47 21 38) sb 0 s w nil n w))$
