load crack$
lisp(nfct_:=18)$

off batch_mode$
list_of_variables:=
{}$
list_of_functions:=
{p6,
q11,
q17,
q1,
q5,
q6,
q3,
q10,
p1,
q16,
p2,
q14,
p3,
q12,
q7,
q4,
p5,
q2,
q13,
q15,
q8,
p4,
q9}$
list_of_equations:=
{p4*q9,
p4*q8,
p4*q15,
2*p5*(q13 - 3/2*q2),
2*p5*(q13 - q2 - 1/2*q4),
2*p5*(q13 - q2 - 1/2*q7),
p3*q15 - 2*p4*q12,
p2*q15 - 2*p4*q14,
p3*q16 - p5*q4 - p5*q9,
p3*q16 - p5*q7 - p5*q9,
2*(p1*q13 - p2*q13 - 1/2*p2*q2),
3*(p4*q10 + 10/3*p4*q8 - 7*p5*q15),
p1*q14 - p2*q3 - 6*p4*q13,
p1*q16 - p2*q16 + p5*q6 + p5*q8,
p1*q16 - p2*q16 - p5*q5 + p5*q8,
p1*q16 - 2*p2*q16 - p5*q1 + p5*q10,
2*(p3*q16 - 1/2*p5*q4 - 1/2*p5*q7 - p5*q9),
p1*q8 + p2*q6 + 2*p5*q14 - p5*q3,
p1*q8 - p2*q5 + 2*p5*q14 - p5*q3,
4*(p1*q13 + 1/4*p1*q2 - p2*q13 - p2*q2),
p1*q14 + p2*q14 - p2*q3 - 3*p4*q4,
p1*q14 + p2*q14 - p2*q3 - 3*p4*q7,
4*(p1*q15 + 21/4*p2*q15 - 5/2*p4*q14 - p4*q3),
p1*q16 - 2*p2*q16 - 2*p5*q1 + p5*q10 + p5*q5,
3*(p2*q17 + p3*q16 - 1/3*p5*q11 + 1/3*p5*q13 - 1/3*p6*q10),
p1*q16 - 2*p2*q16 - p5*q1 + p5*q10 + p6*q2,
p1*q16 - 2*p2*q16 - 2*p5*q1 + p5*q10 - p5*q6,
2*(p1*q16 - p2*q16 - 1/2*p5*q5 + 1/2*p5*q6 + p5*q8),
p2*q4 + p2*q7 - 2*p3*q8 - 20*p4*q16 + 4*p5*q12,
4*(p1*q13 + 1/4*p1*q4 - 1/2*p2*q13 - 3/4*p2*q2 - 3/4*p2*q4),
4*(p1*q13 + 1/4*p1*q7 - 1/2*p2*q13 - 3/4*p2*q2 - 3/4*p2*q7),
p2*q4 + p2*q9 - p3*q8 - 10*p4*q16 + 2*p5*q12,
p2*q7 + p2*q9 - p3*q8 - 10*p4*q16 + 2*p5*q12,
4*(p1*q8 - 3/4*p2*q5 + 3/4*p2*q6 + 3*p5*q14 - 3/2*p5*q3),
p1*q14 - p2*q3 - 6*p4*q11 - 20*p4*q9 + 42*p6*q15,
2*(p2*q12 - 1/2*p3*q14 + 3/2*p4*q6 - 5*p4*q8 + 21/2*p5*q15),
2*(p2*q12 - 1/2*p3*q14 - 3/2*p4*q5 - 5*p4*q8 + 21/2*p5*q15),
3*(p1*q14 + 5/3*p2*q14 - 4/3*p2*q3 - 20/3*p4*q13 - 5/3*p4*q2),
p1*q16 - 2*p2*q16 - p5*q5 + p5*q6 + 2*p5*q8 + 2*p6*q4,
2*(p1*q16 - 2*p2*q16 + 1/2*p5*q10 - 1/2*p5*q5 + 1/2*p5*q6 + p6*q13),
6*(p2*q17 + 2/3*p3*q16 + 1/6*p5*q4 + 1/6*p5*q7 - 1/3*p5*q9 - 2/3*p6*q8),
3*(p1*q17 + 2*p3*q16 - 2/3*p5*q11 - 1/3*p5*q4 - 2/3*p5*q9 - 2/3*p6*q1),
p1*q16 - 2*p2*q16 - p5*q5 + p5*q6 + 2*p5*q8 + 2*p6*q7,
3*(p1*q17 + 2*p3*q16 - 2/3*p5*q11 - 1/3*p5*q7 - 2/3*p5*q9 - 2/3*p6*q1),
2*(p1*q8 - 1/2*p2*q5 + 1/2*p2*q6 - p2*q8 + 2*p5*q14 - p5*q3),
2*(p1*q16 + p2*q16 - 3*p3*q17 - 1/2*p5*q10 - 1/2*p5*q5 + 1/2*p5*q6 + p6*q11),
2*(p1*q16 + 2*p2*q16 - 3*p3*q17 - 1/2*p5*q5 + 1/2*p5*q6 - p5*q8 + 2*p6*q9),
2*(p1*q16 - 2*p2*q16 + 1/2*p5*q10 - 1/2*p5*q5 + p5*q6 + p5*q8 + p6*q2),
2*(p1*q16 - 2*p2*q16 + 1/2*p5*q10 - p5*q5 + 1/2*p5*q6 + p5*q8 + p6*q2),
p2*q4 + p2*q7 + 4*p2*q9 + 2*p3*q8 + 40*p4*q16 - 4*p5*q12 - 8*p6*q14,
2*(p1*q16 - 2*p2*q16 - 3/2*p5*q1 + 1/2*p5*q10 + 1/2*p5*q5 + 1/2*p5*q6 + p5*q8 + 
p6*q4),
6*(p2*q17 + p3*q16 - 1/3*p5*q11 + 1/6*p5*q2 + 1/6*p5*q4 + 1/6*p5*q7 - 1/3*p6*q10
 - 1/3*p6*q8),
4*(p1*q16 - 2*p2*q16 - 1/2*p5*q1 + 1/2*p5*q10 - 1/4*p5*q5 + 1/4*p5*q6 + 1/2*p5*
q8 + p6*q13),
3*(p1*q17 + 2*p3*q16 - 2/3*p5*q11 - 2/3*p5*q13 + 1/3*p5*q4 + 1/3*p5*q7 - 2/3*p5*
q9 - 2/3*p6*q5),
3*(p1*q17 + 2*p3*q16 - 2/3*p5*q11 - 2/3*p5*q13 + 1/3*p5*q4 + 1/3*p5*q7 - 2/3*p5*
q9 + 2/3*p6*q6),
3*(p1*q17 + 2*p3*q16 - 2/3*p5*q11 - 1/3*p5*q2 - 1/3*p5*q4 + 1/3*p5*q7 - 2/3*p5*
q9 + 2/3*p6*q6),
2*(p1*q16 - 2*p2*q16 - 3/2*p5*q1 + 1/2*p5*q10 - 1/2*p5*q5 - 1/2*p5*q6 + p5*q8 + 
p6*q7),
3*(p1*q17 + 2*p3*q16 - 2/3*p5*q11 - 1/3*p5*q2 + 1/3*p5*q4 - 1/3*p5*q7 - 2/3*p5*
q9 - 2/3*p6*q5),
p1*q10 + p1*q8 - p2*q1 - 2*p3*q11 - 2*p3*q9 - 60*p4*q17 - 3*p5*q3 + 12*p6*q12,
p1*q10 + p1*q8 - p2*q1 - 2*p2*q10 - 2*p2*q8 - 2*p3*q13 + 12*p5*q14 - 3*p5*q3,
5*(p1*q16 + 2/5*p2*q16 - 12/5*p3*q17 - 3/5*p5*q1 - 1/5*p5*q10 - 1/5*p5*q5 + 1/5*
p5*q6 + 4/5*p6*q11 + 2/5*p6*q9),
6*(p2*q17 + p3*q16 - 1/3*p5*q11 + 1/3*p5*q13 + 1/3*p5*q2 - 1/6*p5*q4 - 1/6*p5*q7
 - 1/3*p5*q9 - 1/3*p6*q10),
2*(p1*q8 - 1/2*p2*q5 + 1/2*p2*q6 + p2*q8 - 2*p3*q9 - 30*p4*q17 - 2*p5*q14 - p5*
q3 + 4*p6*q12),
2*(p1*q13 - p2*q11 - 1/2*p2*q2 - p2*q9 - p3*q10 - p3*q8 - 30*p4*q16 + 6*p5*q12 +
 6*p6*q14),
p1*q9 - p2*q11 - p2*q13 + p2*q4 + p2*q7 + 2*p3*q8 + 20*p4*q16 - 4*p5*q12 - p6*q3
,
p1*q6 - p1*q8 + p2*q1 - p2*q10 - 3*p2*q6 + 2*p2*q8 + 4*p3*q13 - 12*p5*q14 + 3*p5
*q3,
p1*q5 + p1*q8 - p2*q1 + p2*q10 - 3*p2*q5 - 2*p2*q8 - 4*p3*q13 + 12*p5*q14 - 3*p5
*q3,
3*(p1*q17 + 2*p3*q16 - p5*q11 - 1/3*p5*q13 - 1/3*p5*q2 + 1/3*p5*q4 + 1/3*p5*q7 -
 1/3*p6*q1 - 1/3*p6*q5 + 1/3*p6*q6),
p1*q2 + p1*q4 + p1*q7 - 4*p3*q1 - 2*p3*q10 - 2*p3*q5 + 2*p3*q6 - 120*p4*q16 + 24
*p5*q12 + 6*p6*q3,
2*(p1*q12 + 3*p2*q12 - 1/2*p3*q14 - 1/2*p3*q3 - 5/2*p4*q1 - 5*p4*q10 - 5*p4*q5 +
 5*p4*q6 - 15*p4*q8 + 105/2*p5*q15),
2*(p1*q10 + 1/2*p1*q5 - 1/2*p1*q6 - 2*p2*q1 - p2*q10 - p2*q5 + p2*q6 - 2*p3*q13 
- 2*p3*q2 + 12*p5*q14 - 3*p5*q3),
2*(p1*q4 + p1*q7 + p1*q9 + 1/2*p2*q4 + 1/2*p2*q7 + p2*q9 - p3*q5 + p3*q6 - p3*q8
 - 30*p4*q16 + 6*p5*q12),
2*(p1*q10 + p1*q5 + 1/2*p1*q6 + 1/2*p1*q8 - 3/2*p2*q1 - 1/2*p2*q10 + 1/2*p2*q5 +
 p2*q6 - p2*q8 - 2*p3*q4 + 6*p5*q14 - 3/2*p5*q3),
2*(p1*q10 - 1/2*p1*q5 - p1*q6 + 1/2*p1*q8 - 3/2*p2*q1 - 1/2*p2*q10 - p2*q5 - 1/2
*p2*q6 - p2*q8 - 2*p3*q7 + 6*p5*q14 - 3/2*p5*q3),
p1*q4 - 2*p1*q7 - 2*p1*q9 + 2*p2*q11 + p2*q2 + 2*p2*q4 - p2*q7 - 2*p3*q10 + 4*p3
*q6 - 4*p3*q8 - 120*p4*q16 + 24*p5*q12 + 6*p6*q3,
2*(p1*q4 - 1/2*p1*q7 + p1*q9 - p2*q11 - 1/2*p2*q2 + 1/2*p2*q4 - p2*q7 + p3*q10 +
 2*p3*q5 + 2*p3*q8 + 60*p4*q16 - 12*p5*q12 - 3*p6*q3)}$
