load crack$
lisp(nfct_:=16)$

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