load crack$
lisp(nfct_:=17)$

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