list_of_inequalities:=
{g0067*p6 + g0068*p5 + g0069*p4 + g0070*p3 + g0071*p2 + g0072*p1,
g0050*q17 + g0051*q16 + g0052*q15 + g0053*q14 + g0054*q13 + g0055*q12 + g0056*
q11 + g0057*q10 + g0058*q9 + g0059*q8 + g0060*q7 + g0061*q6 + g0062*q5 + g0063*
q4 + g0064*q3 + g0065*q2 + g0066*q1,
g0031*q15 + g0032*q14 + g0033*q13 + g0034*q12 + g0035*q11 + g0036*q10 + g0037*q9
 + g0038*q8 + g0039*q7 + g0040*q6 + g0041*q5 + g0042*q4 + g0043*q3 + g0044*q2 + 
g0045*q1 + g0046*p4 + g0047*p3 + g0048*p2 + g0049*p1,
g0017*q16 + g0018*q14 + g0019*q13 + g0020*q10 + g0021*q8 + g0022*q6 + g0023*q5 +
 g0024*q4 + g0025*q3 + g0026*q2 + g0027*q1 + g0028*p5 + g0029*p2 + g0030*p1,
g0003*q16 + g0004*q14 + g0005*q13 + g0006*q10 + g0007*q8 + g0008*q7 + g0009*q6 +
 g0010*q5 + g0011*q3 + g0012*q2 + g0013*q1 + g0014*p5 + g0015*p2 + g0016*p1}$

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))$
