ctotal:='((wavefunl ((l1 (ub p2 fme -1) (u p1 fme 1)))) (nfn
1) (nz 0) (nz0 0) (nout 1) (state 0) (nsy 1) (hand 0) (xi 3)
(nauto 0) (escale wm));
 
group:='(((124 124)))$
 
maslist:='nil$
 
ndiagfile:='100$
 
alldiagram:='(((0 a1a0a1 a1a0a2)))$
 
coupling_order_list:='(((g . 4)))$
 
array aa(100),aaaa(100)$
 
rangelist:='nil$
 
gresonance_list:='(((plus p3 p6) (122 p6m (plus p3 p6)) (118
p6m (plus p3 p6)) (112 p6m (plus p3 p6)) (110 p7m (plus p3 
p6)) (108 p6m (plus p3 p6)) (106 p7m (plus p3 p6)) (104 p8m
(plus p3 p6)) (102 p9m (plus p3 p6)) (100 p6m (plus p3 p6))
(98 p7m (plus p3 p6)) (96 p8m (plus p3 p6)) (94 p9m (plus p3
p6)) (92 p6m (plus p3 p6)) (90 p7m (plus p3 p6)) (88 p8m (
plus p3 p6)) (86 p9m (plus p3 p6)) (84 p6m (plus p3 p6)) (82
p7m (plus p3 p6)) (80 p6m (plus p3 p6)) (78 p7m (plus p3 p6)
) (75 p6m (plus p3 p6)) (71 p6m (plus p3 p6)) (66 p6m (plus
p3 p6)) (64 p7m (plus p3 p6)) (28 p6m (plus p3 p6)) (26 p6m
(plus p3 p6)) (23 p7m (plus p3 p6)) (17 p6m (plus p3 p6)) (9
p6m (plus p3 p6)) (1 p6m (plus p3 p6))) ((plus p3 p4 p6) (
118 p15m (plus (minus p1) (minus p2) (minus p5))) (116 p19m
(plus (minus p1) (minus p2) (minus p5))) (114 p19m (plus p1
p2 p5)) (112 p19m (plus (minus p1) (minus p2) (minus p5))) (
110 p19m (plus (minus p1) (minus p2) (minus p5))) (21 p12m (
plus (minus p1) (minus p2) (minus p5))) (19 p12m (plus (
minus p1) (minus p2) (minus p5))) (17 p12m (plus (minus p1)
(minus p2) (minus p5))) (15 p14m (plus (minus p1) (minus p2)
(minus p5))) (13 p14m (plus (minus p1) (minus p2) (minus p5)
)) (11 p14m (plus (minus p1) (minus p2) (minus p5))) (9 p14m
(plus (minus p1) (minus p2) (minus p5))) (7 p16m (plus (
minus p1) (minus p2) (minus p5))) (5 p16m (plus (minus p1) (
minus p2) (minus p5))) (3 p16m (plus (minus p1) (minus p2) (
minus p5))) (1 p16m (plus (minus p1) (minus p2) (minus p5)))
) ((plus p3 p4 p5 p6) (124 p33m (plus p1 p2)) (123 p33m (
plus p1 p2)) (122 p33m (plus p1 p2)) (121 p33m (plus p1 p2))
(120 p33m (plus p1 p2)) (119 p33m (plus p1 p2)) (118 p33m (
plus p1 p2)) (117 p33m (plus p1 p2)) (116 p33m (plus p1 p2))
(115 p33m (plus p1 p2)) (114 p33m (plus p1 p2)) (113 p33m (
plus p1 p2)) (112 p33m (plus p1 p2)) (111 p33m (plus p1 p2))
(110 p33m (plus p1 p2)) (109 p33m (plus p1 p2)) (108 p33m (
plus p1 p2)) (107 p33m (plus p1 p2)) (106 p33m (plus p1 p2))
(105 p33m (plus p1 p2)) (104 p33m (plus p1 p2)) (103 p33m (
plus p1 p2)) (102 p33m (plus p1 p2)) (101 p33m (plus p1 p2))
(100 p33m (plus p1 p2)) (99 p33m (plus p1 p2)) (98 p33m (
plus p1 p2)) (97 p33m (plus p1 p2)) (96 p33m (plus p1 p2)) (
95 p33m (plus p1 p2)) (94 p33m (plus p1 p2)) (93 p33m (plus
p1 p2)) (92 p33m (plus p1 p2)) (91 p33m (plus p1 p2)) (90 
p33m (plus p1 p2)) (89 p33m (plus p1 p2)) (88 p33m (plus p1
p2)) (87 p33m (plus p1 p2)) (86 p33m (plus p1 p2)) (85 p33m
(plus p1 p2)) (84 p33m (plus p1 p2)) (83 p33m (plus p1 p2))
(82 p33m (plus p1 p2)) (81 p33m (plus p1 p2)) (80 p33m (plus
p1 p2)) (79 p33m (plus p1 p2)) (78 p33m (plus p1 p2)) (77 
p33m (plus p1 p2)) (76 p33m (plus p1 p2)) (75 p33m (plus p1
p2)) (74 p33m (plus p1 p2)) (73 p33m (plus p1 p2)) (72 p33m
(plus p1 p2)) (71 p33m (plus p1 p2)) (70 p33m (plus p1 p2))
(69 p33m (plus p1 p2)) (68 p33m (plus p1 p2)) (67 p33m (plus
p1 p2)) (66 p33m (plus p1 p2)) (65 p33m (plus p1 p2)) (64 
p33m (plus p1 p2)) (63 p33m (plus p1 p2)) (62 p33m (plus p1
p2)) (61 p33m (plus p1 p2)) (60 p33m (plus p1 p2)) (59 p33m
(plus p1 p2)) (58 p33m (plus p1 p2)) (57 p33m (plus p1 p2))
(56 p33m (plus p1 p2)) (55 p33m (plus p1 p2)) (54 p33m (plus
p1 p2)) (53 p33m (plus p1 p2)) (52 p33m (plus p1 p2)) (51 
p33m (plus p1 p2)) (50 p33m (plus p1 p2)) (49 p33m (plus p1
p2)) (48 p33m (plus p1 p2)) (47 p33m (plus p1 p2)) (46 p33m
(plus p1 p2)) (45 p33m (plus p1 p2)) (44 p33m (plus p1 p2))
(43 p33m (plus p1 p2)) (42 p33m (plus p1 p2)) (41 p33m (plus
p1 p2)) (40 p33m (plus p1 p2)) (39 p33m (plus p1 p2)) (38 
p33m (plus p1 p2)) (37 p33m (plus p1 p2)) (36 p33m (plus p1
p2)) (35 p33m (plus p1 p2)) (34 p33m (plus p1 p2)) (33 p33m
(plus p1 p2)) (32 p33m (plus p1 p2)) (31 p33m (plus p1 p2))
(30 p33m (plus p1 p2)) (29 p33m (plus p1 p2)) (28 p33m (plus
p1 p2)) (27 p33m (plus p1 p2)) (26 p33m (plus p1 p2)) (25 
p33m (plus p1 p2)) (24 p33m (plus p1 p2)) (23 p33m (plus p1
p2)) (22 p33m (plus p1 p2)) (21 p33m (plus p1 p2)) (20 p33m
(plus p1 p2)) (19 p33m (plus p1 p2)) (18 p33m (plus p1 p2))
(17 p33m (plus p1 p2)) (16 p33m (plus p1 p2)) (15 p33m (plus
p1 p2)) (14 p33m (plus p1 p2)) (13 p33m (plus p1 p2)) (12 
p33m (plus p1 p2)) (11 p33m (plus p1 p2)) (10 p33m (plus p1
p2)) (9 p33m (plus p1 p2)) (8 p33m (plus p1 p2)) (7 p33m (
plus p1 p2)) (6 p33m (plus p1 p2)) (5 p33m (plus p1 p2)) (4
p33m (plus p1 p2)) (3 p33m (plus p1 p2)) (2 p33m (plus p1 p2
)) (1 p33m (plus p1 p2))) ((plus p3 p5) (123 p6m (plus p3 p5
)) (119 p6m (plus p3 p5)) (113 p6m (plus p3 p5)) (111 p7m (
plus p3 p5)) (109 p6m (plus p3 p5)) (107 p7m (plus p3 p5)) (
105 p8m (plus p3 p5)) (103 p9m (plus p3 p5)) (101 p6m (plus
p3 p5)) (99 p7m (plus p3 p5)) (97 p8m (plus p3 p5)) (95 p9m
(plus p3 p5)) (93 p6m (plus p3 p5)) (91 p7m (plus p3 p5)) (
89 p8m (plus p3 p5)) (87 p9m (plus p3 p5)) (85 p6m (plus p3
p5)) (83 p7m (plus p3 p5)) (81 p6m (plus p3 p5)) (79 p7m (
plus p3 p5)) (76 p6m (plus p3 p5)) (72 p6m (plus p3 p5)) (67
p6m (plus p3 p5)) (65 p7m (plus p3 p5)) (29 p6m (plus p3 p5)
) (27 p6m (plus p3 p5)) (24 p7m (plus p3 p5)) (18 p6m (plus
p3 p5)) (10 p6m (plus p3 p5)) (2 p6m (plus p3 p5))) ((plus 
p3 p4 p5) (119 p15m (plus (minus p1) (minus p2) (minus p6)))
(117 p19m (plus (minus p1) (minus p2) (minus p6))) (115 p19m
(plus (minus p1) (minus p2) (minus p6))) (113 p19m (plus (
minus p1) (minus p2) (minus p6))) (111 p19m (plus (minus p1)
(minus p2) (minus p6))) (22 p12m (plus (minus p1) (minus p2)
(minus p6))) (20 p12m (plus (minus p1) (minus p2) (minus p6)
)) (18 p12m (plus (minus p1) (minus p2) (minus p6))) (16 
p14m (plus (minus p1) (minus p2) (minus p6))) (14 p14m (plus
(minus p1) (minus p2) (minus p6))) (12 p14m (plus (minus p1)
(minus p2) (minus p6))) (10 p14m (plus (minus p1) (minus p2)
(minus p6))) (8 p16m (plus (minus p1) (minus p2) (minus p6))
) (6 p16m (plus (minus p1) (minus p2) (minus p6))) (4 p16m (
plus (minus p1) (minus p2) (minus p6))) (2 p16m (plus (minus
p1) (minus p2) (minus p6)))) ((plus p4 p6) (123 p24m (plus (
minus p4) (minus p6))) (116 p17m (plus p4 p6)) (109 p10m (
plus (minus p4) (minus p6))) (107 p10m (plus (minus p4) (
minus p6))) (105 p10m (plus (minus p4) (minus p6))) (103 
p10m (plus (minus p4) (minus p6))) (101 p11m (plus (minus p4
) (minus p6))) (99 p11m (plus (minus p4) (minus p6))) (97 
p11m (plus (minus p4) (minus p6))) (95 p11m (plus (minus p4)
(minus p6))) (93 p13m (plus (minus p4) (minus p6))) (91 p13m
(plus (minus p4) (minus p6))) (89 p13m (plus (minus p4) (
minus p6))) (87 p13m (plus (minus p4) (minus p6))) (85 p18m
(plus (minus p4) (minus p6))) (83 p18m (plus (minus p4) (
minus p6))) (81 p20m (plus (minus p4) (minus p6))) (79 p20m
(plus (minus p4) (minus p6))) (76 p21m (plus (minus p4) (
minus p6))) (72 p22m (plus (minus p4) (minus p6))) (67 p4m (
plus (minus p4) (minus p6))) (65 p4m (plus (minus p4) (minus
p6))) (60 p10m (plus p4 p6)) (58 p11m (plus p4 p6)) (56 p13m
(plus p4 p6)) (54 p18m (plus p4 p6)) (52 p20m (plus p4 p6))
(49 p21m (plus p4 p6)) (46 p22m (plus p4 p6)) (41 p4m (plus
p4 p6)) (39 p17m (plus p4 p6)) (36 p23m (plus p4 p6)) (29 
p17m (plus (minus p4) (minus p6))) (27 p23m (plus (minus p4)
(minus p6))) (24 p17m (plus (minus p4) (minus p6))) (21 p10m
(plus p4 p6)) (19 p11m (plus p4 p6)) (15 p10m (plus p4 p6))
(13 p11m (plus p4 p6)) (11 p13m (plus p4 p6)) (7 p10m (plus
p4 p6)) (5 p11m (plus p4 p6)) (3 p13m (plus p4 p6))) ((plus
p4 p5) (122 p24m (plus (minus p4) (minus p5))) (117 p17m (
plus p4 p5)) (108 p10m (plus (minus p4) (minus p5))) (106 
p10m (plus (minus p4) (minus p5))) (104 p10m (plus (minus p4
) (minus p5))) (102 p10m (plus (minus p4) (minus p5))) (100
p11m (plus (minus p4) (minus p5))) (98 p11m (plus (minus p4)
(minus p5))) (96 p11m (plus (minus p4) (minus p5))) (94 p11m
(plus (minus p4) (minus p5))) (92 p13m (plus (minus p4) (
minus p5))) (90 p13m (plus (minus p4) (minus p5))) (88 p13m
(plus (minus p4) (minus p5))) (86 p13m (plus (minus p4) (
minus p5))) (84 p18m (plus (minus p4) (minus p5))) (82 p18m
(plus (minus p4) (minus p5))) (80 p20m (plus (minus p4) (
minus p5))) (78 p20m (plus (minus p4) (minus p5))) (75 p21m
(plus (minus p4) (minus p5))) (71 p22m (plus (minus p4) (
minus p5))) (66 p4m (plus (minus p4) (minus p5))) (64 p4m (
plus (minus p4) (minus p5))) (61 p10m (plus p4 p5)) (59 p11m
(plus p4 p5)) (57 p13m (plus p4 p5)) (55 p18m (plus p4 p5))
(53 p20m (plus p4 p5)) (50 p21m (plus p4 p5)) (47 p22m (plus
p4 p5)) (42 p4m (plus p4 p5)) (40 p17m (plus p4 p5)) (37 
p23m (plus p4 p5)) (28 p17m (plus (minus p4) (minus p5))) (
26 p23m (plus (minus p4) (minus p5))) (23 p17m (plus (minus
p4) (minus p5))) (22 p10m (plus p4 p5)) (20 p11m (plus p4 p5
)) (16 p10m (plus p4 p5)) (14 p11m (plus p4 p5)) (12 p13m (
plus p4 p5)) (8 p10m (plus p4 p5)) (6 p11m (plus p4 p5)) (4
p13m (plus p4 p5))) ((plus p5 p6) (124 p24m (plus p5 p6)) (
121 p24m (plus p5 p6)) (120 p29m (plus p5 p6)) (77 p21m (
plus p5 p6)) (74 p21m (plus p5 p6)) (73 p22m (plus p5 p6)) (
70 p22m (plus p5 p6)) (69 p26m (plus p5 p6)) (68 p28m (plus
p5 p6)) (63 p24m (plus p5 p6)) (62 p29m (plus p5 p6)) (51 
p21m (plus p5 p6)) (48 p22m (plus p5 p6)) (45 p26m (plus p5
p6)) (44 p28m (plus p5 p6)) (43 p31m (plus p5 p6)) (38 p23m
(plus p5 p6)) (35 p25m (plus p5 p6)) (34 p27m (plus p5 p6))
(33 p30m (plus p5 p6)) (32 p23m (plus p5 p6)) (31 p25m (plus
p5 p6)) (30 p27m (plus p5 p6)) (25 p23m (plus p5 p6))) ((
plus p3 p4) (124 p5m (plus (minus p3) (minus p4))) (121 p6m
(plus (minus p3) (minus p4))) (120 p5m (plus (minus p3) (
minus p4))) (115 p5m (plus p3 p4)) (114 p5m (plus p3 p4)) (
77 p5m (plus (minus p3) (minus p4))) (74 p6m (plus (minus p3
) (minus p4))) (73 p5m (plus (minus p3) (minus p4))) (70 p6m
(plus (minus p3) (minus p4))) (69 p5m (plus (minus p3) (
minus p4))) (68 p5m (plus (minus p3) (minus p4))) (32 p5m (
plus (minus p3) (minus p4))) (31 p5m (plus (minus p3) (minus
p4))) (30 p5m (plus (minus p3) (minus p4))) (25 p6m (plus (
minus p3) (minus p4)))) ((plus p4 p5 p6) (63 p32m (plus (
minus p4) (minus p5) (minus p6))) (62 p32m (plus (minus p4)
(minus p5) (minus p6))) (61 p32m (plus (minus p4) (minus p5)
(minus p6))) (60 p32m (plus (minus p4) (minus p5) (minus p6)
)) (59 p32m (plus (minus p4) (minus p5) (minus p6))) (58 
p32m (plus (minus p4) (minus p5) (minus p6))) (57 p32m (plus
(minus p4) (minus p5) (minus p6))) (56 p32m (plus (minus p4)
(minus p5) (minus p6))) (55 p32m (plus (minus p4) (minus p5)
(minus p6))) (54 p32m (plus (minus p4) (minus p5) (minus p6)
)) (53 p32m (plus (minus p4) (minus p5) (minus p6))) (52 
p32m (plus (minus p4) (minus p5) (minus p6))) (51 p32m (plus
(minus p4) (minus p5) (minus p6))) (50 p32m (plus (minus p4)
(minus p5) (minus p6))) (49 p32m (plus (minus p4) (minus p5)
(minus p6))) (48 p32m (plus (minus p4) (minus p5) (minus p6)
)) (47 p32m (plus (minus p4) (minus p5) (minus p6))) (46 
p32m (plus (minus p4) (minus p5) (minus p6))) (45 p32m (plus
(minus p4) (minus p5) (minus p6))) (44 p32m (plus (minus p4)
(minus p5) (minus p6))) (43 p32m (plus (minus p4) (minus p5)
(minus p6))) (42 p32m (plus (minus p4) (minus p5) (minus p6)
)) (41 p32m (plus (minus p4) (minus p5) (minus p6))) (40 
p32m (plus (minus p4) (minus p5) (minus p6))) (39 p32m (plus
(minus p4) (minus p5) (minus p6))) (38 p32m (plus (minus p4)
(minus p5) (minus p6))) (37 p32m (plus (minus p4) (minus p5)
(minus p6))) (36 p32m (plus (minus p4) (minus p5) (minus p6)
)) (35 p32m (plus (minus p4) (minus p5) (minus p6))) (34 
p32m (plus (minus p4) (minus p5) (minus p6))) (33 p32m (plus
(minus p4) (minus p5) (minus p6)))))$
 
nsum:='124$
 
nallterm:='124$
 
;end;
 
