load crack$
lisp(nfct_:=28)$

off batch_mode$
list_of_variables:=
{}$
list_of_functions:=
{q27,
q6,
q7,
q20,
q5,
p5,
q22,
q23,
q13,
q14,
q12,
q15,
q8,
q11,
q19,
q17,
q21,
q4,
q1,
q26,
q24,
q9,
q10,
q2,
q3,
q16,
p1,
p2,
p3,
q18,
p4,
q25}$
list_of_equations:=
{p4*q25,
p3*q18,
p3*q25,
p2*q25,
p1*q25,
p1*q16,
p4*(q2 - q3),
p3*(q10 + q18),
p1*(q16 + q9),
p4*(q2 + q24 - q3),
p2*q26 - p4*q2,
2*(p1*q26 - 1/2*p4*q1),
2*(p3*q26 - 1/2*p4*q4),
p2*q26 - p4*q3,
p2*q18 - 2*p3*q21,
p2*q18 + p3*q4,
p2*q18 + p3*q17,
4*(p1*q16 + 1/4*p2*q1),
p1*q17 + p2*q16,
2*(p1*q19 + 1/2*p2*q16),
p2*q4 - 4*p3*q18,
p1*q1 - p2*q16,
2*(p2*q26 - 1/2*p4*q2 - 1/2*p4*q3),
p1*q18 + p2*q17 + p3*q16,
4*(p1*q11 + 3/4*p2*q16 + 1/4*p2*q9),
p2*q10 + 3*p2*q18 + 4*p3*q8,
p4*(q10 + q12 - q15 - 2*q16 - 2*q18 + q24 + q9),
2*(p1*q26 + p3*q26 - 1/2*p4*q1 - 1/2*p4*q4),
2*(p1*q26 - p3*q26 - 1/2*p4*q1 + 1/2*p4*q4),
p2*q10 + p2*q18 - 4*p3*q14 - 4*p3*q21,
4*(p1*q13 + p1*q19 + 1/4*p2*q16 + 1/4*p2*q9),
2*(p4*q2 + 1/2*p4*q23 + p4*q24 - p4*q3 - 3/2*p5*q22),
2*(p4*q2 - p4*q23 - 1/2*p4*q24 - p4*q3 - 3/2*p5*q25),
2*(p2*q10 + 1/2*p2*q18 + p3*q21 + 3*p3*q4 + 2*p3*q5),
2*(p1*q18 + 1/2*p2*q17 - p2*q21 - p3*q18 - p3*q20),
4*(p1*q18 + 1/2*p2*q17 + 1/4*p2*q4 + 1/2*p3*q2 + 1/2*p3*q3),
5*(p2*q10 + 3/5*p2*q18 + 6/5*p3*q11 + 6/5*p3*q17 + 2/5*p3*q8),
4*(p1*q17 + 1/2*p2*q16 + 1/4*p2*q2 + 1/4*p2*q3 + 1/2*p3*q1),
2*(p1*q16 - p1*q20 - 1/2*p2*q17 - p2*q19 - p3*q16),
2*(p1*q15 + 1/2*p2*q11 + 1/2*p2*q13 + p2*q19 + p3*q16),
2*(p1*q18 - 1/2*p2*q14 - p2*q21 + 1/2*p2*q8 - p3*q12),
2*(p1*q11 + 3*p1*q17 + 3*p1*q8 + 3/2*p2*q16 + 5/2*p2*q9),
6*(p1*q1 + 1/3*p1*q19 + 2/3*p1*q7 - 1/6*p2*q16 - 1/3*p2*q9),
2*(p1*q4 - p2*q18 + 1/2*p2*q2 + 1/2*p2*q3 - 2*p3*q17),
2*(p1*q2 + p1*q3 + 1/2*p2*q1 - p2*q17 - 2*p3*q16),
6*(p3*q26 + 1/6*p4*q17 - 1/3*p4*q21 - 1/6*p4*q25 - 1/3*p4*q4 - 1/3*p4*q8),
3*(p2*q26 + 2/3*p4*q16 - 1/3*p4*q20 - 1/3*p4*q23 - 2/3*p4*q3 - 2/3*p4*q9),
3*(p2*q26 + 2/3*p4*q10 - 2/3*p4*q18 - 2/3*p4*q2 - 1/3*p4*q20 + 1/3*p4*q23),
6*(p1*q26 - 1/3*p4*q1 + 1/3*p4*q11 - 1/6*p4*q17 - 1/3*p4*q19 - 1/6*p4*q25),
4*(p1*q11 + 1/4*p2*q16 + 1/2*p2*q3 + 1/4*p2*q6 + 1/2*p3*q1 + 1/2*p3*q19),
4*(p1*q10 + 5/4*p2*q11 + 3/4*p2*q17 + 1/4*p2*q8 + 3/2*p3*q16 + 1/2*p3*q9),
2*(p1*q10 + 3*p1*q18 + 1/2*p2*q11 + 3/2*p2*q17 + 5/2*p2*q8 + 2*p3*q9),
2*(p1*q21 + p1*q4 - 1/2*p2*q18 + p2*q2 + 1/2*p2*q6 - 2*p3*q8),
2*(p1*q18 + p2*q17 - 1/2*p2*q25 + p2*q4 + 5*p3*q18 - 2*p3*q2 + p3*q24),
2*(p1*q17 - p1*q21 + 1/2*p2*q16 - 1/2*p2*q18 - p2*q20 - p3*q17 - p3*q19),
10*(p1*q16 + 1/5*p1*q24 + 2/5*p1*q3 - 1/5*p2*q1 + 1/5*p2*q17 + 1/10*p2*q25 + 1/5
*p3*q16),
5*(p2*q26 + 2*p3*q27 - 2/5*p4*q2 - 1/5*p4*q23 + 1/5*p4*q24 - 1/5*p4*q3 - 2/5*p4*
q6 - 3/5*p5*q4),
24*(p3*q26 - 1/12*p4*q14 - 1/6*p4*q21 - 1/24*p4*q25 - 1/6*p4*q4 - 1/12*p4*q5 - 1
/24*p4*q8 - 1/8*p5*q10),
24*(p1*q26 - 1/6*p4*q1 + 1/24*p4*q11 - 1/12*p4*q13 - 1/6*p4*q19 - 1/24*p4*q25 - 
1/12*p4*q7 - 1/8*p5*q9),
10*(p1*q27 - 1/2*p2*q26 + 1/10*p4*q2 - 1/10*p4*q23 + 1/10*p4*q24 + 1/5*p4*q3 + 1
/5*p4*q6 - 3/10*p5*q1),
2*(p2*q12 - 1/2*p2*q2 - p2*q20 + 1/2*p2*q23 + 1/2*p2*q24 + 2*p3*q14 - 4*p3*q21 -
 p3*q4),
2*(p1*q18 + 1/2*p2*q25 + 1/2*p2*q4 + p2*q8 + 2*p3*q10 + p3*q18 - p3*q2 - p3*q23)
,
2*(p1*q1 - 2*p1*q13 + 4*p1*q19 - p2*q15 + p2*q20 + 1/2*p2*q23 + 1/2*p2*q24 + 1/2
*p2*q3),
2*(p1*q16 - p1*q23 + p1*q3 + 2*p1*q9 - 1/2*p2*q1 + p2*q11 - 1/2*p2*q25 + p3*q16)
,
10*(p2*q26 + 2*p3*q27 - 1/10*p4*q2 - 3/10*p4*q23 + 3/10*p4*q24 - 2/5*p4*q3 - 3/
10*p4*q6 - 3/10*p5*q4 - 3/5*p5*q5),
2*(p2*q26 + 5*p3*q27 - p4*q12 + p4*q18 - p4*q2 + 1/2*p4*q20 - 1/2*p4*q24 + 1/2*
p4*q3 - 3/2*p5*q4),
18*(p3*q26 - 1/9*p4*q14 + 1/18*p4*q17 - 1/9*p4*q21 - 1/18*p4*q25 - 1/9*p4*q4 - 1
/9*p4*q5 - 1/18*p4*q8 - 1/6*p5*q10),
8*(p1*q26 + p3*q26 - 1/4*p4*q1 + 1/8*p4*q22 - 1/4*p4*q25 - 1/4*p4*q4 - 1/4*p4*q5
 - 1/4*p4*q7 + 3/8*p5*q23),
8*(p1*q26 + p3*q26 - 1/4*p4*q1 - 1/4*p4*q22 + 1/8*p4*q25 - 1/4*p4*q4 - 1/4*p4*q5
 - 1/4*p4*q7 - 3/8*p5*q24),
24*(p3*q26 - 1/24*p4*q14 - 1/24*p4*q17 - 1/6*p4*q21 + 1/24*p4*q25 - 1/6*p4*q4 - 
1/12*p4*q5 + 1/24*p4*q8 - 1/4*p5*q18),
12*(p2*q26 - 1/6*p4*q15 - 1/6*p4*q20 - 1/6*p4*q23 + 1/12*p4*q24 - 1/3*p4*q3 - 1/
12*p4*q6 - 1/12*p4*q9 - 1/4*p5*q11),
8*(p1*q26 + 5/8*p2*q27 - 1/4*p3*q26 - 1/4*p4*q1 + 1/8*p4*q22 + 1/8*p4*q25 + 1/8*
p4*q4 - 1/2*p4*q7 - 3/8*p5*q3),
24*(p1*q26 - 1/6*p4*q1 - 1/24*p4*q11 - 1/24*p4*q13 + 1/24*p4*q17 - 1/6*p4*q19 + 
1/24*p4*q25 - 1/12*p4*q7 - 1/4*p5*q16),
18*(p1*q26 - 1/9*p4*q1 + 1/18*p4*q11 - 1/9*p4*q13 - 1/18*p4*q17 - 1/9*p4*q19 - 1
/18*p4*q25 - 1/9*p4*q7 - 1/6*p5*q9),
12*(p2*q26 + 1/12*p4*q10 - 1/6*p4*q12 - 1/3*p4*q2 - 1/6*p4*q20 + 1/6*p4*q23 - 1/
12*p4*q24 - 1/12*p4*q6 - 1/4*p5*q8),
20*(p1*q27 - 1/2*p2*q26 + 1/5*p4*q2 - 3/20*p4*q23 + 3/20*p4*q24 + 1/20*p4*q3 + 3
/20*p4*q6 - 3/20*p5*q1 - 3/10*p5*q7),
2*(p1*q26 + 5/2*p2*q27 - 4*p3*q26 - 1/2*p4*q1 - 1/2*p4*q22 - 1/2*p4*q25 + p4*q4 
+ 2*p4*q5 - 3/2*p5*q2),
10*(p1*q27 - 1/5*p2*q26 + 1/5*p4*q15 + 1/5*p4*q16 - 1/10*p4*q2 - 1/10*p4*q20 - 1
/10*p4*q24 + 1/5*p4*q3 - 3/10*p5*q1),
4*(p1*q10 + 1/2*p2*q11 + 1/4*p2*q17 + 1/2*p2*q4 + 1/2*p2*q5 + 1/2*p3*q2 + 1/2*p3
*q20 + 3/2*p3*q3 + 1/2*p3*q6),
p1*q18 + p2*q21 + 2*p2*q4 + p2*q5 + p2*q8 - 2*p3*q10 - p3*q18 + 2*p3*q2 + p3*q6,
p1*q16 + 2*p1*q3 + p1*q6 + 2*p1*q9 + 2*p2*q1 - p2*q11 + p2*q19 + p2*q7 - p3*q16,
6*(p1*q2 + 1/3*p1*q20 + 1/3*p1*q3 + 1/3*p1*q6 + 1/3*p2*q1 - 1/6*p2*q17 + 1/3*p2*
q7 - 1/3*p2*q8 - 2/3*p3*q9),
7*(p2*q26 - 10/7*p3*q27 - 1/7*p4*q10 - 1/7*p4*q12 - 4/7*p4*q18 - 4/7*p4*q2 + 1/7
*p4*q20 - 1/7*p4*q23 - 1/7*p4*q6 + 6/7*p5*q21),
24*(p3*q26 - 1/24*p4*q11 - 1/12*p4*q14 + 1/12*p4*q17 - 1/6*p4*q21 - 1/12*p4*q25 
- 1/6*p4*q4 - 1/12*p4*q5 - 1/12*p4*q8 - 1/8*p5*q10),
72*(p3*q26 - 5/36*p4*q14 - 1/72*p4*q17 - 1/18*p4*q21 + 1/72*p4*q25 - 1/18*p4*q4 
- 5/36*p4*q5 + 1/72*p4*q8 - 1/8*p5*q10 - 1/12*p5*q18),
12*(p1*q26 + p3*q26 - 1/6*p4*q1 + 1/12*p4*q22 + 1/12*p4*q25 - 1/6*p4*q4 - 1/3*p4
*q5 - 1/3*p4*q7 + 1/4*p5*q23 - 1/4*p5*q24),
36*(p3*q26 - 5/36*p4*q14 - 1/18*p4*q17 - 1/18*p4*q21 + 1/18*p4*q25 - 1/18*p4*q4 
- 1/9*p4*q5 + 1/18*p4*q8 - 1/12*p5*q10 - 1/6*p5*q18),
36*(p3*q26 - 1/9*p4*q14 - 1/36*p4*q17 - 1/9*p4*q21 + 1/36*p4*q25 - 1/12*p4*q4 - 
1/9*p4*q5 + 1/36*p4*q8 - 1/12*p5*q10 - 1/6*p5*q18),
6*(p1*q26 + 5/6*p2*q27 + 1/3*p3*q26 - 1/3*p4*q1 - 1/3*p4*q13 + 1/6*p4*q17 + 1/3*
p4*q19 - 1/6*p4*q22 - 1/6*p4*q4 - 1/2*p5*q3),
12*(p2*q26 - 1/12*p4*q15 - 1/6*p4*q16 - 1/6*p4*q2 - 1/6*p4*q20 + 1/12*p4*q24 - 1
/6*p4*q3 - 1/12*p4*q6 + 1/12*p4*q9 - 1/4*p5*q17),
12*(p2*q26 - 1/12*p4*q12 - 1/12*p4*q15 + 1/3*p4*q16 - 1/6*p4*q20 - 1/6*p4*q23 - 
1/3*p4*q3 - 1/12*p4*q6 - 1/4*p4*q9 - 1/4*p5*q11),
12*(p2*q26 - 1/12*p4*q10 - 1/12*p4*q12 + 1/6*p4*q18 - 1/6*p4*q2 - 1/6*p4*q20 - 1
/12*p4*q24 - 1/6*p4*q3 - 1/12*p4*q6 - 1/4*p5*q17),
10*(p1*q27 + 7/10*p2*q26 - 1/10*p4*q15 + 2/5*p4*q16 + 1/10*p4*q20 + 1/10*p4*q23 
- 2/5*p4*q3 - 1/10*p4*q6 + 1/10*p4*q9 - 3/5*p5*q19),
36*(p1*q26 - 1/18*p4*q1 - 1/18*p4*q11 - 5/36*p4*q13 + 1/18*p4*q17 - 1/18*p4*q19 
+ 1/18*p4*q25 - 1/9*p4*q7 - 1/6*p5*q16 - 1/12*p5*q9),
36*(p1*q26 - 1/12*p4*q1 - 1/36*p4*q11 - 1/9*p4*q13 + 1/36*p4*q17 - 1/9*p4*q19 + 
1/36*p4*q25 - 1/9*p4*q7 - 1/6*p5*q16 - 1/12*p5*q9),
72*(p1*q26 - 1/18*p4*q1 - 1/72*p4*q11 - 5/36*p4*q13 + 1/72*p4*q17 - 1/18*p4*q19 
+ 1/72*p4*q25 - 5/36*p4*q7 - 1/12*p5*q16 - 1/8*p5*q9),
12*(p2*q26 + 1/4*p4*q10 - 1/12*p4*q12 - 1/12*p4*q15 - 1/3*p4*q18 - 1/3*p4*q2 - 1
/6*p4*q20 + 1/6*p4*q23 - 1/12*p4*q6 - 1/4*p5*q8),
24*(p1*q26 - 1/6*p4*q1 + 1/12*p4*q11 - 1/12*p4*q13 - 1/12*p4*q17 - 1/6*p4*q19 - 
1/12*p4*q25 - 1/12*p4*q7 + 1/24*p4*q8 - 1/8*p5*q9),
2*(p1*q26 - 5/2*p2*q27 + 3*p3*q26 - 1/2*p4*q1 - p4*q14 - 1/2*p4*q17 + p4*q21 - 1
/2*p4*q22 - p4*q4 + 3/2*p5*q2),
2*(p1*q10 + 1/2*p2*q11 - 3/2*p2*q14 + 1/2*p2*q17 - p2*q21 - p3*q10 - p3*q12 - 2*
p3*q15 - p3*q18 - 2*p3*q20),
4*(p1*q12 + 1/2*p1*q15 - 1/2*p1*q16 + p1*q20 - 1/2*p1*q9 + 3/4*p2*q13 + 1/4*p2*
q17 + 1/2*p2*q19 + 1/4*p2*q8 + 1/2*p3*q9),
8*(p2*q26 - 5/2*p3*q27 - 5/8*p4*q10 - 1/4*p4*q12 - 1/4*p4*q18 - 1/4*p4*q2 + 1/4*
p4*q20 - 1/4*p4*q23 - 1/4*p4*q6 + 3/8*p5*q14 + 3/4*p5*q21),
2*(p4*q10 + p4*q12 - p4*q15 - 2*p4*q16 - 2*p4*q18 + 1/2*p4*q2 - p4*q23 + p4*q24 
- 1/2*p4*q3 + p4*q9 - 3/2*p5*q25),
p4*q10 + p4*q12 - p4*q15 - 2*p4*q16 - 2*p4*q18 + 2*p4*q2 - 2*p4*q23 + 2*p4*q24 -
 2*p4*q3 + p4*q9 - 3*p5*q25,
p4*q10 + p4*q12 - p4*q15 - 2*p4*q16 - 2*p4*q18 + 2*p4*q2 - 2*p4*q23 + p4*q24 - 2
*p4*q3 + p4*q9 - 3*p5*q25,
20*(p1*q27 + 2/5*p2*q26 - 1/10*p4*q15 + 1/10*p4*q16 + 1/10*p4*q20 + 1/10*p4*q23 
- 1/10*p4*q3 - 1/10*p4*q6 + 1/4*p4*q9 - 3/20*p5*q13 - 3/10*p5*q19),
12*(p1*q26 + 5/6*p2*q27 - 2/3*p3*q26 - 1/4*p4*q1 + 1/12*p4*q22 + 1/12*p4*q25 + 1
/6*p4*q4 + 1/6*p4*q5 - 1/3*p4*q7 - 1/4*p5*q3 - 1/4*p5*q6),
8*(p1*q26 + 5/4*p2*q27 - 3/2*p3*q26 - 1/4*p4*q1 - 1/8*p4*q22 - 1/8*p4*q25 + 3/8*
p4*q4 + 1/2*p4*q5 - 1/4*p4*q7 - 3/8*p5*q2 - 3/8*p5*q6),
3*(p1*q17 - 1/3*p1*q25 + 2/3*p1*q4 + 2/3*p2*q16 + 2/3*p2*q18 - 1/3*p2*q2 + 1/3*
p2*q24 + 1/3*p2*q3 - 2/3*p3*q1 + p3*q17 + 1/3*p3*q25),
2*(p1*q11 - p1*q14 - 1/2*p2*q10 - 1/2*p2*q12 - 3/2*p2*q15 + 1/2*p2*q16 - p2*q20 
- p3*q11 - p3*q13 - p3*q17 - 2*p3*q19),
2*(p1*q14 - p1*q17 + 2*p1*q21 - p1*q8 + 3/2*p2*q12 + 1/2*p2*q15 + 1/2*p2*q18 + 
p2*q20 - 1/2*p2*q9 + p3*q13 + p3*q8),
2*(p2*q26 - 10*p3*q27 - p4*q10 + 1/2*p4*q12 - 2*p4*q18 + 1/2*p4*q2 - 1/2*p4*q23 
+ p4*q24 - p4*q3 - 1/2*p4*q6 + 3/2*p5*q14 + 3/2*p5*q4),
6*(p1*q26 - 5/6*p2*q27 - 4/3*p3*q26 - 1/3*p4*q1 - 1/6*p4*q11 - 1/6*p4*q13 - 1/3*
p4*q17 + 1/3*p4*q19 - 1/6*p4*q22 + 1/3*p4*q4 + 1/3*p4*q5 + 1/2*p5*q20),
4*(p1*q26 + 5/2*p2*q27 + 2*p3*q26 - 1/4*p4*q1 + 1/2*p4*q11 - 1/4*p4*q13 + 1/2*p4
*q17 - 1/4*p4*q22 - 1/2*p4*q4 - 1/2*p4*q5 - 3/4*p5*q15 - 3/4*p5*q3),
18*(p2*q26 - 2/9*p4*q15 - 1/9*p4*q16 - 1/18*p4*q2 - 1/9*p4*q20 - 1/18*p4*q23 + 1
/9*p4*q24 - 1/9*p4*q3 - 1/9*p4*q6 + 1/18*p4*q9 - 1/6*p5*q11 - 1/6*p5*q17),
8*(p1*q26 - 5/8*p2*q27 - 3/4*p3*q26 - 1/4*p4*q1 + 1/8*p4*q14 - 1/4*p4*q17 - 1/4*
p4*q21 + 1/8*p4*q22 + 1/4*p4*q4 - 1/4*p4*q7 - 1/8*p4*q8 + 3/8*p5*q20),
18*(p2*q26 - 1/18*p4*q10 - 2/9*p4*q12 + 1/9*p4*q18 - 1/9*p4*q2 - 1/9*p4*q20 + 1/
18*p4*q23 - 1/9*p4*q24 - 1/18*p4*q3 - 1/9*p4*q6 - 1/6*p5*q17 - 1/6*p5*q8),
8*(p1*q26 - 5/4*p2*q27 + 1/2*p3*q26 - 1/4*p4*q1 - 1/8*p4*q14 - 1/4*p4*q17 - 1/8*
p4*q22 - 1/8*p4*q4 - 1/4*p4*q7 - 1/4*p4*q8 + 3/8*p5*q12 + 3/8*p5*q2),
20*(p1*q27 + 1/10*p2*q26 + 1/20*p4*q15 + 1/5*p4*q16 - 1/10*p4*q2 + 1/20*p4*q23 -
 1/10*p4*q24 + 1/20*p4*q3 - 1/20*p4*q6 + 1/10*p4*q9 - 3/20*p5*q1 - 3/20*p5*q13),
8*(p2*q26 - 5/2*p3*q27 - 1/2*p4*q10 - 1/8*p4*q12 - 1/2*p4*q18 - 1/4*p4*q2 + 1/8*
p4*q20 - 1/4*p4*q23 + 1/8*p4*q24 - 1/8*p4*q3 - 1/4*p4*q6 + 3/8*p5*q14 + 3/4*p5*
q21),
6*(p2*q26 + 5*p3*q27 + 1/3*p4*q10 - 1/6*p4*q12 + 1/3*p4*q18 + 1/6*p4*q20 - 1/3*
p4*q23 + 1/6*p4*q24 - 1/6*p4*q3 - 1/3*p4*q6 - 1/2*p5*q14 - 1/2*p5*q4 - p5*q5),
8*(p2*q26 + 5*p3*q27 + 1/4*p4*q10 - 1/4*p4*q12 - 1/8*p4*q15 + 1/2*p4*q18 - 1/4*
p4*q2 + 1/4*p4*q20 - 1/4*p4*q23 - 1/4*p4*q6 - 3/8*p5*q14 - 3/4*p5*q4 - 3/4*p5*q5
),
4*(p1*q26 + p3*q26 - 1/4*p4*q1 - 1/4*p4*q11 - 1/4*p4*q13 - 1/4*p4*q14 + 1/2*p4*
q19 + 1/2*p4*q21 - 1/4*p4*q22 - 1/4*p4*q25 - 1/4*p4*q4 + 1/4*p4*q8 + 3/4*p5*q23)
,
6*(p1*q26 + p3*q26 - 1/3*p4*q1 - 1/6*p4*q11 - 1/6*p4*q13 - 1/6*p4*q14 + 1/3*p4*
q19 + 1/3*p4*q21 - 1/6*p4*q22 - 1/3*p4*q25 - 1/3*p4*q4 + 1/6*p4*q8 + 1/2*p5*q23)
,
4*(p1*q26 - 5/2*p2*q27 - 3*p3*q26 - 1/4*p4*q1 - p4*q11 - 1/4*p4*q13 - 1/2*p4*q17
 + 1/2*p4*q19 - 1/4*p4*q22 + 1/2*p4*q4 + p4*q5 + 3/4*p5*q15 + 3/4*p5*q20),
16*(p1*q26 + 5/4*p2*q27 - 1/8*p4*q1 + 1/16*p4*q11 - 3/16*p4*q13 + 1/8*p4*q17 + 1
/4*p4*q19 + 1/8*p4*q25 - 1/4*p4*q7 + 1/16*p4*q8 - 3/16*p5*q15 - 3/8*p5*q3 - 3/16
*p5*q6),
36*(p2*q26 - 1/36*p4*q10 - 1/9*p4*q12 - 1/6*p4*q15 + 1/18*p4*q18 - 1/18*p4*q20 -
 1/18*p4*q23 + 1/36*p4*q24 - 1/9*p4*q3 - 5/36*p4*q6 - 1/6*p5*q11 - 1/12*p5*q17 -
 1/12*p5*q8),
12*(p1*q26 - 5/6*p2*q27 - 1/3*p3*q26 - 1/6*p4*q1 + 1/12*p4*q14 - 1/6*p4*q17 - 1/
6*p4*q21 + 1/12*p4*q22 + 1/12*p4*q4 - 1/3*p4*q7 - 1/3*p4*q8 + 1/4*p5*q12 + 1/4*
p5*q20),
18*(p2*q26 + 1/18*p4*q10 - 1/9*p4*q12 - 1/9*p4*q15 + 1/9*p4*q16 - 1/9*p4*q18 - 1
/9*p4*q2 - 1/9*p4*q20 - 1/9*p4*q3 - 1/9*p4*q6 - 1/18*p4*q9 - 1/6*p5*q11 - 1/6*p5
*q8),
36*(p2*q26 - 1/6*p4*q12 - 1/9*p4*q15 - 1/18*p4*q16 - 1/9*p4*q2 - 1/18*p4*q20 + 1
/18*p4*q23 - 1/36*p4*q24 - 5/36*p4*q6 + 1/36*p4*q9 - 1/12*p5*q11 - 1/12*p5*q17 -
 1/6*p5*q8),
20*(p1*q27 + 2/5*p2*q26 - 1/20*p4*q15 + 1/5*p4*q16 - 1/20*p4*q2 + 1/20*p4*q20 + 
1/10*p4*q23 - 1/20*p4*q24 - 1/10*p4*q3 - 1/10*p4*q6 + 1/5*p4*q9 - 3/20*p5*q13 - 
3/10*p5*q19),
30*(p1*q27 - 1/5*p2*q26 + 1/30*p4*q15 + 1/15*p4*q16 + 1/30*p4*q2 - 1/30*p4*q20 -
 1/15*p4*q23 + 1/30*p4*q24 + 1/15*p4*q6 + 1/15*p4*q9 - 1/10*p5*q1 - 1/10*p5*q13 
- 1/5*p5*q7),
20*(p2*q27 - 4/5*p3*q26 + 1/20*p4*q11 + 3/20*p4*q14 + 1/10*p4*q17 - 1/5*p4*q21 -
 1/10*p4*q25 + 1/10*p4*q4 + 1/5*p4*q5 + 1/20*p4*q8 - 3/20*p5*q12 - 3/10*p5*q2 - 
3/20*p5*q6),
40*(p1*q27 - 1/5*p2*q26 + 1/40*p4*q12 + 1/20*p4*q15 + 1/10*p4*q16 - 1/20*p4*q20 
- 1/20*p4*q23 + 1/20*p4*q3 + 1/20*p4*q6 + 1/20*p4*q9 - 3/20*p5*q1 - 3/40*p5*q13 
- 3/20*p5*q7),
2*(p1*q10 + p2*q11 - 1/2*p2*q14 + 1/2*p2*q25 + p2*q4 + p2*q5 + 1/2*p2*q8 + 4*p3*
q10 + p3*q12 - 2*p3*q2 - 2*p3*q23 + 3*p3*q24 - p3*q6),
2*(p1*q17 + p1*q25 + p1*q4 + 2*p1*q8 + p2*q10 - 1/2*p2*q2 - p2*q23 + 1/2*p2*q3 +
 p2*q9 - p3*q1 + 2*p3*q11 + p3*q17 - p3*q25),
6*(p1*q11 + 2/3*p1*q5 + 1/3*p2*q10 - 1/6*p2*q15 - 1/3*p2*q23 + 1/2*p2*q24 + 1/3*
p2*q3 - 1/6*p2*q6 + 1/6*p2*q9 - 2/3*p3*q1 + 2/3*p3*q11 + 1/3*p3*q13 - 1/3*p3*q25
),
2*(p1*q14 - p1*q25 - 2*p1*q4 - 2*p1*q8 - 1/2*p2*q10 - 1/2*p2*q12 + p2*q2 + p2*
q23 - 3/2*p2*q24 - 1/2*p2*q6 - p2*q9 + 2*p3*q7 - 3*p3*q8),
2*(p1*q15 + 2*p1*q23 - 3*p1*q24 - 2*p1*q3 - p1*q6 - 4*p1*q9 + p2*q1 - 1/2*p2*q11
 - 1/2*p2*q13 + 1/2*p2*q25 + p2*q7 - p2*q8 - p3*q9),
6*(p2*q26 - 10*p3*q27 - 5/3*p4*q10 - 1/6*p4*q12 - 2/3*p4*q18 + 1/6*p4*q20 - 1/3*
p4*q23 + 1/6*p4*q24 - 1/6*p4*q3 - 1/3*p4*q6 + 3/2*p5*q14 + p5*q21 + 1/2*p5*q4 + 
p5*q5),
16*(p1*q26 + p3*q26 - 1/8*p4*q1 - 1/8*p4*q11 - 1/8*p4*q13 - 1/8*p4*q14 + 1/4*p4*
q19 + 1/4*p4*q21 - 1/8*p4*q4 - 1/4*p4*q5 - 1/4*p4*q7 + 1/8*p4*q8 + 3/8*p5*q23 - 
3/16*p5*q24),
36*(p2*q26 - 1/18*p4*q10 - 5/36*p4*q12 - 5/36*p4*q15 - 1/9*p4*q16 + 1/9*p4*q18 -
 1/18*p4*q2 - 1/18*p4*q20 - 1/18*p4*q3 - 1/9*p4*q6 + 1/18*p4*q9 - 1/12*p5*q11 - 
1/6*p5*q17 - 1/12*p5*q8),
60*(p1*q27 + 1/10*p2*q26 - 1/60*p4*q15 + 1/15*p4*q16 - 1/60*p4*q2 + 1/60*p4*q20 
+ 1/30*p4*q23 - 1/60*p4*q24 - 1/30*p4*q6 + 1/6*p4*q9 - 1/20*p5*q1 - 3/20*p5*q13 
- 1/10*p5*q19 - 1/10*p5*q7),
p1*q17 + 2*p1*q4 + 2*p1*q5 + 2*p1*q8 - p2*q10 + 2*p2*q2 + p2*q20 + 2*p2*q3 + p2*
q6 + p2*q9 + 2*p3*q1 - 2*p3*q11 - p3*q17 + 2*p3*q7,
30*(p2*q27 + 2/5*p3*q26 + 1/5*p4*q11 - 1/30*p4*q14 + 1/15*p4*q17 + 1/15*p4*q21 +
 1/30*p4*q25 - 1/30*p4*q4 - 2/15*p4*q5 + 2/15*p4*q8 - 1/10*p5*q12 - 1/5*p5*q15 -
 1/10*p5*q20 - 1/10*p5*q3 - 1/10*p5*q6),
12*(p1*q26 - 5/2*p2*q27 - 1/12*p4*q1 - 1/3*p4*q11 - 1/12*p4*q13 - 1/6*p4*q17 + 1
/6*p4*q19 + 1/12*p4*q25 - 1/3*p4*q7 - 1/2*p4*q8 + 1/2*p5*q12 + 1/4*p5*q15 + 1/4*
p5*q2 + 1/4*p5*q20 + 1/4*p5*q6),
12*(p1*q26 + p3*q26 - 1/12*p4*q1 - 1/12*p4*q11 - 1/12*p4*q13 - 1/12*p4*q14 + 1/6
*p4*q19 + 1/6*p4*q21 + 1/12*p4*q22 + 1/6*p4*q25 - 1/12*p4*q4 - 1/3*p4*q5 - 1/3*
p4*q7 + 1/12*p4*q8 + 1/4*p5*q23 - 1/4*p5*q24),
4*(p1*q12 - 1/2*p1*q2 - p1*q20 + 1/2*p1*q23 + 1/2*p1*q24 - 1/4*p2*q1 + 1/2*p2*
q13 + 1/2*p2*q14 - p2*q19 - p2*q21 - 1/4*p2*q4 + p3*q15 - p3*q20 - 1/2*p3*q23 - 
1/2*p3*q24 - 1/2*p3*q3),
16*(p1*q26 - 5/4*p2*q27 - p3*q26 - 1/8*p4*q1 - 5/16*p4*q11 - 1/8*p4*q13 + 1/8*p4
*q14 - 1/8*p4*q17 + 1/4*p4*q19 - 1/4*p4*q21 + 1/8*p4*q4 + 1/4*p4*q5 - 1/4*p4*q7 
- 5/16*p4*q8 + 3/16*p5*q12 + 3/16*p5*q15 + 3/8*p5*q20),
12*(p1*q26 + 5/2*p2*q27 - p3*q26 - 1/12*p4*q1 + 1/6*p4*q11 - 1/12*p4*q13 + 1/12*
p4*q14 + 1/6*p4*q17 + 1/6*p4*q19 - 1/6*p4*q21 + 1/12*p4*q4 + 1/3*p4*q5 - 1/3*p4*
q7 + 1/6*p4*q8 - 1/4*p5*q12 - 1/4*p5*q15 - 1/4*p5*q2 - 1/4*p5*q3 - 1/2*p5*q6)}$
list_of_inequalities:=
{g0106*p5 + g0107*p4 + g0108*p3 + g0109*p2 + g0110*p1,
g0079*q27 + g0080*q26 + g0081*q25 + g0082*q24 + g0083*q23 + g0084*q22 + g0085*
q21 + g0086*q20 + g0087*q19 + g0088*q18 + g0089*q17 + g0090*q16 + g0091*q15 + 
g0092*q14 + g0093*q13 + g0094*q12 + g0095*q11 + g0096*q10 + g0097*q9 + g0098*q8 
+ g0099*q7 + g0100*q6 + g0101*q5 + g0102*q4 + g0103*q3 + g0104*q2 + g0105*q1,
g0051*q25 + g0052*q24 + g0053*q23 + g0054*q22 + g0055*q21 + g0056*q20 + g0057*
q19 + g0058*q18 + g0059*q17 + g0060*q16 + g0061*q15 + g0062*q14 + g0063*q13 + 
g0064*q12 + g0065*q11 + g0066*q10 + g0067*q9 + g0068*q8 + g0069*q7 + g0070*q6 + 
g0071*q5 + g0072*q4 + g0073*q3 + g0074*q2 + g0075*q1 + g0076*p3 + g0077*p2 + 
g0078*p1,
g0027*q26 + g0028*q25 + g0029*q24 + g0030*q23 + g0031*q21 + g0032*q20 + g0033*
q18 + g0034*q17 + g0035*q16 + g0036*q15 + g0037*q14 + g0038*q12 + g0039*q11 + 
g0040*q10 + g0041*q9 + g0042*q8 + g0043*q6 + g0044*q5 + g0045*q4 + g0046*q3 + 
g0047*q2 + g0048*p4 + g0049*p3 + g0050*p2,
g0003*q26 + g0004*q25 + g0005*q24 + g0006*q23 + g0007*q20 + g0008*q19 + g0009*
q18 + g0010*q17 + g0011*q16 + g0012*q15 + g0013*q13 + g0014*q12 + g0015*q11 + 
g0016*q10 + g0017*q9 + g0018*q8 + g0019*q7 + g0020*q6 + g0021*q3 + g0022*q2 + 
g0023*q1 + g0024*p4 + g0025*p2 + g0026*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))$
