DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦41587c330⟧ TextFile

    Length: 85248 (0x14d00)
    Types: TextFile
    Names: »simp1625«

Derivation

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »simp1625« 

TextFile


;ali time 5 0
mode list.yes
lookup simproctxt
clear user simproc
simproc=set 25 disc3
scope user simproc
lookup rydlist
if ok.yes
mode listing.yes
simproc=algol details.8.8
    81 08 09  17 01 28
2 A VIII     3p
external real procedure simproc(t,maxdiagram,N,Ewritten,pvalue);
value t,maxdiagram; real t; integer maxdiagram;
integer array Ewritten;
array N,pvalue;
if t<-.5 then begin
 simproc:=case round (abs(t)) of (
     18.0 , 16.1 , 25.0000 , 7.5000 , 0.0000); 
end
<*curstate, nsmax, brmin, tmax, Bmin*>  else
begin
real 
E1  ,N1  ,E2  ,N2  ,E3  ,N3  ,E4  ,N4  ,E5  ,N5  ,E6  ,N6  ,E7  ,N7  ,E8  ,N8  ,
E9  ,N9  ,E10 ,N10 ,E11 ,N11 ,E12 ,N12 ,E13 ,N13 ,E14 ,N14 ,E15 ,N15 ,E16 ,N16 ,
E17 ,N17 ,E18 ,N18 ,E19 ,N19 ,E20 ,N20 ,E21 ,N21 ,E22 ,N22 ,E23 ,N23 ,E24 ,N24 ,
E25 ,N25 ,E26 ,N26 ,E27 ,N27 ,E28 ,N28 ,E29 ,N29 ,E30 ,N30 ,E31 ,N31 ,E32 ,N32 ,
E33 ,N33 ,E34 ,N34 ,E35 ,N35 ,E36 ,N36 ,E37 ,N37 ,E38 ,N38 ,E39 ,N39 ,E40 ,N40 ,
E41 ,N41 ,E42 ,N42 ,E43 ,N43 ,E44 ,N44 ,E45 ,N45 ,E46 ,N46 ,E47 ,N47 ,E48 ,N48 ,
E49 ,N49 ,E50 ,N50 ,E51 ,N51 ,E52 ,N52 ,E53 ,N53 ,E54 ,N54 ,E55 ,N55 ,E56 ,N56 ,
E57 ,N57 ,E58 ,N58 ,E59 ,N59 ,E60 ,N60 ,E61 ,N61 ,E62 ,N62 ,E63 ,N63 ,E64 ,N64 ,
E65 ,N65 ,E66 ,N66 ,E67 ,N67 ,E68 ,N68 ,E69 ,N69 ,E70 ,N70 ,E71 ,N71 ,E72 ,N72 ,
E73 ,N73 ,E74 ,N74 ,E75 ,N75 ,E76 ,N76 ,E77 ,N77 ,E78 ,N78 ,E79 ,N79 ,E80 ,N80 ,
E81 ,N81 ,E82 ,N82 ,E83 ,N83 ,E84 ,N84 ,E85 ,N85 ,E86 ,N86 ,E87 ,N87 ,E88 ,N88 ,
E89 ,N89 ,E90 ,N90 ,E91 ,N91 ,E92 ,N92 ,E93 ,N93 ,E94 ,N94 ,E95 ,N95 ,E96 ,N96 ,
E97 ,N97 ,E98 ,N98 ,E99 ,N99 ,E100,N100,E101,N101,E102,N102,E103,N103,E104,N104,
E105,N105,E106,N106,E107,N107,E108,N108,E109,N109,E110,N110,E111,N111,E112,N112,r;
r:=0;
comment maxdiagram=  16
2 A VIII     3p
delta t(slit)              0.0965 ns
n* max                    16.10
states in calculation    112
transitions              107
transitions dropped     1011
minimum branching ratio   25.00
minimum coefficient        1.00' -9
 3s  2.464 =  0,   3p  2.631 =  1,   3d  2.919 =  2,   4s  3.476 =  3,
 4p  3.648 =  4,   4d  3.909 =  5,   4f  3.994 =  6,   5s  4.514 =  7,
 5p  4.653 =  8,   5d  4.905 =  9,   5f  4.992 = 10,   5g  5.000 = 11,
 6s  5.485 = 12,   6p  5.649 = 13,   6d  5.903 = 14,   6f  5.994 = 15,
 6g  6.000 = 16,   6h  6.000 = 17,   7s  6.485 = 18,   7p  6.649 = 19,
 7d  6.901 = 20,   7f  6.994 = 21,   7i  7.000 = 22,   7h  7.000 = 23,
 7g  7.000 = 24,   8s  7.485 = 25,   8p  7.649 = 26,   8d  7.900 = 27,
 8f  7.994 = 28,   8i  8.000 = 29,   8k  8.000 = 30,   8h  8.000 = 31,
 8g  8.000 = 32,   9s  8.485 = 33,   9p  8.649 = 34,   9d  8.900 = 35,
 9f  8.994 = 36,   9h  9.000 = 37,   9l  9.000 = 38,   9i  9.000 = 39,
 9k  9.000 = 40,   9g  9.000 = 41,  10s  9.485 = 42,  10p  9.649 = 43,
10d  9.899 = 44,  10f  9.994 = 45,  10g 10.000 = 46,  10k 10.000 = 47,
10m 10.000 = 48,  10i 10.000 = 49,  10h 10.000 = 50,  10l 10.000 = 51,
11s 10.485 = 52,  11p 10.649 = 53,  11d 10.899 = 54,  11f 10.994 = 55,
11g 11.000 = 56,  11i 11.000 = 57,  11k 11.000 = 58,  11h 11.000 = 59,
11l 11.000 = 60,  11n 11.000 = 61,  11m 11.000 = 62,  12s 11.485 = 63,
12p 11.649 = 64,  12d 11.898 = 65,  12f 11.994 = 66,  12n 12.000 = 67,
12l 12.000 = 68,  12h 12.000 = 69,  12o 12.000 = 70,  12m 12.000 = 71,
12k 12.000 = 72,  12i 12.000 = 73,  12g 12.000 = 74,  13s 12.485 = 75,
13p 12.649 = 76,  13d 12.898 = 77,  13f 12.994 = 78,  13n 13.000 = 79,
13i 13.000 = 80,  13g 13.000 = 81,  13l 13.000 = 82,  13k 13.000 = 83,
13h 13.000 = 84,  13m 13.000 = 85,  14s 13.485 = 86,  14p 13.649 = 87,
14d 13.898 = 88,  14f 13.994 = 89,  14m 14.000 = 90,  14l 14.000 = 91,
14k 14.000 = 92,  14i 14.000 = 93,  14g 14.000 = 94,  14h 14.000 = 95,
15s 14.485 = 96,  15p 14.649 = 97,  15d 14.898 = 98,  15f 14.994 = 99,
15g 15.000 =100,  15l 15.000 =101,  15k 15.000 =102,  15i 15.000 =103,
15h 15.000 =104,  16s 15.485 =105,  16p 15.649 =106,  16d 15.898 =107,
16f 15.994 =108,  16i 16.000 =109,  16g 16.000 =110,  16k 16.000 =111,
16h 16.000 =112;
if Ewritten(  1)<=maxdiagram then E1 :=exp(-t/  0.38459281)*1.0105307; N1 :=N(18);
if Ewritten(  2)<=maxdiagram then E2 :=exp(-t/  0.12954388)*1.0951272; N2 :=N(36);
if Ewritten(  3)<=maxdiagram then E3 :=exp(-t/  0.03243170)*3.2862757; N3 :=N( 1);
if Ewritten(  4)<=maxdiagram then E4 :=exp(-t/  0.05746631)*1.5411357; N4 :=N(19);
if Ewritten(  5)<=maxdiagram then E5 :=exp(-t/  0.05959986)*1.4981558; N5 :=N(37);
if Ewritten(  6)<=maxdiagram then E6 :=exp(-t/  0.01530833)*4.3406532'1; N6 :=N(54);
if Ewritten(  7)<=maxdiagram then E7 :=exp(-t/  0.05129475)*1.7038576; N7 :=N( 2);
if Ewritten(  8)<=maxdiagram then E8 :=exp(-t/  0.07402967)*1.3084012; N8 :=N(20);
if Ewritten(  9)<=maxdiagram then E9 :=exp(-t/  0.07125189)*1.3351631; N9 :=N(38);
if Ewritten( 10)<=maxdiagram then E10:=exp(-t/  0.02822207)*4.4645924; N10:=N(55);
if Ewritten( 11)<=maxdiagram then E11:=exp(-t/  0.05682945)*1.5550811; N11:=N(71);
if Ewritten( 12)<=maxdiagram then E12:=exp(-t/  0.06871133)*1.3628934; N12:=N( 3);
if Ewritten( 13)<=maxdiagram then E13:=exp(-t/  0.10036293)*1.1614382; N13:=N(21);
if Ewritten( 14)<=maxdiagram then E14:=exp(-t/  0.09897576)*1.1662115; N14:=N(39);
if Ewritten( 15)<=maxdiagram then E15:=exp(-t/  0.04715002)*1.8602678; N15:=N(56);
if Ewritten( 16)<=maxdiagram then E16:=exp(-t/  0.09699048)*1.1734253; N16:=N(72);
if Ewritten( 17)<=maxdiagram then E17:=exp(-t/  0.14833234)*1.0720792; N17:=N(87);
if Ewritten( 18)<=maxdiagram then E18:=exp(-t/  0.10217861)*1.1554989; N18:=N( 4);
if Ewritten( 19)<=maxdiagram then E19:=exp(-t/  0.14394037)*1.0766452; N19:=N(22);
if Ewritten( 20)<=maxdiagram then E20:=exp(-t/  0.13755421)*1.0841064; N20:=N(40);
if Ewritten( 21)<=maxdiagram then E21:=exp(-t/  0.07323754)*1.3156891; N21:=N(57);
if Ewritten( 22)<=maxdiagram then E22:=exp(-t/  0.32949519)*1.0143634; N22:=N(102);
if Ewritten( 23)<=maxdiagram then E23:=exp(-t/  0.23437034)*1.0285081; N23:=N(88);
if Ewritten( 24)<=maxdiagram then E24:=exp(-t/  0.15194442)*1.0686247; N24:=N(73);
if Ewritten( 25)<=maxdiagram then E25:=exp(-t/  0.14668224)*1.0737453; N25:=N( 5);
if Ewritten( 26)<=maxdiagram then E26:=exp(-t/  0.20170521)*1.0386037; N26:=N(23);
if Ewritten( 27)<=maxdiagram then E27:=exp(-t/  0.18843151)*1.0443078; N27:=N(41);
if Ewritten( 28)<=maxdiagram then E28:=exp(-t/  0.10736173)*1.1402576; N28:=N(58);
if Ewritten( 29)<=maxdiagram then E29:=exp(-t/  0.48976919)*1.0064856; N29:=N(103);
if Ewritten( 30)<=maxdiagram then E30:=exp(-t/  0.65497766)*1.0036233; N30:=N(116);
if Ewritten( 31)<=maxdiagram then E31:=exp(-t/  0.34794214)*1.0128750; N31:=N(89);
if Ewritten( 32)<=maxdiagram then E32:=exp(-t/  0.22398871)*1.0312371; N32:=N(74);
if Ewritten( 33)<=maxdiagram then E33:=exp(-t/  0.20443709)*1.0375674; N33:=N( 6);
if Ewritten( 34)<=maxdiagram then E34:=exp(-t/  0.27675092)*1.0203964; N34:=N(24);
if Ewritten( 35)<=maxdiagram then E35:=exp(-t/  0.25405817)*1.0242303; N35:=N(42);
if Ewritten( 36)<=maxdiagram then E36:=exp(-t/  0.15124282)*1.0692758; N36:=N(59);
if Ewritten( 37)<=maxdiagram then E37:=exp(-t/  0.49251215)*1.0064135; N37:=N(90);
if Ewritten( 38)<=maxdiagram then E38:=exp(-t/  1.19852346)*1.0010813; N38:=N(129);
if Ewritten( 39)<=maxdiagram then E39:=exp(-t/  0.69229925)*1.0032428; N39:=N(104);
if Ewritten( 40)<=maxdiagram then E40:=exp(-t/  0.93085387)*1.0017929; N40:=N(117);
if Ewritten( 41)<=maxdiagram then E41:=exp(-t/  0.31656183)*1.0155666; N41:=N(75);
if Ewritten( 42)<=maxdiagram then E42:=exp(-t/  0.27646705)*1.0204386; N42:=N( 7);
if Ewritten( 43)<=maxdiagram then E43:=exp(-t/  0.36920233)*1.0114300; N43:=N(25);
if Ewritten( 44)<=maxdiagram then E44:=exp(-t/  0.33618859)*1.0137948; N44:=N(43);
if Ewritten( 45)<=maxdiagram then E45:=exp(-t/  0.20529795)*1.0372495; N45:=N(60);
if Ewritten( 46)<=maxdiagram then E46:=exp(-t/  0.43080400)*1.0083873; N46:=N(76);
if Ewritten( 47)<=maxdiagram then E47:=exp(-t/  1.27230355)*1.0009595; N47:=N(118);
if Ewritten( 48)<=maxdiagram then E48:=exp(-t/  2.05538069)*1.0003676; N48:=N(141);
if Ewritten( 49)<=maxdiagram then E49:=exp(-t/  0.94526049)*1.0017387; N49:=N(105);
if Ewritten( 50)<=maxdiagram then E50:=exp(-t/  0.67136843)*1.0034484; N50:=N(91);
if Ewritten( 51)<=maxdiagram then E51:=exp(-t/  1.63770273)*1.0005790; N51:=N(130);
if Ewritten( 52)<=maxdiagram then E52:=exp(-t/  0.36415282)*1.0117503; N52:=N( 8);
if Ewritten( 53)<=maxdiagram then E53:=exp(-t/  0.48204392)*1.0066956; N53:=N(26);
if Ewritten( 54)<=maxdiagram then E54:=exp(-t/  0.43530242)*1.0082144; N54:=N(44);
if Ewritten( 55)<=maxdiagram then E55:=exp(-t/  0.27070767)*1.0213231; N55:=N(61);
if Ewritten( 56)<=maxdiagram then E56:=exp(-t/  0.56905531)*1.0048018; N56:=N(77);
if Ewritten( 57)<=maxdiagram then E57:=exp(-t/  1.24957083)*1.0009947; N57:=N(106);
if Ewritten( 58)<=maxdiagram then E58:=exp(-t/  1.68207810)*1.0005489; N58:=N(119);
if Ewritten( 59)<=maxdiagram then E59:=exp(-t/  0.88718893)*1.0019739; N59:=N(92);
if Ewritten( 60)<=maxdiagram then E60:=exp(-t/  2.17639350)*1.0003278; N60:=N(131);
if Ewritten( 61)<=maxdiagram then E61:=exp(-t/  3.34095011)*1.0001391; N61:=N(152);
if Ewritten( 62)<=maxdiagram then E62:=exp(-t/  2.72918525)*1.0002085; N62:=N(142);
if Ewritten( 63)<=maxdiagram then E63:=exp(-t/  0.47058147)*1.0070264; N63:=N( 9);
if Ewritten( 64)<=maxdiagram then E64:=exp(-t/  0.61821137)*1.0040677; N64:=N(27);
if Ewritten( 65)<=maxdiagram then E65:=exp(-t/  0.55541213)*1.0050410; N65:=N(45);
if Ewritten( 66)<=maxdiagram then E66:=exp(-t/  0.35022595)*1.0127070; N66:=N(62);
if Ewritten( 67)<=maxdiagram then E67:=exp(-t/  4.33880969)*1.0000825; N67:=N(153);
if Ewritten( 68)<=maxdiagram then E68:=exp(-t/  2.81391348)*1.0001961; N68:=N(132);
if Ewritten( 69)<=maxdiagram then E69:=exp(-t/  1.14712419)*1.0011804; N69:=N(93);
if Ewritten( 70)<=maxdiagram then E70:=exp(-t/  5.20269789)*1.0000574; N70:=N(162);
if Ewritten( 71)<=maxdiagram then E71:=exp(-t/  3.52348471)*1.0001251; N71:=N(143);
if Ewritten( 72)<=maxdiagram then E72:=exp(-t/  2.17136396)*1.0003294; N72:=N(120);
if Ewritten( 73)<=maxdiagram then E73:=exp(-t/  1.61421552)*1.0005960; N73:=N(107);
if Ewritten( 74)<=maxdiagram then E74:=exp(-t/  0.73656390)*1.0028645; N74:=N(78);
if Ewritten( 75)<=maxdiagram then E75:=exp(-t/  0.59578256)*1.0043801; N75:=N(10);
if Ewritten( 76)<=maxdiagram then E76:=exp(-t/  0.77708864)*1.0025733; N76:=N(28);
if Ewritten( 77)<=maxdiagram then E77:=exp(-t/  0.69483400)*1.0032192; N77:=N(46);
if Ewritten( 78)<=maxdiagram then E78:=exp(-t/  0.44282101)*1.0079372; N78:=N(63);
if Ewritten( 79)<=maxdiagram then E79:=exp(-t/  5.49185764)*1.0000515; N79:=N(154);
if Ewritten( 80)<=maxdiagram then E80:=exp(-t/  2.04335171)*1.0003719; N80:=N(108);
if Ewritten( 81)<=maxdiagram then E81:=exp(-t/  0.93167712)*1.0017898; N81:=N(79);
if Ewritten( 82)<=maxdiagram then E82:=exp(-t/  3.56752506)*1.0001220; N82:=N(133);
if Ewritten( 83)<=maxdiagram then E83:=exp(-t/  2.75145806)*1.0002051; N83:=N(121);
if Ewritten( 84)<=maxdiagram then E84:=exp(-t/  1.45044546)*1.0007382; N84:=N(94);
if Ewritten( 85)<=maxdiagram then E85:=exp(-t/  4.46376915)*1.0000779; N85:=N(144);
if Ewritten( 86)<=maxdiagram then E86:=exp(-t/  0.74250761)*1.0028188; N86:=N(11);
if Ewritten( 87)<=maxdiagram then E87:=exp(-t/  0.96302711)*1.0016751; N87:=N(29);
if Ewritten( 88)<=maxdiagram then E88:=exp(-t/  0.85691347)*1.0021159; N88:=N(47);
if Ewritten( 89)<=maxdiagram then E89:=exp(-t/  0.55053634)*1.0051308; N89:=N(64);
if Ewritten( 90)<=maxdiagram then E90:=exp(-t/  5.55803553)*1.0000503; N90:=N(145);
if Ewritten( 91)<=maxdiagram then E91:=exp(-t/  4.43213058)*1.0000790; N91:=N(134);
if Ewritten( 92)<=maxdiagram then E92:=exp(-t/  3.42050027)*1.0001327; N92:=N(122);
if Ewritten( 93)<=maxdiagram then E93:=exp(-t/  2.54235615)*1.0002402; N93:=N(109);
if Ewritten( 94)<=maxdiagram then E94:=exp(-t/  1.15887431)*1.0011566; N94:=N(80);
if Ewritten( 95)<=maxdiagram then E95:=exp(-t/  1.80383048)*1.0004773; N95:=N(95);
if Ewritten( 96)<=maxdiagram then E96:=exp(-t/  0.91008354)*1.0018757; N96:=N(12);
if Ewritten( 97)<=maxdiagram then E97:=exp(-t/  1.17501949)*1.0011250; N97:=N(30);
if Ewritten( 98)<=maxdiagram then E98:=exp(-t/  1.04145572)*1.0014322; N98:=N(48);
if Ewritten( 99)<=maxdiagram then E99:=exp(-t/  0.67355944)*1.0034260; N99:=N(65);
if Ewritten(100)<=maxdiagram then E100:=exp(-t/  1.41782911)*1.0007726; N100:=N(81);
if Ewritten(101)<=maxdiagram then E101:=exp(-t/  5.42305143)*1.0000528; N101:=N(135);
if Ewritten(102)<=maxdiagram then E102:=exp(-t/  4.18158732)*1.0000888; N102:=N(123);
if Ewritten(103)<=maxdiagram then E103:=exp(-t/  3.10938886)*1.0001606; N103:=N(110);
if Ewritten(104)<=maxdiagram then E104:=exp(-t/  2.20572612)*1.0003192; N104:=N(96);
if Ewritten(105)<=maxdiagram then E105:=exp(-t/  1.10264393)*1.0012776; N105:=N(13);
if Ewritten(106)<=maxdiagram then E106:=exp(-t/  1.41972119)*1.0007705; N106:=N(31);
if Ewritten(107)<=maxdiagram then E107:=exp(-t/  1.25599396)*1.0009846; N107:=N(49);
if Ewritten(108)<=maxdiagram then E108:=exp(-t/  0.81699578)*1.0023279; N108:=N(66);
if Ewritten(109)<=maxdiagram then E109:=exp(-t/  3.76143982)*1.0001097; N109:=N(111);
if Ewritten(110)<=maxdiagram then E110:=exp(-t/  1.71842641)*1.0005259; N110:=N(82);
if Ewritten(111)<=maxdiagram then E111:=exp(-t/  5.05216296)*1.0000608; N111:=N(124);
if Ewritten(112)<=maxdiagram then E112:=exp(-t/  2.67000861)*1.0002178; N112:=N(97);
<*
timing of diagrams    
cputime used                  7
real time used                8
cpu  %                    81.59
blocksread                   45

dropped                  0
*>
if maxdiagram>=1 then
begin
pvalue(1):=simproc:=r:=r
+N1*(E1);
<*
timing of diagrams    
cputime used                  0
real time used                0
cpu  %                    19.25
blocksread                   16
written                  1
dropped                  0
*>
if maxdiagram>=2 then
begin
pvalue(2):=simproc:=r:=r
+N2*(E1*1.50791777   -E2*1.50791777   )
+N3*(E1*1.09209336   -E3*1.09209336   )
+N5*(E1*1.07842167   -E5*1.07842167   )
+N7*(E1*6.64198117' -1-E7*6.64198117' -1)
+N9*(E1*9.71613337' -1-E9*9.71613337' -1)
+N12*(E1*2.11208345   -E12*2.11208345   )
+N14*(E1*9.52900154' -1-E14*9.52900154' -1)
+N18*(E1*5.43183665' -1-E18*5.43183665' -1)
+N20*(E1*1.02565271   -E20*1.02565271   )
+N25*(E1*5.94047731' -1-E25*5.94047731' -1)
+N27*(E1*9.31958753' -1-E27*9.31958753' -1)
+N33*(E1*7.41894669' -1-E33*7.41894669' -1)
+N35*(E1*2.63443678   -E35*2.63443678   )
+N42*(E1*1.18916182   -E42*1.18916182   )
+N44*(E1*7.32825323   -E44*7.32825323   )
+N52*(E1*1.07000172' 1-E52*1.07000172' 1)
+N54*(-E1*4.41890518   +E54*4.41890518   )
+N63*(-E1*1.42072794   +E63*1.42072794   )
+N65*(-E1*1.29173139   +E65*1.29173139   )
+N75*(-E1*5.68586372' -1+E75*5.68586372' -1)
+N77*(-E1*7.02614456' -1+E77*7.02614456' -1)
+N86*(-E1*1.06022720   +E86*1.06022720   )
+N88*(-E1*1.45619583   +E88*1.45619583   )
+N96*(-E1*6.39857601' -1+E96*6.39857601' -1)
+N98*(-E1*3.25885936' -1+E98*3.25885936' -1)
+N105*(-E1*1.61486922' -1+E105*1.61486922' -1)
+N107*(-E1*2.43915915' -1+E107*2.43915915' -1);
<*
timing of diagrams    
cputime used                  1
real time used                2
cpu  %                    74.15
blocksread                   13
written                 28
dropped                  0
*>
if maxdiagram>=3 then
begin
pvalue(3):=simproc:=r:=r
+N4*(E1*7.67171560' -1-E2*1.17279966   +E4*4.05628101' -1)
+N6*(E1*1.56980125   -E2*1.70930749   +E6*1.39506237' -1)
+N10*(E1*1.15950158   -E2*1.37368190   +E10*2.14180323' -1)
+N15*(E1*1.03917761   -E2*1.43354327   +E15*3.94365663' -1)
+N21*(E1*1.02088932   -E2*1.90148671   +E21*8.80597386' -1)
+N28*(E1*1.07641093   -E2*4.53139660   +E28*3.45498566   )
+N36*(E1*1.22403451   +E2*4.43382712   -E36*5.65786163   )
+N45*(E1*1.54396779   +E2*1.23088050   -E45*2.77484829   )
+N55*(E1*2.37491035   +E2*6.45367011' -1-E55*3.02027736   )
+N66*(E1*7.72671078   +E2*4.05306273' -1-E66*8.13201705   )
+N78*(-E1*4.49638877   +E2*2.81503793' -1+E78*4.21488498   )
+N89*(-E1*1.55978651   +E2*2.07093714' -1+E89*1.35269280   )
+N99*(-E1*3.64317071' -1+E2*6.51825940' -2+E99*2.99134477' -1)
+N108*(-E1*5.88324018' -1+E2*1.24646096' -1+E108*4.63677922' -1)
+N10*(E1*3.34146167' -1-E5*5.88112219' -1+E10*2.53966052' -1)
+N15*(E1*3.36752053' -1-E5*1.41445943   +E15*1.07770738   )
+N21*(E1*3.43357464' -1+E5*1.21480496   -E21*1.55816242   );
<*
timing of diagrams    
cputime used                  1
real time used                2
cpu  %                    70.53
blocksread                   16
written                 45
dropped                  0
*>
if maxdiagram>=4 then
begin
pvalue(4):=simproc:=r:=r
+N7*(E1*3.75685767' -1-E2*8.23995952' -1+E4*1.60291327   -E7*1.15460308   )
+N12*(E1*2.85119104' -1-E2*7.62362498' -1-E4*6.32758650' -1
   +E12*1.11000204   )
+N18*(E1*2.69291374' -1-E2*1.43105478   -E4*1.34378478' -1
   +E18*1.29614189   )
+N11*(E1*1.84198170   -E2*3.04520382   -E6*5.14342443' -2+E11*1.25465636   )
+N16*(E1*1.17708734   -E2*3.81413375   -E6*1.46605293' -2+E16*2.65170695   )
+N24*(E1*1.08175799   +E2*4.12062521   -E6*6.51539052' -3-E24*5.19586781   )
+N32*(E1*1.31490929   +E2*8.20097568' -1-E6*3.57969885' -3
   -E32*2.13142716   )
+N41*(E1*2.76582124   +E2*3.69010629' -1-E6*2.20940059' -3
   -E41*3.13262247   )
+N46*(-E1*3.75999748   +E2*2.11536018' -1-E6*1.47925782' -3
   +E46*3.54994072   )
+N56*(-E1*8.88970334' -1+E2*1.36841070' -1-E6*1.04751360' -3
   +E56*7.53176778' -1)
+N74*(-E1*4.45693107' -1+E2*9.47831573' -2-E6*7.69359662' -4
   +E74*3.51679310' -1)
+N81*(-E1*2.77095495' -1+E2*6.93152006' -2-E6*5.85179516' -4
   +E81*2.08365473' -1)
+N16*(E1*6.81098031' -1-E2*2.40124329   -E10*3.86108151' -2
   +E16*1.75875608   )
+N24*(E1*6.66471995' -1+E2*2.76219426   -E10*1.69875100' -2
   -E24*3.41167875   )
+N32*(E1*8.26453700' -1+E2*5.60825260' -1-E10*9.19035685' -3
   -E32*1.37808860   )
+N41*(E1*1.75378901   +E2*2.54584184' -1-E10*5.60887149' -3
   -E41*2.00276433   )
+N16*(E1*1.96279419' -1+E5*4.11786809' -1-E10*4.57830866' -2
   -E16*5.62283141' -1)
+N24*(E1*1.92064475' -1+E5*1.31978644' -1-E10*2.01430775' -2
   -E24*3.03900042' -1)
+N32*(E1*2.38168141' -1+E5*6.34652188' -2-E10*1.08975400' -2
   -E32*2.90735820' -1)
+N41*(E1*5.05408433' -1+E5*3.64962499' -2-E10*6.65076477' -3
   -E41*5.35253918' -1);
<*
timing of diagrams    
cputime used                  2
real time used                3
cpu  %                    63.20
blocksread                   13
written                 65
dropped                  0
*>
if maxdiagram>=5 then
begin
pvalue(5):=simproc:=r:=r
+N17*(E1*2.99844035   +E2*2.09962677' 1+E6*5.91902561' -3-E11*7.79225979' -1
   -E17*2.32214011' 1)
+N23*(E1*2.30660286   +E2*1.84070253   +E6*1.75806301' -3-E11*1.96436007' -1
   -E23*3.95262745   )
+N31*(E1*6.46066991   +E2*6.03749952' -1+E6*7.91201074' -4
   -E11*8.18672326' -2-E31*6.98334383   )
+N37*(-E1*1.72443749   +E2*2.85512337' -1+E6*4.33447601' -4
   -E11*4.29920536' -2+E37*1.48148376   )
+N23*(E1*1.53953043   +E2*2.40799310   +E6*5.23388043' -4-E16*9.56411640' -1
   -E23*2.99163528   )
+N31*(E1*4.51883179   +E2*8.27678949' -1+E6*2.46836512' -4
   -E16*3.74940872' -1-E31*4.97181671   )
+N37*(-E1*1.21861429   +E2*3.95457544' -1+E6*1.36624732' -4
   -E16*1.88903508' -1+E37*1.01192363   )
+N31*(E1*3.38462625   -E2*7.28772920' -1+E6*8.94053120' -5
   +E24*1.20102811   -E31*3.85697085   )
+N37*(-E1*9.72547121' -1-E2*3.71013767' -1+E6*5.27282174' -5
   +E24*5.84814309' -1+E37*7.58693851' -1)
+N23*(E1*8.90818475' -1+E2*1.51598703   +E10*2.70042074' -3
   -E16*6.34344147' -1-E23*1.77516177   )
+N31*(E1*2.61473159   +E2*5.21077301' -1+E10*1.24688431' -3
   -E16*2.48681151' -1-E31*2.88837462   )
+N37*(-E1*7.05126772' -1+E2*2.48966040' -1+E10*6.81811151' -4
   -E16*1.25291067' -1+E37*5.80769988' -1)
+N31*(E1*2.08527105   -E2*4.88521104' -1+E10*4.47105523' -4
   +E24*7.88611687' -1-E31*2.38580874   )
+N37*(-E1*5.99187091' -1-E2*2.48703060' -1+E10*2.60500054' -4
   +E24*3.83997173' -1+E37*4.63632478' -1)
+N23*(E1*2.56716838' -1-E5*7.17402612' -2+E10*3.20204575' -3
   +E16*2.02803007' -1-E23*3.90981629' -1)
+N31*(E1*7.53515608' -1-E5*3.11392127' -2+E10*1.47850316' -3
   +E16*7.95046118' -2-E31*8.03359510' -1)
+N37*(-E1*2.03204042' -1-E5*1.64692372' -2+E10*8.08463091' -4
   +E16*4.00561827' -2+E37*1.78808634' -1)
+N31*(E1*6.00935213' -1-E5*8.13395905' -3+E10*5.30158993' -4
   +E24*7.02466858' -2-E31*6.63578099' -1)
+N37*(-E1*1.72674253' -1-E5*4.58382132' -3+E10*3.08890048' -4
   +E24*3.42050837' -2+E37*1.42744101' -1);
<*
timing of diagrams    
cputime used                  2
real time used                3
cpu  %                    74.55
blocksread                   29
written                 84
dropped                  0
*>
if maxdiagram>=6 then
begin
pvalue(6):=simproc:=r:=r
+N22*(E1*2.09297355' 1-E2*1.36030021' 1-E6*2.88396573' -4+E11*1.62407583' -1
   +E17*1.90131965' 1-E22*2.65020491' 1)
+N29*(-E1*4.78112394   -E2*3.29258072   -E6*8.32778218' -5
   +E11*4.46026910' -2+E17*4.39911714   +E29*3.63006811   )
+N39*(-E1*1.02982539   -E2*1.32813729   -E6*3.67789112' -5
   +E11*1.91489763' -2+E17*1.74002464   +E39*5.98825839' -1)
+N29*(-E1*4.75646734   -E2*3.73297467' -1-E6*3.19882645' -5
   +E11*1.45410524' -2+E23*2.04549464   +E29*3.06976111   )
+N39*(-E1*1.08210640   -E2*1.59042588' -1-E6*1.49214848' -5
   +E11*6.59374568' -3+E23*7.59316846' -1+E39*4.75253317' -1)
+N49*(-E1*4.47138650' -1-E2*8.26104452' -2-E6*8.17853404' -6
   +E11*3.55095013' -3+E23*3.68264441' -1+E49*1.57941883' -1)
+N39*(-E1*2.81446003   -E2*4.84403561' -2-E6*6.23569504' -6
   +E11*2.55177042' -3+E31*2.45931613   +E39*4.01038726' -1)
+N49*(-E1*1.21708179   -E2*2.63318450' -2-E6*3.57684999' -6
   +E11*1.43815738' -3+E31*1.11714919   +E49*1.24829874' -1)
+N29*(-E1*3.17468011   -E2*4.88344917' -1-E6*9.52313716' -6
   +E16*1.33184824' -1+E23*1.54817877   +E29*1.98167095   )
+N39*(-E1*7.22246451' -1-E2*2.08058308' -1-E6*4.44223370' -6
   +E16*5.84876563' -2+E23*5.74706090' -1+E39*2.97115456' -1)
+N49*(-E1*2.98440434' -1-E2*1.08070358' -1-E6*2.43480860' -6
   +E16*3.09039202' -2+E23*2.78729252' -1+E49*9.68800545' -2)
+N39*(-E1*1.96853757   -E2*6.64067349' -2-E6*1.94539323' -6
   +E16*2.12913179' -2+E31*1.75091894   +E39*2.62735993' -1)
+N49*(-E1*8.51272079' -1-E2*3.60982452' -2-E6*1.11589481' -6
   +E16*1.17734660' -2+E31*7.95358372' -1+E49*8.02396021' -2)
+N39*(-E1*1.47444390   +E2*5.84712590' -2-E6*7.04630314' -7
   -E24*1.17709584' -1+E31*1.35830497   +E39*1.75377959' -1)
+N49*(-E1*6.37606789' -1+E2*3.17845749' -2-E6*4.04182198' -7
   -E24*6.31739792' -2+E31*6.17012702' -1+E49*5.19838960' -2)
+N29*(-E1*1.83696511   -E2*3.07444634' -1-E10*9.31178570' -5
   +E16*8.83354094' -2+E23*9.18650678' -1+E29*1.13751678   )
+N39*(-E1*4.17913456' -1-E2*1.30986129' -1-E10*4.30758919' -5
   +E16*3.87921904' -2+E23*3.41016262' -1+E39*1.69134208' -1)
+N49*(-E1*1.72686585' -1-E2*6.80372633' -2-E10*2.34858613' -5
   +E16*2.04971585' -2+E23*1.65390988' -1+E49*5.48591879' -2)
+N39*(-E1*1.13905487   -E2*4.18073243' -2-E10*1.84692558' -5
   +E16*1.41215585' -2+E31*1.01719555   +E39*1.49563556' -1)
+N49*(-E1*4.92571554' -1-E2*2.27261745' -2-E10*1.05383846' -5
   +E16*7.80880215' -3+E31*4.62063080' -1+E49*4.54363846' -2)
+N39*(-E1*9.08406112' -1+E2*3.91952599' -2-E10*6.62267239' -6
   -E24*7.72897426' -2+E31*8.40207507' -1+E39*1.06299710' -1)
+N49*(-E1*3.92830073' -1+E2*2.13062742' -2-E10*3.77883492' -6
   -E24*4.14809095' -2+E31*3.81665912' -1+E49*3.13425757' -2)
+N29*(-E1*5.29378193' -1+E5*5.60528279' -3-E10*1.10415253' -4
   -E16*2.82412736' -2+E23*2.02333975' -1+E29*3.49790624' -1)
+N39*(-E1*1.20434661' -1+E5*2.53654967' -3-E10*5.10775875' -5
   -E16*1.24020579' -2+E23*7.51092636' -2+E39*5.52419829' -2)
+N49*(-E1*4.97649692' -2+E5*1.36431493' -3-E10*2.78485501' -5
   -E16*6.55304440' -3+E23*3.64275745' -2+E49*1.85539727' -2)
+N39*(-E1*3.28253818' -1+E5*1.02237081' -3-E10*2.19000696' -5
   -E16*4.51473310' -3+E31*2.82918190' -1+E39*4.88498896' -2)
+N49*(-E1*1.41949696' -1+E5*5.75482520' -4-E10*1.24959749' -5
   -E16*2.49651323' -3+E31*1.28516144' -1+E49*1.53670783' -2)
+N39*(-E1*2.61785258' -1+E5*2.67056278' -4-E10*7.85288739' -6
   -E24*6.88469161' -3+E31*2.33691532' -1+E39*3.47192139' -2)
+N49*(-E1*1.13206110' -1+E5*1.50323365' -4-E10*4.48078409' -6
   -E24*3.69496986' -3+E31*1.06154838' -1+E49*1.06003992' -2);
<*
timing of diagrams    
cputime used                  5
real time used                5
cpu  %                    85.90
blocksread                   29
written                113
dropped                  0
*>
if maxdiagram>=7 then
begin
pvalue(7):=simproc:=r:=r
+N30*(-E1*2.97702546' 1+E2*3.35377320   +E6*6.90180143' -6
   -E11*1.54301785' -2-E17*5.56656086   +E22*2.68287806' 1
   +E30*5.16968492   )
+N40*(-E1*5.81664942   +E2*8.68079199' -1+E6*1.90347100' -6
   -E11*4.16835230' -3-E17*1.42266592   +E22*5.73196040   
   +E40*6.43442185' -1)
+N40*(E1*2.03739295   +E2*3.22178581' -1+E6*8.42793496' -7
   -E11*1.75531403' -3-E17*5.04718201' -1-E29*2.43965343   
   +E40*5.86554568' -1)
+N47*(E1*7.72167379' -1+E2*1.39139423' -1+E6*3.78072757' -7
   -E11*7.77392894' -4-E17*2.16420282' -1-E29*8.46943766' -1
   +E47*1.52834261' -1)
+N58*(E1*3.80003020' -1+E2*7.36665767' -2+E6*2.05087863' -7
   -E11*4.18189407' -4-E17*1.14079165' -1-E29*3.99830361' -1
   +E58*6.06579145' -2)
+N47*(E1*1.77270259' -1+E2*5.98201602' -2+E6*1.77965463' -7
   -E11*3.55726239' -4-E17*9.12386107' -2-E39*2.83991776' -1
   +E47*1.38495517' -1)
+N58*(E1*9.04405244' -2+E2*3.28336722' -2+E6*1.00081061' -7
   -E11*1.98380946' -4-E17*4.98584345' -2-E39*1.24095769' -1
   +E58*5.08782874' -2)
+N40*(E1*2.02688597   +E2*3.65271070' -2+E6*3.23729664' -7
   -E11*5.72255010' -4-E23*4.16614160' -1-E29*2.06308890   
   +E40*4.16861913' -1)
+N47*(E1*7.68185256' -1+E2*1.57749798' -2+E6*1.45223435' -7
   -E11*2.53440108' -4-E23*1.72180257' -1-E29*7.16216600' -1
   +E47*1.04689916' -1)
+N58*(E1*3.78043317' -1+E2*8.35197337' -3+E6*7.87773344' -8
   -E11*1.36335139' -4-E23*8.87929374' -2-E29*3.38115886' -1
   +E58*4.06497893' -2)
+N47*(E1*1.86269714' -1+E2*7.16338078' -3+E6*7.22019461' -8
   -E11*1.22490535' -4-E23*6.81238019' -2-E39*2.25387792' -1
   +E47*1.00200918' -1)
+N58*(E1*9.50319065' -2+E2*3.93178646' -3+E6*4.06036501' -8
   -E11*6.83103624' -5-E23*3.64204699' -2-E39*9.84876100' -2
   +E58*3.60126567' -2)
+N58*(E1*3.62651608' -2+E2*1.88607679' -3+E6*2.05530567' -8
   -E11*3.39740162' -5-E23*1.63128640' -2-E49*5.54418225' -2
   +E58*3.36374024' -2)
+N47*(E1*4.84470534' -1+E2*2.18178489' -3+E6*3.01732249' -8
   -E11*4.74036669' -5-E31*3.67808852' -1-E39*1.90191693' -1
   +E47*7.13955996' -2)
+N58*(E1*2.47169320' -1+E2*1.19752287' -3+E6*1.69682831' -8
   -E11*2.64360153' -5-E31*1.90029951' -1-E39*8.31079852' -2
   +E58*2.47975126' -2)
+N58*(E1*9.87113662' -2+E2*6.01181626' -4+E6*8.98879924' -9
   -E11*1.37596926' -5-E31*7.97199085' -2-E49*4.38186222' -2
   +E58*2.42397336' -2)
+N40*(E1*1.35283480   +E2*4.77844845' -2+E6*9.63766569' -8
   -E16*9.37632822' -3-E23*3.15323828' -1-E29*1.33181808   
   +E40*2.55898847' -1)
+N47*(E1*5.12721369' -1+E2*2.06367090' -2+E6*4.32340645' -8
   -E16*4.09715153' -3-E23*1.30318513' -1-E29*4.62350514' -1
   +E47*6.34080573' -2)
+N58*(E1*2.52323102' -1+E2*1.09259882' -2+E6*2.34525809' -8
   -E16*2.18518839' -3-E23*6.72049384' -2-E29*2.18269241' -1
   +E58*2.44102536' -2)
+N47*(E1*1.24324780' -1+E2*9.37108044' -3+E6*2.14950403' -8
   -E16*1.91770737' -3-E23*5.15610367' -2-E39*1.40906321' -1
   +E47*6.06891835' -2)
+N58*(E1*6.34285660' -2+E2*5.14353324' -3+E6*1.20879996' -8
   -E16*1.06032937' -3-E23*2.75656545' -2-E39*6.15717767' -2
   +E58*2.16256492' -2)
+N58*(E1*2.42049984' -2+E2*2.46735136' -3+E6*6.11879328' -9
   -E16*5.17413872' -4-E23*1.23467592' -2-E49*3.40074886' -2
   +E58*2.01993058' -2)
+N47*(E1*3.38856633' -1+E2*2.99100219' -3+E6*9.41335120' -9
   -E16*6.98104865' -4-E31*2.61862833' -1-E39*1.24601940' -1
   +E47*4.53152326' -2)
+N58*(E1*1.72879376' -1+E2*1.64168041' -3+E6*5.29371352' -9
   -E16*3.85992725' -4-E31*1.35292506' -1-E39*5.44472580' -2
   +E58*1.56046950' -2)
+N58*(E1*6.90423851' -2+E2*8.24158039' -4+E6*2.80429833' -9
   -E16*1.97119155' -4-E31*5.67568750' -2-E49*2.81662450' -2
   +E58*1.52536932' -2)
+N47*(E1*2.53805211' -1-E2*2.63358323' -3+E6*3.40955880' -9
   +E24*6.34281292' -3-E31*2.03144519' -1-E39*8.31725936' -2
   +E47*2.88026681' -2)
+N58*(E1*1.29487465' -1-E2*1.44550279' -3+E6*1.91740722' -9
   +E24*3.46312325' -3-E31*1.04955448' -1-E39*3.63438937' -2
   +E58*9.79425444' -3)
+N58*(E1*5.17130710' -2-E2*7.25672752' -4+E6*1.01572966' -9
   +E24*1.71649395' -3-E31*4.40301052' -2-E49*1.82477370' -2
   +E58*9.57394890' -3)
+N40*(E1*7.82790787' -1+E2*3.00834161' -2+E10*1.76219946' -6
   -E16*6.21889015' -3-E23*1.87105296' -1-E29*7.64488881' -1
   +E40*1.44937103' -1)
+N47*(E1*2.96675960' -1+E2*1.29921398' -2+E10*7.87453199' -7
   -E16*2.71745344' -3-E23*7.73277559' -2-E29*2.65397980' -1
   +E47*3.57743024' -2)
+N58*(E1*1.46001714' -1+E2*6.87861456' -3+E10*4.26071457' -7
   -E16*1.44933563' -3-E23*3.98777346' -2-E29*1.25290692' -1
   +E58*1.37370074' -2)
+N47*(E1*7.19380460' -2+E2*5.89969977' -3+E10*3.88254852' -7
   -E16*1.27192769' -3-E23*3.05950334' -2-E39*8.02115091' -2
   +E47*3.42403362' -2)
+N58*(E1*3.67016704' -2+E2*3.23818605' -3+E10*2.17784104' -7
   -E16*7.03268033' -4-E23*1.63567720' -2-E39*3.50499898' -2
   +E58*1.21699556' -2)
+N58*(E1*1.40057380' -2+E2*1.55335688' -3+E10*1.09659513' -7
   -E16*3.43176983' -4-E23*7.32625904' -3-E49*1.92570413' -2
   +E58*1.13672728' -2)
+N47*(E1*1.96072610' -1+E2*1.88302886' -3+E10*1.66468478' -7
   -E16*4.63021064' -4-E31*1.52129092' -1-E39*7.09301722' -2
   +E47*2.55664801' -2)
+N58*(E1*1.00033191' -1+E2*1.03354374' -3+E10*9.33772966' -8
   -E16*2.56011340' -4-E31*7.85981187' -2-E39*3.09943279' -2
   +E58*8.78162977' -3)
+N58*(E1*3.99499945' -2+E2*5.18860661' -4+E10*4.92055244' -8
   -E16*1.30740130' -4-E31*3.29728804' -2-E49*1.59493854' -2
   +E58*8.58410155' -3)
+N47*(E1*1.56369602' -1-E2*1.76537979' -3+E10*5.96919663' -8
   +E24*4.16477879' -3-E31*1.25659225' -1-E39*5.04123929' -2
   +E47*1.73025576' -2)
+N58*(E1*7.97773349' -2-E2*9.68969343' -4+E10*3.34830623' -8
   +E24*2.27393468' -3-E31*6.49223536' -2-E39*2.20286824' -2
   +E58*5.86870228' -3)
+N58*(E1*3.18604661' -2-E2*4.86442957' -4+E10*1.76440281' -8
   +E24*1.12707369' -3-E31*2.72357282' -2-E49*1.10020818' -2
   +E58*5.73669554' -3)
+N40*(E1*2.25585325' -1-E5*2.32082231' -4+E10*2.08954227' -6
   +E16*1.98821038' -3-E23*4.12101785' -2-E29*2.35083164' -1
   +E40*4.89497992' -2)
+N47*(E1*8.54963344' -2-E5*1.02692769' -4+E10*9.33729004' -7
   +E16*8.68783497' -4-E23*1.70315362' -2-E29*8.16108623' -2
   +E47*1.23790396' -2)
+N58*(E1*4.20749000' -2-E5*5.52105721' -5+E10*5.05217679' -7
   +E16*4.63359873' -4-E23*8.78312154' -3-E29*3.85273519' -2
   +E58*4.82691892' -3)
+N47*(E1*2.07311682' -2-E5*4.95309366' -5+E10*4.60376333' -7
   +E16*4.06641665' -4-E23*6.73859486' -3-E39*2.61983833' -2
   +E47*1.18482388' -2)
+N58*(E1*1.05767191' -2-E5*2.76064473' -5+E10*2.58239264' -7
   +E16*2.24838319' -4-E23*3.60259974' -3-E39*1.14478967' -2
   +E58*4.27628721' -3)
+N58*(E1*4.03618567' -3-E5*1.37129125' -5+E10*1.30029655' -7
   +E16*1.09715403' -4-E23*1.61361783' -3-E49*6.51294034' -3
   +E58*3.99423998' -3)
+N47*(E1*5.65043741' -2-E5*1.99637264' -5+E10*1.97391346' -7
   +E16*1.48030157' -4-E31*4.23125005' -2-E39*2.31669477' -2
   +E47*8.84681036' -3)
+N58*(E1*2.88276514' -2-E5*1.11269360' -5+E10*1.10722885' -7
   +E16*8.18481099' -5-E31*2.18609268' -2-E39*1.01232515' -2
   +E58*3.08569500' -3)
+N58*(E1*1.15128239' -2-E5*5.78425203' -6+E10*5.83458488' -8
   +E16*4.17982756' -5-E31*9.17092845' -3-E49*5.39425524' -3
   +E58*3.01628740' -3)
+N47*(E1*4.50627269' -2-E5*5.21477966' -6+E10*7.07802322' -8
   +E24*3.70983478' -4-E31*3.49502910' -2-E39*1.64655073' -2
   +E47*5.98723192' -3)
+N58*(E1*2.29903013' -2-E5*2.90649743' -6+E10*3.97028122' -8
   +E24*2.02553902' -4-E31*1.80572111' -2-E39*7.19492590' -3
   +E58*2.06214857' -3)
+N58*(E1*9.18157663' -3-E5*1.51092031' -6+E10*2.09215491' -8
   +E24*1.00395661' -4-E31*7.57522279' -3-E49*3.72102346' -3
   +E58*2.01576395' -3);
<*
timing of diagrams    
cputime used                 13
real time used               14
cpu  %                    89.95
blocksread                   29
written                165
dropped                  0
*>
if maxdiagram>=8 then
begin
pvalue(8):=simproc:=r:=r
+N38*(E1*1.40668324' 1-E2*4.06425734' -1-E6*8.92948975' -8
   +E11*7.68059181' -4+E17*7.86238819' -1-E22*1.01722287' 1
   -E30*6.22951773   +E38*1.95433298   )
+N51*(E1*3.29367372   -E2*1.03845946' -1-E6*2.34757754' -8
   +E11*1.99955510' -4+E17*1.99850913' -1-E22*2.43589969   
   -E30*1.24206567   +E51*2.88086741' -1)
+N51*(E1*1.14165867   -E2*4.76848666' -2-E6*1.14860080' -8
   +E11*9.58279525' -5+E17*9.06123653' -2-E22*9.23266359' -1
   -E40*5.41895905' -1+E51*2.80480279' -1)
+N60*(E1*4.55388824' -1-E2*2.00395674' -2-E6*4.91813324' -9
   +E11*4.07651780' -5+E17*3.79538428' -2-E22*3.72998681' -1
   -E40*1.75400772' -1+E60*7.50555937' -2)
+N51*(-E1*3.99887832' -1-E2*1.76977431' -2-E6*5.08562140' -9
   +E11*4.03536308' -5+E17*3.21464859' -2+E29*6.65662736' -1
   -E40*4.93986135' -1+E51*2.13722140' -1)
+N60*(-E1*1.59508664' -1-E2*7.43747736' -3-E6*2.17758543' -9
   +E11*1.71664207' -5+E17*1.34648585' -2+E29*2.58404014' -1
   -E40*1.59893346' -1+E60*5.49534515' -2)
+N60*(-E1*7.23068766' -2-E2*3.84182753' -3-E6*1.16839068' -9
   +E11*9.09335540' -6+E17*6.90572781' -3+E29*1.07296207' -1
   -E47*9.38331957' -2+E60*5.57708731' -2)
+N68*(-E1*3.81008574' -2-E2*2.09281954' -3-E6*6.44567835'-10
   +E11*4.99425830' -6+E17*3.75360778' -3+E29*5.56275497' -2
   -E47*3.93137021' -2+E68*2.01212279' -2)
+N68*(-E1*1.86798900' -2-E2*1.10386520' -3-E6*3.48335049'-10
   +E11*2.67650112' -6+E17*1.97115709' -3+E29*2.61622501' -2
   -E58*2.79911868' -2+E68*1.96388587' -2)
+N60*(-E1*1.65998449' -2-E2*1.65171547' -3-E6*5.49981939'-10
   +E11*4.16101709' -6+E17*2.91132147' -3+E39*5.77956065' -2
   -E47*8.50298672' -2+E60*4.25703392' -2)
+N68*(-E1*8.74700101' -3-E2*8.99765123' -4-E6*3.03409360'-10
   +E11*2.28531639' -6+E17*1.58244854' -3+E39*2.88828591' -2
   -E47*3.56253333' -2+E68*1.48045067' -2)
+N68*(-E1*4.44580428' -3-E2*4.91999894' -4-E6*1.69984420'-10
   +E11*1.26968024' -6+E17*8.61496544' -4+E39*1.25734761' -2
   -E58*2.34782824' -2+E68*1.49798445' -2)
+N51*(-E1*3.97825582' -1-E2*2.00648769' -3-E6*1.95346371' -9
   +E11*1.31558040' -5+E23*4.44966718' -2+E29*5.62916595' -1
   -E40*3.51073910' -1+E51*1.43479559' -1)
+N60*(-E1*1.58686067' -1-E2*8.43226544' -4-E6*8.36443330'-10
   +E11*5.59647450' -6+E23*1.83391961' -2+E29*2.18518928' -1
   -E40*1.13635542' -1+E60*3.63011154' -2)
+N60*(-E1*7.19339849' -2-E2*4.35568513' -4-E6*4.48796440'-10
   +E11*2.96455112' -6+E23*9.06542755' -3+E29*9.07348604' -2
   -E47*6.42747858' -2+E60*3.68410872' -2)
+N68*(-E1*3.79043685' -2-E2*2.37274133' -4-E6*2.47588205'-10
   +E11*1.62819261' -6+E23*4.87584840' -3+E29*4.70413457' -2
   -E47*2.69294865' -2+E68*1.31523072' -2)
+N68*(-E1*1.85835565' -2-E2*1.25151095' -4-E6*1.33800734'-10
   +E11*8.72573880' -7+E23*2.50500867' -3+E29*2.21240636' -2
   -E58*1.87582421' -2+E68*1.28370050' -2)
+N60*(-E1*1.74425670' -2-E2*1.97790625' -4-E6*2.23131868'-10
   +E11*1.43280184' -6+E23*3.58677238' -3+E39*4.58690189' -2
   -E47*6.15187475' -2+E60*2.97018813' -2)
+N68*(-E1*9.19105885' -3-E2*1.07745619' -4-E6*1.23095492'-10
   +E11*7.86924317' -7+E23*1.92914876' -3+E39*2.29226491' -2
   -E47*2.57747772' -2+E68*1.02209969' -2)
+N68*(-E1*4.67150384' -3-E2*5.89163014' -5-E6*6.89639758'-11
   +E11*4.37200845' -7+E23*1.02748705' -3+E39*9.97883830' -3
   -E58*1.66183920' -2+E68*1.03420497' -2)
+N68*(-E1*1.78269430' -3-E2*2.82621322' -5-E6*3.49086967'-11
   +E11*2.17440928' -7+E23*4.60215272' -4+E49*8.70825814' -3
   -E58*1.55223077' -2+E68*8.16457332' -3)
+N60*(-E1*4.53665256' -2-E2*6.02420297' -5-E6*9.32469054'-11
   +E11*5.54492322' -7+E31*3.05353208' -2+E39*3.87062062' -2
   -E47*4.38336093' -2+E60*2.00182956' -2)
+N68*(-E1*2.39051056' -2-E2*3.28165947' -5-E6*5.14416600'-11
   +E11*3.04538617' -7+E31*1.61751444' -2+E39*1.93430949' -2
   -E47*1.83651579' -2+E68*6.78453637' -3)
+N68*(-E1*1.21501553' -2-E2*1.79444176' -5-E6*2.88200757'-11
   +E11*1.69196119' -7+E31*8.32553237' -3+E39*8.42056321' -3
   -E58*1.14430543' -2+E68*6.86488927' -3)
+N68*(-E1*4.85237583' -3-E2*9.00847444' -6-E6*1.52671824'-11
   +E11*8.80649581' -8+E31*3.49266353' -3+E49*6.88259975' -3
   -E58*1.11856617' -2+E68*5.67169469' -3)
+N51*(-E1*2.65526676' -1-E2*2.62487198' -3-E6*5.81560240'-10
   +E16*3.77478094' -4+E23*3.36783102' -2+E29*3.63388363' -1
   -E40*2.15513593' -1+E51*8.62209906' -2)
+N60*(-E1*1.05914214' -1-E2*1.10310257' -3-E6*2.49015215'-10
   +E16*1.59522240' -4+E23*1.38804344' -2+E29*1.41063945' -1
   -E40*6.97574025' -2+E60*2.16708176' -2)
+N60*(-E1*4.80119749' -2-E2*5.69807427' -4-E6*1.33609939'-10
   +E16*8.33737119' -5+E23*6.86137341' -3+E29*5.85734949' -2
   -E47*3.89296263' -2+E60*2.19931667' -2)
+N68*(-E1*2.52990793' -2-E2*3.10400222' -4-E6*7.37087950'-11
   +E16*4.55869745' -5+E23*3.69039588' -3+E29*3.03673363' -2
   -E47*1.63105148' -2+E68*7.81667527' -3)
+N68*(-E1*1.24035009' -2-E2*1.63721713' -4-E6*3.98334440'-11
   +E16*2.42220891' -5+E23*1.89597234' -3+E29*1.42820932' -2
   -E58*1.12643499' -2+E68*7.62928494' -3)
+N60*(-E1*1.16419533' -2-E2*2.58748196' -4-E6*6.64279672'-11
   +E16*3.90237903' -5+E23*2.71472961' -3+E39*2.86760638' -2
   -E47*3.72603630' -2+E60*1.77312473' -2)
+N68*(-E1*6.13452581' -3-E2*1.40952002' -4-E6*3.66464162'-11
   +E16*2.13373795' -5+E23*1.46011977' -3+E39*1.43306172' -2
   -E47*1.56111363' -2+E68*6.07453984' -3)
+N68*(-E1*3.11797164' -3-E2*7.70738588' -5-E6*2.05310732'-11
   +E16*1.17533997' -5+E23*7.77676757' -4+E39*6.23849846' -3
   -E58*9.97936697' -3+E68*6.14648387' -3)
+N68*(-E1*1.18985031' -3-E2*3.69723071' -5-E6*1.03925709'-11
   +E16*5.73536129' -6+E23*3.48324313' -4+E49*5.34156302' -3
   -E58*9.32116684' -3+E68*4.85236676' -3)
+N60*(-E1*3.17310281' -2-E2*8.25856129' -5-E6*2.90908868'-11
   +E16*1.42058680' -5+E31*2.17397312' -2+E39*2.53579339' -2
   -E47*2.78214653' -2+E60*1.25232081' -2)
+N68*(-E1*1.67201162' -2-E2*4.49881685' -5-E6*1.60486131'-11
   +E16*7.76746684' -6+E31*1.15159521' -2+E39*1.26724102' -2
   -E47*1.16564803' -2+E68*4.22545492' -3)
+N68*(-E1*8.49826859' -3-E2*2.45999468' -5-E6*8.99119982'-12
   +E16*4.27860142' -6+E31*5.92739265' -3+E39*5.51663689' -3
   -E58*7.20093885' -3+E68*4.27549925' -3)
+N68*(-E1*3.39393135' -3-E2*1.23496899' -5-E6*4.76300929'-12
   +E16*2.18500050' -6+E31*2.48661434' -3+E49*4.42407773' -3
   -E58*7.03896565' -3+E68*3.53236963' -3)
+N60*(-E1*2.37666892' -2+E2*7.27167924' -5-E6*1.05368521'-11
   -E24*2.07690425' -4+E31*1.68649640' -2+E39*1.69265834' -2
   -E47*1.76835114' -2+E60*7.79362683' -3)
+N68*(-E1*1.25234456' -2+E2*3.96121697' -5-E6*5.81288097'-12
   -E24*1.12841960' -4+E31*8.93369450' -3+E39*8.45891502' -3
   -E47*7.40893766' -3+E68*2.61300354' -3)
+N68*(-E1*6.36524312' -3+E2*2.16603009' -5-E6*3.25665364'-12
   -E24*6.13791171' -5+E31*4.59827504' -3+E39*3.68239049' -3
   -E58*4.51965433' -3+E68*2.64395074' -3)
+N68*(-E1*2.54207054' -3+E2*1.08739259' -5-E6*1.72518372'-12
   -E24*3.04225046' -5+E31*1.92903310' -3+E49*2.86617569' -3
   -E58*4.41799219' -3+E68*2.18440251' -3)
+N51*(-E1*1.53641697' -1-E2*1.65252627' -3-E10*1.97610283' -8
   +E16*2.50363974' -4+E23*1.99838694' -2+E29*2.08591825' -1
   -E40*1.22063527' -1+E51*4.85317117' -2)
+N60*(-E1*6.12851403' -2-E2*6.94474244' -4-E10*8.44448147' -9
   +E16*1.05803814' -4+E23*8.23630362' -3+E29*8.09733847' -2
   -E40*3.95095011' -2+E60*1.21736320' -2)
+N60*(-E1*2.77811685' -2-E2*3.58730540' -4-E10*4.51337427' -9
   +E16*5.52979742' -5+E23*4.07136788' -3+E29*3.36222990' -2
   -E47*2.19637737' -2+E60*1.23547123' -2)
+N68*(-E1*1.46388060' -2-E2*1.95416967' -4-E10*2.48649490' -9
   +E16*3.02357576' -5+E23*2.18978889' -3+E29*1.74314281' -2
   -E47*9.20225777' -3+E68*4.38503051' -3)
+N68*(-E1*7.17703760' -3-E2*1.03073382' -4-E10*1.34032226' -9
   +E16*1.60654051' -5+E23*1.12502271' -3+E29*8.19819285' -3
   -E58*6.33907616' -3+E68*4.27990752' -3)
+N60*(-E1*6.73638328' -3-E2*1.62898684' -4-E10*2.22532521' -9
   +E16*2.58826973' -5+E23*1.61085286' -3+E39*1.63239685' -2
   -E47*2.10219891' -2+E60*9.96056922' -3)
+N68*(-E1*3.54962060' -3-E2*8.87383797' -5-E10*1.22596963' -9
   +E16*1.41521090' -5+E23*8.66398663' -4+E39*8.15776339' -3
   -E47*8.80767420' -3+E68*3.40772024' -3)
+N68*(-E1*1.80415190' -3-E2*4.85229671' -5-E10*6.85098424'-10
   +E16*7.79549306' -6+E23*4.61453995' -4+E39*3.55129118' -3
   -E58*5.61594482' -3+E68*3.44807970' -3)
+N68*(-E1*6.88483069' -4-E2*2.32764528' -5-E10*3.44963465'-10
   +E16*3.80400312' -6+E23*2.06686962' -4+E49*3.02470732' -3
   -E58*5.24553900' -3+E68*2.72210058' -3)
+N60*(-E1*1.83605244' -2-E2*5.19929719' -5-E10*9.54132320'-10
   +E16*9.42210325' -6+E31*1.26296868' -2+E39*1.44351093' -2
   -E47*1.56966410' -2+E60*7.03494115' -3)
+N68*(-E1*9.67476062' -3-E2*2.83229548' -5-E10*5.25647776'-10
   +E16*5.15180590' -6+E31*6.69018707' -3+E39*7.21382216' -3
   -E47*6.57648995' -3+E68*2.37041301' -3)
+N68*(-E1*4.91735306' -3-E2*1.54872537' -5-E10*2.93743379'-10
   +E16*2.83780086' -6+E31*3.44351603' -3+E39*3.14036848' -3
   -E58*4.05236879' -3+E68*2.39848708' -3)
+N68*(-E1*1.96383046' -3-E2*7.77492659' -6-E10*1.54789200'-10
   +E16*1.44921101' -6+E31*1.44459745' -3+E49*2.50517316' -3
   -E58*3.96121746' -3+E68*1.98160319' -3)
+N60*(-E1*1.46426770' -2+E2*4.87445221' -5-E10*3.42131044'-10
   -E24*1.36372409' -4+E31*1.04321707' -2+E39*1.02595042' -2
   -E47*1.06229733' -2+E60*4.66160356' -3)
+N68*(-E1*7.71570526' -3+E2*2.65533753' -5-E10*1.88485830'-10
   -E24*7.40935936' -5+E31*5.52612070' -3+E39*5.12709931' -3
   -E47*4.45075331' -3+E68*1.56077897' -3)
+N68*(-E1*3.92163159' -3+E2*1.45196313' -5-E10*1.05329970'-10
   -E24*4.03023782' -5+E31*2.84435771' -3+E39*2.23196257' -3
   -E58*2.70816996' -3+E68*1.57926411' -3)
+N68*(-E1*1.56617177' -3+E2*7.28915980' -6-E10*5.55040316'-11
   -E24*1.99758378' -5+E31*1.19324315' -3+E49*1.72809919' -3
   -E58*2.64725416' -3+E68*1.30477033' -3)
+N51*(-E1*4.42765970' -2+E5*5.60535665' -6-E10*2.34317993' -8
   -E16*8.00426188' -5+E23*4.40147255' -3+E29*6.41427590' -2
   -E40*4.12246762' -2+E51*1.70315024' -2)
+N60*(-E1*1.76612047' -2+E5*2.38345336' -6-E10*1.00131123' -8
   -E16*3.38260102' -5+E23*1.81405630' -3+E29*2.48996158' -2
   -E40*1.33435960' -2+E60*4.32258116' -3)
+N60*(-E1*8.00600113' -3+E5*1.26143043' -6-E10*5.35177007' -9
   -E16*1.76790398' -5+E23*8.96723932' -4+E29*1.03389815' -2
   -E47*7.60016006' -3+E60*4.38687869' -3)
+N68*(-E1*4.21862376' -3+E5*6.92594008' -7-E10*2.94838145' -9
   -E16*9.66652339' -6+E23*4.82303777' -4+E29*5.36022872' -3
   -E47*3.18427211' -3+E68*1.56934025' -3)
+N68*(-E1*2.06828490' -3+E5*3.70958291' -7-E10*1.58929797' -9
   -E16*5.13619062' -6+E23*2.47787676' -4+E29*2.52097468' -3
   -E58*2.22742886' -3+E68*1.53171822' -3)
+N60*(-E1*1.94129675' -3+E5*6.08415097' -7-E10*2.63869738' -9
   -E16*8.27482818' -6+E23*3.54792381' -4+E39*5.33167358' -3
   -E47*7.27427282' -3+E60*3.53677266' -3)
+N68*(-E1*1.02293273' -3+E5*3.34053024' -7-E10*1.45370342' -9
   -E16*4.52450026' -6+E23*1.90825403' -4+E39*2.66445819' -3
   -E47*3.04773372' -3+E68*1.21957476' -3)
+N68*(-E1*5.19922052' -4+E5*1.85486948' -7-E10*8.12361001'-10
   -E16*2.49225824' -6+E23*1.01635827' -4+E39*1.15990945' -3
   -E58*1.97333448' -3+E68*1.23401884' -3)
+N68*(-E1*1.98407646' -4+E5*9.21366757' -8-E10*4.09043221'-10
   -E16*1.21615888' -6+E23*4.55230650' -5+E49*1.02298884' -3
   -E58*1.84318104' -3+E68*9.74201207' -4)
+N60*(-E1*5.29115179' -3+E5*2.45225174' -7-E10*1.13137012' -9
   -E16*3.01229368' -6+E31*3.51276422' -3+E39*4.71474143' -3
   -E47*5.43153402' -3+E60*2.49794836' -3)
+N68*(-E1*2.78808087' -3+E5*1.34641976' -7-E10*6.23291105'-10
   -E16*1.64705819' -6+E31*1.86077850' -3+E39*2.35615163' -3
   -E47*2.27567343' -3+E68*8.48337211' -4)
+N68*(-E1*1.41708705' -3+E5*7.47615721' -8-E10*3.48308589'-10
   -E16*9.07259172' -7+E31*9.57764041' -4+E39*1.02569542' -3
   -E58*1.42392408' -3+E68*8.58384523' -4)
+N68*(-E1*5.65938358' -4+E5*3.88642278' -8-E10*1.83542546'-10
   -E16*4.63320032' -7+E31*4.01793829' -4+E49*8.47276748' -4
   -E58*1.39189527' -3+E68*7.09187686' -4)
+N60*(-E1*4.21973930' -3+E5*6.40559394' -8-E10*4.05684654'-10
   -E24*1.21475625' -5+E31*2.90155699' -3+E39*3.35092091' -3
   -E47*3.67588459' -3+E60*1.65522990' -3)
+N68*(-E1*2.22351861' -3+E5*3.51701993' -8-E10*2.23498598'-10
   -E24*6.59999018' -6+E31*1.53701032' -3+E39*1.67459401' -3
   -E47*1.54010135' -3+E68*5.58580666' -4)
+N68*(-E1*1.13013918' -3+E5*1.95286750' -8-E10*1.24895865'-10
   -E24*3.58999054' -6+E31*7.91116845' -4+E39*7.28995273' -4
   -E58*9.51598590' -4+E68*5.65196236' -4)
+N68*(-E1*4.51340734' -4+E5*1.01518314' -8-E10*6.58143547'-11
   -E24*1.77937561' -6+E31*3.31883275' -4+E49*5.84461898' -4
   -E58*9.30193955' -4+E68*4.66958805' -4);
<*
timing of diagrams    
cputime used                 28
real time used               29
cpu  %                    95.00
blocksread                   30
written                241
dropped                  0
*>
if maxdiagram>=9 then
begin
pvalue(9):=simproc:=r:=r
+N48*(-E1*3.23799491   +E2*2.73387485' -2+E6*6.70052707'-10
   -E11*2.18400111' -5-E17*6.11545308' -2+E22*1.94201786   
   +E30*2.91358623   -E38*2.73361048   +E48*1.14983892   )
+N62*(-E1*7.59917405' -1+E2*6.66992497' -3+E6*1.65882535'-10
   -E11*5.37910641' -6-E17*1.48820707' -2+E22*4.59987809' -1
   +E30*6.47835842' -1-E38*5.03967036' -1+E62*1.64278315' -1)
+N62*(-E1*3.62343782' -1+E2*3.47055920' -3+E6*8.88104617'-11
   -E11*2.85179949' -6-E17*7.70344837' -3+E22*2.24315748' -1
   +E30*2.63042101' -1-E51*2.89899852' -1+E62*1.69121525' -1)
+N71*(-E1*1.45500340' -1+E2*1.42909409' -3+E6*3.69338898'-11
   -E11*1.18182944' -6-E17*3.16670232' -3+E22*9.06011320' -2
   +E30*1.02252458' -1-E51*9.02039366' -2+E71*4.45894764' -2)
+N62*(-E1*1.25596205' -1+E2*1.59364095' -3+E6*4.34523527'-11
   -E11*1.36671455' -6-E17*3.49274201' -3+E22*8.50212286' -2
   +E40*1.88119618' -1-E51*2.82245516' -1+E62*1.36601343' -1)
+N71*(-E1*5.04335700' -2+E2*6.56223605' -4+E6*1.80706684'-11
   -E11*5.66387470' -7-E17*1.43578222' -3+E22*3.43400747' -2
   +E40*7.01480045' -2-E51*8.78222480' -2+E71*3.45478638' -2)
+N71*(-E1*2.62015241' -2+E2*3.59186804' -4+E6*1.00778095'-11
   -E11*3.13813430' -7-E17*7.83281038' -4+E22*1.80693394' -2
   +E40*2.95727498' -2-E60*5.69433306' -2+E71*3.59271736' -2)
+N85*(-E1*1.36303995' -2+E2*1.90147802' -4+E6*5.37298895'-12
   -E11*1.66887275' -7-E17*4.14156408' -4+E22*9.43744991' -3
   +E40*1.46715946' -2-E60*2.26715140' -2+E85*1.24170445' -2)
+N62*(E1*4.39924782' -2+E2*5.91463292' -4+E6*1.92392530'-11
   -E11*5.75530345' -7-E17*1.23911766' -3-E29*9.76376578' -2
   +E40*1.71487701' -1-E51*2.15067227' -1+E62*9.78729356' -2)
+N71*(E1*1.76653246' -2+E2*2.43550577' -4+E6*8.00108949'-12
   -E11*2.38508601' -7-E17*5.09371461' -4-E29*3.87462326' -2
   +E40*6.39461220' -2-E51*6.69193530' -2+E71*2.43201984' -2)
+N71*(E1*9.17758606' -3+E2*1.33308453' -4+E6*4.46211807'-12
   -E11*1.32148407' -7-E17*2.77884070' -4-E29*1.95900365' -2
   +E40*2.69581819' -2-E60*4.16921964' -2+E71*2.52911728' -2)
+N85*(E1*4.77430869' -3+E2*7.05713823' -5+E6*2.37898037'-12
   -E11*7.02770676' -8-E17*1.46929981' -4-E29*1.01102150' -2
   +E40*1.33744586' -2-E60*1.65994016' -2+E85*8.63727829' -3)
+N71*(E1*4.16029176' -3+E2*6.88604561' -5+E6*2.39416424'-12
   -E11*7.00013391' -8-E17*1.42518524' -4-E29*8.13430325' -3
   +E47*2.49032589' -2-E60*4.23123595' -2+E71*2.14568401' -2)
+N85*(E1*2.16424199' -3+E2*3.64536343' -5+E6*1.27644980'-12
   -E11*3.72270006' -8-E17*7.53560433' -5-E29*4.19802967' -3
   +E47*1.18755741' -2-E60*1.68463144' -2+E85*7.04346769' -3)
+N85*(E1*1.23856774' -3+E2*2.15671892' -5+E6*7.64791559'-13
   -E11*2.22056597' -8-E17*4.44852791' -5-E29*2.36379530' -3
   +E47*5.40381965' -3-E68*1.18324751' -2+E85*7.57682330' -3)
+N90*(E1*7.37906101' -4+E2*1.30111102' -5+E6*4.63786233'-13
   -E11*1.34409936' -8-E17*2.68136629' -5-E29*1.40044738' -3
   +E47*3.04056651' -3-E68*5.37534857' -3+E90*3.01113933' -3)
+N85*(E1*6.07238545' -4+E2*1.13756915' -5+E6*4.13305925'-13
   -E11*1.19003603' -8-E17*2.33608514' -5-E29*1.11171900' -3
   +E58*5.83599494' -3-E68*1.15488134' -2+E85*6.22929597' -3)
+N90*(E1*3.61776762' -4+E2*6.86275688' -6+E6*2.50637701'-13
   -E11*7.20323868' -9-E17*1.40808377' -5-E29*6.58645847' -4
   +E58*3.16470551' -3-E68*5.24648453' -3+E90*2.38587339' -3)
+N71*(E1*9.55098619' -4+E2*2.96051501' -5+E6*1.12697501'-12
   -E11*3.20318249' -8-E17*6.00830569' -5-E39*6.63650989' -3
   +E47*2.25668623' -2-E60*3.22973516' -2+E71*1.54424105' -2)
+N85*(E1*4.96855666' -4+E2*1.56724973' -5+E6*6.00847260'-13
   -E11*1.70346565' -8-E17*3.17686524' -5-E39*3.36802704' -3
   +E47*1.07614206' -2-E60*1.28589222' -2+E85*4.98478618' -3)
+N85*(E1*2.84344081' -4+E2*9.27237359' -6+E6*3.60000771'-13
   -E11*1.01610600' -8-E17*1.87541345' -5-E39*1.82801487' -3
   +E47*4.89683916' -3-E68*8.70592779' -3+E85*5.36225133' -3)
+N90*(E1*1.69404729' -4+E2*5.59386175' -6+E6*2.18312296'-13
   -E11*6.15044741' -9-E17*1.13041224' -5-E39*1.07060756' -3
   +E47*2.75530387' -3-E68*3.95499640' -3+E90*2.10661178' -3)
+N85*(E1*1.44522463' -4+E2*5.07021967' -6+E6*2.01689632'-13
   -E11*5.64530019' -9-E17*1.02098878' -5-E39*7.95783450' -4
   +E58*4.89508138' -3-E68*8.80903676' -3+E85*4.57036168' -3)
+N90*(E1*8.61026845' -5+E2*3.05877536' -6+E6*1.22308979'-13
   -E11*3.41707677' -9-E17*6.15404680' -6-E39*4.66063921' -4
   +E58*2.65447300' -3-E68*4.00183754' -3+E90*1.73042447' -3)
+N62*(E1*4.37656059' -2+E2*6.70573533' -5+E6*7.39008660'-12
   -E11*1.87630314' -7-E23*2.80348534' -3-E29*8.25671243' -2
   +E40*1.21875602' -1-E51*1.44382565' -1+E62*6.40450972' -2)
+N71*(E1*1.75742233' -2+E2*2.76126301' -5+E6*3.07333887'-12
   -E11*7.77568795' -8-E23*1.14316742' -3-E29*3.27656877' -2
   +E40*4.54462453' -2-E51*4.49254309' -2+E71*1.57862826' -2)
+N71*(E1*9.13025659' -3+E2*1.51138915' -5+E6*1.71396670'-12
   -E11*4.30820849' -8-E23*6.13653700' -4-E29*1.65662821' -2
   +E40*1.91590687' -2-E60*2.75410041' -2+E71*1.64165438' -2)
+N85*(E1*4.74968723' -3+E2*8.00105465' -6+E6*9.13802159'-13
   -E11*2.29112303' -8-E23*3.22627842' -4-E29*8.54968665' -3
   +E40*9.50517256' -3-E60*1.09652220' -2+E85*5.57469854' -3)
+N71*(E1*4.13883684' -3+E2*7.80707780' -6+E6*9.19634510'-13
   -E11*2.28213392' -8-E23*3.03341169' -4-E29*6.87876013' -3
   +E47*1.70584794' -2-E60*2.79506710' -2+E71*1.39276718' -2)
+N85*(E1*2.15308084' -3+E2*4.13294327' -6+E6*4.90303576'-13
   -E11*1.21364822' -8-E23*1.59481328' -4-E29*3.55005687' -3
   +E47*8.13464759' -3-E60*1.11283275' -2+E85*4.54601644' -3)
+N85*(E1*1.23218036' -3+E2*2.44518747' -6+E6*2.93767946'-13
   -E11*7.23933141' -9-E23*9.31602281' -5-E29*1.99893960' -3
   +E47*3.70156157' -3-E68*7.73433649' -3+E85*4.89025644' -3)
+N90*(E1*7.34100666' -4+E2*1.47513908' -6+E6*1.78147271'-13
   -E11*4.38193725' -9-E23*5.59225478' -5-E29*1.18428602' -3
   +E47*2.08275717' -3-E68*3.51361437' -3+E90*1.93549434' -3)
+N85*(E1*6.04106972' -4+E2*1.28972292' -6+E6*1.58757025'-13
   -E11*3.87967091' -9-E23*4.78618613' -5-E29*9.40123337' -4
   +E58*3.91098123' -3-E68*7.54892008' -3+E85*4.02053124' -3)
+N90*(E1*3.59911054' -4+E2*7.78067413' -7+E6*9.62737126'-14
   -E11*2.34834870' -9-E23*2.87306856' -5-E29*5.56982775' -4
   +E58*2.12082155' -3-E68*3.42938197' -3+E90*1.53358710' -3)
+N71*(E1*1.00358598' -3+E2*3.54517545' -6+E6*4.57222357'-13
   -E11*1.10298172' -8-E23*1.20018137' -4-E39*5.26701277' -3
   +E47*1.63270289' -2-E60*2.25342838' -2+E71*1.05871656' -2)
+N85*(E1*5.22079472' -4+E2*1.87675971' -6+E6*2.43768317'-13
   -E11*5.86570222' -9-E23*6.30994200' -5-E39*2.67300761' -3
   +E47*7.78584207' -3-E60*8.97183788' -3+E85*3.39815247' -3)
+N85*(E1*2.98779339' -4+E2*1.11035381' -6+E6*1.46055059'-13
   -E11*3.49885259' -9-E23*3.68592139' -5-E39*1.45078932' -3
   +E47*3.54284232' -3-E68*6.01055225' -3+E85*3.65547227' -3)
+N90*(E1*1.78004876' -4+E2*6.69857145' -7+E6*8.85709642'-14
   -E11*2.11784095' -9-E23*2.21259779' -5-E39*8.49679092' -4
   +E47*1.99345064' -3-E68*2.73052030' -3+E90*1.43020212' -3)
+N85*(E1*1.51859416' -4+E2*6.07151737' -7+E6*8.18270223'-14
   -E11*1.94389889' -9-E23*1.96316456' -5-E39*6.31567144' -4
   +E58*3.46483529' -3-E68*6.08173844' -3+E85*3.11563732' -3)
+N90*(E1*9.04738480' -5+E2*3.66284085' -7+E6*4.96216858'-14
   -E11*1.17663393' -9-E23*1.17845529' -5-E39*3.69887887' -4
   +E58*1.87888842' -3-E68*2.76285931' -3+E90*1.17480437' -3)
+N85*(E1*5.79511277' -5+E2*2.91250507' -7+E6*4.14198089'-14
   -E11*9.66794057'-10-E23*8.79308712' -6-E49*8.06641402' -4
   +E58*3.23630827' -3-E68*4.80125322' -3+E85*2.32213803' -3)
+N90*(E1*3.45257585' -5+E2*1.75706366' -7+E6*2.51178729'-14
   -E11*5.85196429'-10-E23*5.27834511' -6-E49*4.64906223' -4
   +E58*1.75496427' -3-E68*2.18115055' -3+E90*8.61669973' -4)
+N71*(E1*2.61023559' -3+E2*1.07977092' -6+E6*1.91073423'-13
   -E11*4.26852392' -9-E31*1.57112581' -3-E39*4.44452677' -3
   +E47*1.16334066' -2-E60*1.51875212' -2+E71*6.95845605' -3)
+N85*(E1*1.35788108' -3+E2*5.71613613' -7+E6*1.01870886'-13
   -E11*2.27001861' -9-E31*8.19501852' -4-E39*2.25559618' -3
   +E47*5.54760253' -3-E60*6.04678540' -3+E85*2.21583049' -3)
+N85*(E1*7.77097806' -4+E2*3.38185731' -7+E6*6.10364732'-14
   -E11*1.35405109' -9-E31*4.71470385' -4-E39*1.22423701' -3
   +E47*2.52436163' -3-E68*3.98970967' -3+E85*2.38362079' -3)
+N90*(E1*4.62974445' -4+E2*2.04021571' -7+E6*3.70138447'-14
   -E11*8.19601505'-10-E31*2.81419719' -4-E39*7.16994933' -4
   +E47*1.42038224' -3-E68*1.81247625' -3+E90*9.27331022' -4)
+N85*(E1*3.94972488' -4+E2*1.84923087' -7+E6*3.41955484'-14
   -E11*7.52286170'-10-E31*2.42671216' -4-E39*5.32942904' -4
   +E58*2.38580834' -3-E68*4.03696194' -3+E85*2.03161106' -3)
+N90*(E1*2.35314225' -4+E2*1.11560883' -7+E6*2.07369242'-14
   -E11*4.55355696'-10-E31*1.44849958' -4-E39*3.12126947' -4
   +E58*1.29376068' -3-E68*1.83394238' -3+E90*7.61733274' -4)
+N85*(E1*1.57739132' -4+E2*9.28352727' -8+E6*1.81147920'-14
   -E11*3.91557740'-10-E31*1.01803568' -4-E49*6.37531619' -4
   +E58*2.33214353' -3-E68*3.33529278' -3+E85*1.58465286' -3)
+N90*(E1*9.39768281' -5+E2*5.60059057' -8+E6*1.09852038'-14
   -E11*2.37008274'-10-E31*6.07663440' -5-E49*3.67440125' -4
   +E58*1.26465968' -3-E68*1.51518267' -3+E90*5.84696866' -4)
+N62*(E1*2.92111326' -2+E2*8.77239213' -5+E6*2.20008210'-12
   -E16*9.32844508' -6-E23*2.12188114' -3-E29*5.33008484' -2
   +E40*7.48157246' -2-E51*8.67636333' -2+E62*3.80811102' -2)
+N71*(E1*1.17298266' -2+E2*3.61226334' -5+E6*9.14955157'-13
   -E16*3.85238311' -6-E23*8.65232057' -4-E29*2.11517474' -2
   +E40*2.78980675' -2-E51*2.69969827' -2+E71*9.35379783' -3)
+N71*(E1*6.09394365' -3+E2*1.97718783' -5+E6*5.10260253'-13
   -E16*2.12040935' -6-E23*4.64457650' -4-E29*1.06942914' -2
   +E40*1.17611695' -2-E60*1.64412600' -2+E71*9.72724451' -3)
+N85*(E1*3.17015476' -3+E2*1.04669190' -5+E6*2.72045496'-13
   -E16*1.12482947' -6-E23*2.44188163' -4-E29*5.51921307' -3
   +E40*5.83493628' -3-E60*6.54595109' -3+E85*3.29491920' -3)
+N71*(E1*2.76244575' -3+E2*1.02131600' -5+E6*2.73781829'-13
   -E16*1.10822415' -6-E23*2.29590609' -4-E29*4.44055372' -3
   +E47*1.03318933' -2-E60*1.66858205' -2+E71*8.25252084' -3)
+N85*(E1*1.43706293' -3+E2*5.40668506' -6+E6*1.45966912'-13
   -E16*5.87887984' -7-E23*1.20707042' -4-E29*2.29172379' -3
   +E47*4.92695209' -3-E60*6.64332081' -3+E85*2.68691782' -3)
+N85*(E1*8.22412558' -4+E2*3.19877571' -6+E6*8.74568372'-14
   -E16*3.49112192' -7-E23*7.05104209' -5-E29*1.29040677' -3
   +E47*2.24194303' -3-E68*4.59666854' -3+E85*2.89038048' -3)
+N90*(E1*4.89971782' -4+E2*1.92976576' -6+E6*5.30357280'-14
   -E16*2.10930284' -7-E23*4.23262422' -5-E29*7.64510695' -4
   +E47*1.26147380' -3-E68*2.08821024' -3+E90*1.14188276' -3)
+N85*(E1*4.03208148' -4+E2*1.68720575' -6+E6*4.72631119'-14
   -E16*1.85496552' -7-E23*3.62253298' -5-E29*6.06892536' -4
   +E58*2.34854953' -3-E68*4.48647192' -3+E85*2.37633039' -3)
+N90*(E1*2.40220815' -4+E2*1.01786189' -6+E6*2.86613789'-14
   -E16*1.12075263' -7-E23*2.17454677' -5-E29*3.59557811' -4
   +E58*1.27355622' -3-E68*2.03814926' -3+E90*9.04769719' -4)
+N71*(E1*6.69838396' -4+E2*4.63777165' -6+E6*1.36118395'-13
   -E16*5.18713940' -7-E23*9.08384352' -5-E39*3.29279322' -3
   +E47*9.88887206' -3-E60*1.34523788' -2+E71*6.27318089' -3)
+N85*(E1*3.48459307' -4+E2*2.45516282' -6+E6*7.25715869'-14
   -E16*2.75166079' -7-E23*4.77582199' -5-E39*1.67109170' -3
   +E47*4.71568933' -3-E60*5.35595285' -3+E85*2.00847414' -3)
+N85*(E1*1.99418761' -4+E2*1.45255644' -6+E6*4.34816450'-14
   -E16*1.63404995' -7-E23*2.78977278' -5-E39*9.06994049' -4
   +E47*2.14581077' -3-E68*3.57218961' -3+E85*2.16056271' -3)
+N90*(E1*1.18808456' -4+E2*8.76302039' -7+E6*2.63682151'-14
   -E16*9.87277524' -8-E23*1.67465457' -5-E39*5.31196272' -4
   +E47*1.20738307' -3-E68*1.62280200' -3+E90*8.43775722' -4)
+N85*(E1*1.01357800' -4+E2*7.94271299' -7+E6*2.43604950'-14
   -E16*9.00093759' -8-E23*1.48586540' -5-E39*3.94838611' -4
   +E58*2.08063829' -3-E68*3.61449697' -3+E85*1.84149388' -3)
+N90*(E1*6.03863129' -5+E2*4.79170063' -7+E6*1.47727339'-14
   -E16*5.43828137' -8-E23*8.91940481' -6-E39*2.31243853' -4
   +E58*1.12827505' -3-E68*1.64202172' -3+E90*6.93098827' -4)
+N85*(E1*3.86791875' -5+E2*3.81011705' -7+E6*1.23309760'-14
   -E16*4.39222952' -8-E23*6.65524641' -6-E49*4.94786192' -4
   +E58*1.94340750' -3-E68*2.85347937' -3+E85*1.37249703' -3)
+N90*(E1*2.30440431' -5+E2*2.29857736' -7+E6*7.47777200'-15
   -E16*2.65374353' -8-E23*3.99503460' -6-E49*2.85169072' -4
   +E58*1.05385843' -3-E68*1.29630074' -3+E90*5.08359060' -4)
+N71*(E1*1.82569544' -3+E2*1.48025462' -6+E6*5.96105072'-14
   -E16*1.88827936' -7-E31*1.11856866' -3-E39*2.91178152' -3
   +E47*7.38379580' -3-E60*9.50113300' -3+E71*4.32070052' -3)
+N85*(E1*9.49752313' -4+E2*7.83623341' -7+E6*3.17813703'-14
   -E16*1.00168973' -7-E31*5.83447285' -4-E39*1.47772836' -3
   +E47*3.52109794' -3-E60*3.78279717' -3+E85*1.37243912' -3)
+N85*(E1*5.43530984' -4+E2*4.63617777' -7+E6*1.90419738'-14
   -E16*5.94844778' -8-E31*3.35665033' -4-E39*8.02045054' -4
   +E47*1.60222808' -3-E68*2.48481804' -3+E85*1.47636493' -3)
+N90*(E1*3.23821472' -4+E2*2.79692543' -7+E6*1.15474670'-14
   -E16*3.59399589' -8-E31*2.00357779' -4-E39*4.69731133' -4
   +E47*9.01525470' -4-E68*1.12882241' -3+E90*5.73320630' -4)
+N85*(E1*2.76258385' -4+E2*2.53510490' -7+E6*1.06682235'-14
   -E16*3.27661999' -8-E31*1.72770643' -4-E39*3.49151525' -4
   +E58*1.50135266' -3-E68*2.51424707' -3+E85*1.25833745' -3)
+N90*(E1*1.64587484' -4+E2*1.52938470' -7+E6*6.46944274'-15
   -E16*1.97970281' -8-E31*1.03126447' -4-E39*2.04486445' -4
   +E58*8.14143788' -4-E68*1.14219166' -3+E90*4.70940140' -4)
+N85*(E1*1.10328590' -4+E2*1.27267589' -7+E6*5.65139788'-15
   -E16*1.67330761' -8-E31*7.24794160' -5-E49*4.09800009' -4
   +E58*1.46758222' -3-E68*2.07724279' -3+E85*9.81500877' -4)
+N90*(E1*6.57308739' -5+E2*7.67783235' -8+E6*3.42713058'-15
   -E16*1.01099663' -8-E31*4.32628167' -5-E49*2.36187448' -4
   +E58*7.95830972' -4-E68*9.43665968' -4+E90*3.61487719' -4)
+N71*(E1*1.36745447' -3-E2*1.30336707' -6+E6*2.15911980'-14
   +E24*4.39533769' -6-E31*8.67748545' -4-E39*1.94363283' -3
   +E47*4.69319050' -3-E60*5.91288467' -3+E71*2.66052910' -3)
+N85*(E1*7.11368947' -4-E2*6.89981872' -7+E6*1.15113575'-14
   +E24*2.32347312' -6-E31*4.52619094' -4-E39*9.86393155' -4
   +E47*2.23803365' -3-E60*2.35416591' -3+E85*8.42142076' -4)
+N85*(E1*4.07107262' -4-E2*4.08216352' -7+E6*6.89708989'-15
   +E24*1.37104149' -6-E31*2.60397823' -4-E39*5.35370214' -4
   +E47*1.01838700' -3-E68*1.53660102' -3+E85*9.05911971' -4)
+N90*(E1*2.42543805' -4-E2*2.46269827' -7+E6*4.18254530'-15
   +E24*8.26260210' -7-E31*1.55430934' -4-E39*3.13548542' -4
   +E47*5.73015681' -4-E68*6.98059028' -4+E90*3.50899029' -4)
+N85*(E1*2.06918829' -4-E2*2.23216478' -7+E6*3.86407928'-15
   +E24*7.45762624' -7-E31*1.34029747' -4-E39*2.33060881' -4
   +E58*9.42320880' -4-E68*1.55479981' -3+E85*7.72128178' -4)
+N90*(E1*1.23276799' -4-E2*1.34662620' -7+E6*2.34326171'-15
   +E24*4.49434962' -7-E31*8.00020846' -5-E39*1.36496012' -4
   +E58*5.10995659' -4-E68*7.06326516' -4+E90*2.88237382' -4)
+N85*(E1*8.26366328' -5-E2*1.12059359' -7+E6*2.04696212'-15
   +E24*3.69636579' -7-E31*5.62271321' -5-E49*2.65492357' -4
   +E58*9.21124932' -4-E68*1.28455820' -3+E85*6.02258546' -4)
+N90*(E1*4.92327335' -5-E2*6.76034628' -8+E6*1.24132235'-15
   +E24*2.22762038' -7-E31*3.35618614' -5-E49*1.53016010' -4
   +E58*4.99501658' -4-E68*5.83559063' -4+E90*2.21247384' -4)
+N62*(E1*1.69024373' -2+E2*5.52278685' -5+E10*1.38479714'-10
   -E16*6.18713145' -6-E23*1.25907136' -3-E29*3.05956998' -2
   +E40*4.23744556' -2-E51*4.88371522' -2+E62*2.13659895' -2)
+N71*(E1*6.78722941' -3+E2*2.27415284' -5+E10*5.75277250'-11
   -E16*2.55510972' -6-E23*5.13407127' -4-E29*1.21415049' -2
   +E40*1.58010289' -2-E51*1.51959491' -2+E71*5.24241635' -3)
+N71*(E1*3.52613854' -3+E2*1.24476731' -5+E10*3.20185308'-11
   -E16*1.40637065' -6-E23*2.75597588' -4-E29*6.13872649' -3
   +E40*6.66134233' -3-E60*9.23591589' -3+E71*5.45171775' -3)
+N85*(E1*1.83434661' -3+E2*6.58960088' -6+E10*1.70573740'-11
   -E16*7.46047998' -7-E23*1.44895167' -4-E29*3.16813317' -3
   +E40*3.30481660' -3-E60*3.67720319' -3+E85*1.84522475' -3)
+N71*(E1*1.59843395' -3+E2*6.42984319' -6+E10*1.71131423'-11
   -E16*7.35034447' -7-E23*1.36233342' -4-E29*2.54896221' -3
   +E47*5.82916887' -3-E60*9.37329830' -3+E71*4.62519620' -3)
+N85*(E1*8.31527708' -4+E2*3.40385709' -6+E10*9.11676025'-12
   -E16*3.89919242' -7-E23*7.16245484' -5-E29*1.31549300' -3
   +E47*2.77974569' -3-E60*3.73190085' -3+E85*1.50473106' -3)
+N85*(E1*4.75872569' -4+E2*2.01383570' -6+E10*5.45488447'-12
   -E16*2.31550168' -7-E23*4.18391255' -5-E29*7.40718007' -4
   +E47*1.26488575' -3-E68*2.57865795' -3+E85*1.61867447' -3)
+N90*(E1*2.83512367' -4+E2*1.21491206' -6+E10*3.30606030'-12
   -E16*1.39900421' -7-E23*2.51153367' -5-E29*4.38843665' -4
   +E47*7.11713101' -4-E68*1.17145273' -3+E90*6.39111251' -4)
+N85*(E1*2.33308326' -4+E2*1.06220488' -6+E10*2.94040543'-12
   -E16*1.23031389' -7-E23*2.14952073' -5-E29*3.48367847' -4
   +E58*1.32165944' -3-E68*2.51683939' -3+E85*1.33079550' -3)
+N90*(E1*1.38998967' -4+E2*6.40809735' -7+E10*1.78210148'-12
   -E16*7.43344016' -8-E23*1.29032183' -5-E29*2.06393015' -4
   +E58*7.16700917' -4-E68*1.14336932' -3+E90*5.06399194' -4)
+N71*(E1*3.87588583' -4+E2*2.91977649' -6+E10*8.43765769'-12
   -E16*3.44039259' -7-E23*5.39012622' -5-E39*1.87443623' -3
   +E47*5.57921996' -3-E60*7.55690493' -3+E71*3.51585812' -3)
+N85*(E1*2.01629005' -4+E2*1.54568341' -6+E10*4.49503083'-12
   -E16*1.82505089' -7-E23*2.83385368' -5-E39*9.51275897' -4
   +E47*2.66055298' -3-E60*3.00871892' -3+E85*1.12478818' -3)
+N85*(E1*1.15389675' -4+E2*9.14477998' -7+E10*2.68953808'-12
   -E16*1.08379068' -7-E23*1.65538160' -5-E39*5.16310133' -4
   +E47*1.21064872' -3-E68*2.00394156' -3+E85*1.20996101' -3)
+N90*(E1*6.87461353' -5+E2*5.51688674' -7+E10*1.63005745'-12
   -E16*6.54816078' -8-E23*9.93698259' -6-E39*3.02385686' -4
   +E47*6.81195558' -4-E68*9.10366115' -4+E90*4.72260882' -4)
+N85*(E1*5.86486628' -5+E2*5.00045030' -7+E10*1.50297222'-12
   -E16*5.96991070' -8-E23*8.81675474' -6-E39*2.24763521' -4
   +E58*1.17089089' -3-E68*2.02767531' -3+E85*1.03127569' -3)
+N90*(E1*3.49413316' -5+E2*3.01668471' -7+E10*9.10911462'-13
   -E16*3.60696358' -8-E23*5.29255239' -6-E39*1.31636524' -4
   +E58*6.34943121' -4-E68*9.21148069' -4+E90*3.87927093' -4)
+N85*(E1*2.23809378' -5+E2*2.39871452' -7+E10*7.56782510'-13
   -E16*2.91316518' -8-E23*3.94905726' -6-E49*2.80177059' -4
   +E58*1.09366349' -3-E68*1.60075655' -3+E85*7.68627494' -4)
+N90*(E1*1.33339744' -5+E2*1.44710276' -7+E10*4.58665738'-13
   -E16*1.76010685' -8-E23*2.37055391' -6-E49*1.61479510' -4
   +E58*5.93064749' -4-E68*7.27204101' -4+E90*2.84528331' -4)
+N71*(E1*1.05640213' -3+E2*9.31915794' -7+E10*3.61773724'-12
   -E16*1.25240943' -7-E31*6.49831947' -4-E39*1.65754374' -3
   +E47*4.16587662' -3-E60*5.33728347' -3+E71*2.42157372' -3)
+N85*(E1*5.49555170' -4+E2*4.93341454' -7+E10*1.92729322'-12
   -E16*6.64375036' -8-E31*3.38953431' -4-E39*8.41203014' -4
   +E47*1.98657438' -3-E60*2.12499507' -3+E85*7.68595061' -4)
+N85*(E1*3.14503327' -4+E2*2.91877304' -7+E10*1.15316862'-12
   -E16*3.94533366' -8-E31*1.95004446' -4-E39*4.56567481' -4
   +E47*9.03963854' -4-E68*1.39394340' -3+E85*8.26795723' -4)
+N90*(E1*1.87372815' -4+E2*1.76084502' -7+E10*6.98904810'-13
   -E16*2.38373328' -8-E31*1.16397759' -4-E39*2.67396400' -4
   +E47*5.08633226' -4-E68*6.33251421' -4+E90*3.20887292' -4)
+N85*(E1*1.59851386' -4+E2*1.59601210' -7+E10*6.44415639'-13
   -E16*2.17323235' -8-E31*1.00371025' -4-E39*1.98755957' -4
   +E58*8.44894642' -4-E68*1.41045262' -3+E85*7.04695705' -4)
+N90*(E1*9.52352538' -5+E2*9.62846348' -8+E10*3.90563168'-13
   -E16*1.31304643' -8-E31*5.99112620' -5-E39*1.16404759' -4
   +E58*4.58163990' -4-E68*6.40751357' -4+E90*2.63584979' -4)
+N85*(E1*6.38394310' -5+E2*8.01231589' -8+E10*3.39577291'-13
   -E16*1.10982850' -8-E31*4.21068833' -5-E49*2.32052881' -4
   +E58*8.25890136' -4-E68*1.16530017' -3+E85*5.49661342' -4)
+N90*(E1*3.80338548' -5+E2*4.83369085' -8+E10*2.05808759'-13
   -E16*6.70547880' -9-E31*2.51335134' -5-E49*1.33743232' -4
   +E58*4.47858350' -4-E68*5.29381600' -4+E90*2.02324509' -4)
+N71*(E1*8.42489834' -4-E2*8.73690970' -7+E10*1.29724168'-12
   +E24*2.88603959' -6-E31*5.36763731' -4-E39*1.17807054' -3
   +E47*2.81932905' -3-E60*3.53667488' -3+E71*1.58767791' -3)
+N85*(E1*4.38275000' -4-E2*4.62518154' -7+E10*6.91085320'-13
   +E24*1.52562462' -6-E31*2.79976861' -4-E39*5.97870490' -4
   +E47*1.34444857' -3-E60*1.40809772' -3+E85*5.02158393' -4)
+N85*(E1*2.50819123' -4-E2*2.73641209' -7+E10*4.13501121'-13
   +E24*9.00244830' -7-E31*1.61074436' -4-E39*3.24497439' -4
   +E47*6.11773172' -4-E68*9.17830579' -4+E85*5.40183554' -4)
+N90*(E1*1.49431440' -4-E2*1.65082983' -7+E10*2.50612024'-13
   +E24*5.42533895' -7-E31*9.61450046' -5-E39*1.90047366' -4
   +E47*3.44226332' -4-E68*4.16959195' -4+E90*2.09116341' -4)
+N85*(E1*1.27482863' -4-E2*1.49629545' -7+E10*2.31073396'-13
   +E24*4.89678065' -7-E31*8.29068598' -5-E39*1.41262358' -4
   +E58*5.64637230' -4-E68*9.28700939' -4+E85*4.60410014' -4)
+N90*(E1*7.59509384' -5-E2*9.02689025' -8+E10*1.40047435'-13
   +E24*2.95105219' -7-E31*4.94869368' -5-E39*8.27326685' -5
   +E58*3.06187818' -4-E68*4.21897466' -4+E90*1.71773479' -4)
+N85*(E1*5.09124983' -5-E2*7.51171735' -8+E10*1.21765012'-13
   +E24*2.42708496' -7-E31*3.47804504' -5-E49*1.60072925' -4
   +E58*5.51936651' -4-E68*7.67282322' -4+E85*3.59118957' -4)
+N90*(E1*3.03323281' -5-E2*4.53168846' -8+E10*7.37985329'-14
   +E24*1.46268639' -7-E31*2.07603804' -5-E49*9.22577229' -5
   +E58*2.99300630' -4-E68*3.48566965' -4+E90*1.31851158' -4)
+N62*(E1*4.87095899' -3-E5*8.39288252' -8+E10*1.64203441'-10
   +E16*1.97805697' -6-E23*2.77312061' -4-E29*9.40829104' -3
   +E40*1.43111809' -2-E51*1.71386923' -2+E62*7.64026118' -3)
+N71*(E1*1.95594963' -3-E5*3.47731239' -8+E10*6.82139655'-11
   +E16*8.16881397' -7-E23*1.13078570' -4-E29*3.73355774' -3
   +E40*5.33650236' -3-E51*5.33279856' -3+E71*1.88620070' -3)
+N71*(E1*1.01616565' -3-E5*1.92578531' -8+E10*3.79662321'-11
   +E16*4.49623753' -7-E23*6.07007177' -5-E29*1.88768114' -3
   +E40*2.24974395' -3-E60*3.27946467' -3+E71*1.96150652' -3)
+N85*(E1*5.28623591' -4-E5*1.02396583' -8+E10*2.02259193'-11
   +E16*2.38515288' -7-E23*3.19133439' -5-E29*9.74212690' -4
   +E40*1.11614008' -3-E60*1.30569161' -3+E85*6.66825684' -4)
+N71*(E1*4.60638077' -4-E5*1.01921197' -8+E10*2.02920470'-11
   +E16*2.34994200' -7-E23*3.00055661' -5-E29*7.83815324' -4
   +E47*2.01707671' -3-E60*3.32824605' -3+E71*1.66412733' -3)
+N85*(E1*2.39630373' -4-E5*5.41928647' -9+E10*1.08102723'-11
   +E16*1.24659138' -7-E23*1.57753975' -5-E29*4.04518972' -4
   +E47*9.61879887' -4-E60*1.32511352' -3+E85*5.43778376' -4)
+N85*(E1*1.37137368' -4-E5*3.23159058' -9+E10*6.46817342'-12
   +E16*7.40277503' -8-E23*9.21512037' -6-E29*2.27773532' -4
   +E47*4.37690457' -4-E68*9.22865120' -4+E85*5.84955145' -4)
+N90*(E1*8.17028388' -5-E5*1.95582364' -9+E10*3.92018777'-12
   +E16*4.47268666' -8-E23*5.53168470' -6-E29*1.34946053' -4
   +E47*2.46275233' -4-E68*4.19246325' -4+E90*2.31703216' -4)
+N85*(E1*6.72349949' -5-E5*1.73086297' -9+E10*3.48660954'-12
   +E16*3.93337523' -8-E23*4.73434664' -6-E29*1.07124404' -4
   +E58*4.64405587' -4-E68*9.00741137' -4+E85*4.80921699' -4)
+N90*(E1*4.00568425' -5-E5*1.04755309' -9+E10*2.11314125'-12
   +E16*2.37650811' -8-E23*2.84195017' -6-E29*6.34666169' -5
   +E58*2.51834852' -4-E68*4.09195670' -4+E90*1.83589823' -4)
+N71*(E1*1.11695613' -4-E5*4.91587911' -9+E10*1.00050209'-11
   +E16*1.09991077' -7-E23*1.18718213' -5-E39*6.12221354' -4
   +E47*1.93058649' -3-E60*2.68328588' -3+E71*1.26499187' -3)
+N85*(E1*5.81056207' -5-E5*2.61383871' -9+E10*5.33001919'-12
   +E16*5.83477927' -8-E23*6.24159861' -6-E39*3.10702178' -4
   +E47*9.20635443' -4-E60*1.06832798' -3+E85*4.06474957' -4)
+N85*(E1*3.32530963' -5-E5*1.55866581' -9+E10*3.18914155'-12
   +E16*3.46493318' -8-E23*3.64599893' -6-E39*1.68635286' -4
   +E47*4.18922729' -4-E68*7.17182273' -4+E85*4.37254639' -4)
+N90*(E1*1.98113207' -5-E5*9.43335912'-10+E10*1.93285382'-12
   +E16*2.09347985' -8-E23*2.18863300' -6-E39*9.87640825' -5
   +E47*2.35715198' -4-E68*3.25807126' -4+E90*1.71213329' -4)
+N85*(E1*1.69014223' -5-E5*8.65467889'-10+E10*1.78216147'-12
   +E16*1.90861040' -8-E23*1.94190140' -6-E39*7.34114210' -5
   +E58*4.11428431' -4-E68*7.25676248' -4+E85*3.72681495' -4)
+N90*(E1*1.00694231' -5-E5*5.23798580'-10+E10*1.08012064'-12
   +E16*1.15316435' -8-E23*1.16569137' -6-E39*4.29946296' -5
   +E58*2.23106743' -4-E68*3.29665835' -4+E90*1.40638981' -4)
+N85*(E1*6.44975799' -6-E5*4.29902670'-10+E10*8.97360987'-13
   +E16*9.31353524' -9-E23*8.69784862' -7-E49*9.47589218' -5
   +E58*3.84292216' -4-E68*5.72888074' -4+E85*2.77765922' -4)
+N90*(E1*3.84259626' -6-E5*2.60185745'-10+E10*5.43866612'-13
   +E16*5.62714991' -9-E23*5.22117501' -7-E49*5.46141227' -5
   +E58*2.08391492' -4-E68*2.60256038' -4+E90*1.03152822' -4)
+N71*(E1*3.04434878' -4-E5*1.98137310' -9+E10*4.28976122'-12
   +E16*4.00401580' -8-E31*1.80741331' -4-E39*5.41380739' -4
   +E47*1.44152501' -3-E60*1.89514854' -3+E71*8.71272664' -4)
+N85*(E1*1.58371284' -4-E5*1.05352260' -9+E10*2.28530353'-12
   +E16*2.12404032' -8-E31*9.42749809' -5-E39*2.74750584' -4
   +E47*6.87417540' -4-E60*7.54537650' -4+E85*2.77754202' -4)
+N85*(E1*9.06338404' -5-E5*6.28229143'-10+E10*1.36737903'-12
   +E16*1.26134297' -8-E31*5.42376585' -5-E39*1.49122364' -4
   +E47*3.12800071' -4-E68*4.98872581' -4+E85*2.98786705' -4)
+N90*(E1*5.39972596' -5-E5*3.80216918'-10+E10*8.28732036'-13
   +E16*7.62091490' -9-E31*3.23743486' -5-E39*8.73360127' -5
   +E47*1.76003176' -4-E68*2.26631706' -4+E90*1.16334390' -4)
+N85*(E1*4.60661106' -5-E5*3.48831767'-10+E10*7.64121060'-13
   +E16*6.94793286' -9-E31*2.79167450' -5-E39*6.49169277' -5
   +E58*2.96879650' -4-E68*5.04780997' -4+E85*2.54662309' -4)
+N90*(E1*2.74449777' -5-E5*2.11120004'-10+E10*4.63113438'-13
   +E16*4.19787532' -9-E31*1.66634486' -5-E39*3.80196871' -5
   +E58*1.60989972' -4-E68*2.29315826' -4+E90*9.55600250' -5)
+N85*(E1*1.83973024' -5-E5*1.81337509'-10+E10*4.02656522'-13
   +E16*3.54817738' -9-E31*1.17114189' -5-E49*7.84828025' -5
   +E58*2.90201833' -4-E68*4.17044410' -4+E85*1.98636128' -4)
+N90*(E1*1.09606291' -5-E5*1.09749109'-10+E10*2.44039401'-13
   +E16*2.14377522' -9-E31*6.99052224' -6-E49*4.52334126' -5
   +E58*1.57368769' -4-E68*1.89458169' -4+E90*7.33506715' -5)
+N71*(E1*2.42789448' -4-E5*5.17559895'-10+E10*1.53821483'-12
   +E24*2.57078001' -7-E31*1.49293047' -4-E39*3.84776995' -4
   +E47*9.75576982' -4-E60*1.25579319' -3+E71*5.71240242' -4)
+N85*(E1*1.26302468' -4-E5*2.75193523'-10+E10*8.19460012'-13
   +E24*1.35897141' -7-E31*7.78715032' -5-E39*1.95274225' -4
   +E47*4.65221709' -4-E60*4.99983627' -4+E85*1.81469555' -4)
+N85*(E1*7.22812715' -5-E5*1.64101455'-10+E10*4.90312301'-13
   +E24*8.01905636' -8-E31*4.48005181' -5-E39*1.05986140' -4
   +E47*2.11692858' -4-E68*3.28478552' -4+E85*1.95211054' -4)
+N90*(E1*4.30632814' -5-E5*9.93175025'-11+E10*2.97165236'-13
   +E24*4.83269633' -8-E31*2.67413386' -5-E39*6.20725602' -5
   +E47*1.19113193' -4-E68*1.49223784' -4+E90*7.58129804' -5)
+N85*(E1*3.67381215' -5-E5*9.11193014'-11+E10*2.73997149'-13
   +E24*4.36187565' -8-E31*2.30593406' -5-E39*4.61385833' -5
   +E58*1.98402611' -4-E68*3.32368899' -4+E85*1.66382563' -4)
+N90*(E1*2.18876070' -5-E5*5.51472346'-11+E10*1.66062380'-13
   +E24*2.62869090' -8-E31*1.37640737' -5-E39*2.70218349' -5
   +E58*1.07588482' -4-E68*1.50991122' -4+E90*6.22747093' -5)
+N85*(E1*1.46720077' -5-E5*4.73676674'-11+E10*1.44383848'-13
   +E24*2.16195978' -8-E31*9.67367783' -6-E49*5.41384003' -5
   +E58*1.93939873' -4-E68*2.74599465' -4+E85*1.29778090' -4)
+N90*(E1*8.74119651' -6-E5*2.86678654'-11+E10*8.75072077'-14
   +E24*1.30290830' -8-E31*5.77419872' -6-E49*3.12025631' -5
   +E58*1.05168457' -4-E68*1.24747175' -4+E90*4.78012824' -5);
<*
timing of diagrams    
cputime used                 84
real time used               87
cpu  %                    96.29
blocksread                   30
written                393
dropped                  0
*>
if maxdiagram>=10 then
begin
pvalue(10):=simproc:=r:=r
+N61*(E1*4.21231078' -1-E2*1.10280900' -3-E6*3.08433395'-12
   +E11*3.77926379' -7+E17*2.84130315' -3-E22*2.12483855' -1
   -E30*7.10481564' -1+E38*1.52924548   -E48*1.83837348   
   +E61*8.09123461' -1)
+N67*(E1*9.58203308' -2-E2*2.55994137' -4-E6*7.21841898'-13
   +E11*8.81906366' -8+E17*6.58630482' -4-E22*4.85593656' -2
   -E30*1.57614211' -1+E38*3.17434963' -1-E48*3.14907200' -1
   +E67*1.07422759' -1)
+N67*(E1*5.14228103' -2-E2*1.42817113' -4-E6*4.08640773'-13
   +E11*4.96692579' -8+E17*3.66508847' -4-E22*2.63011064' -2
   -E30*8.01383470' -2+E38*1.33822201' -1-E62*1.93792710' -1
   +E67*1.14763410' -1)
+N79*(E1*2.02176829' -2-E2*5.69295623' -5-E6*1.63822580'-13
   +E11*1.98716530' -8+E17*1.45956539' -4-E22*1.03728743' -2
   -E30*3.09940518' -2+E38*4.97056980' -2-E62*5.73371459' -2
   +E79*2.86916442' -2)
+N67*(E1*2.45194220' -2-E2*7.43119672' -5-E6*2.18778762'-13
   +E11*2.63327686' -8+E17*1.89717012' -4-E22*1.28258885' -2
   -E30*3.25387356' -2+E51*1.22289740' -1-E62*1.99506056' -1
   +E67*9.79460862' -2)
+N79*(E1*9.64019464' -3-E2*2.96221348' -5-E6*8.77075992'-14
   +E11*1.05352015' -8+E17*7.55518963' -5-E22*5.05839289' -3
   -E30*1.25845777' -2+E51*4.35217253' -2-E62*5.90275446' -2
   +E79*2.34626550' -2)
+N79*(E1*5.50640664' -3-E2*1.73507001' -5-E6*5.18844751'-14
   +E11*6.21037675' -9+E17*4.41780676' -5-E22*2.90620136' -3
   -E30*6.95867289' -3+E51*1.92629539' -2-E71*4.01133439' -2
   +E79*2.51820240' -2)
+N67*(E1*8.49896289' -3-E2*3.41232024' -5-E6*1.07042028'-13
   +E11*1.26198837' -8+E17*8.60176566' -5-E22*4.86132966' -3
   -E40*3.57495333' -2+E51*1.19060878' -1-E62*1.61143268' -1
   +E67*7.41423826' -2)
+N79*(E1*3.34150032' -3-E2*1.36021443' -5-E6*4.29127544'-14
   +E11*5.04895707' -9+E17*3.42552152' -5-E22*1.91725629' -3
   -E40*1.35646117' -2+E51*4.23726048' -2-E62*4.76772066' -2
   +E79*1.74243113' -2)
+N79*(E1*1.90863984' -3-E2*7.96724235' -6-E6*2.53855511'-14
   +E11*2.97630052' -9+E17*2.00303274' -5-E22*1.10152235' -3
   -E40*7.19495173' -3+E51*1.87543468' -2-E71*3.10797626' -2
   +E79*1.87011839' -2)
+N79*(E1*9.91587007' -4-E2*4.36090426' -6-E6*1.41572378'-14
   +E11*1.64905321' -9+E17*1.09274062' -5-E22*5.79607974' -4
   -E40*3.03322252' -3+E60*1.87857024' -2-E71*3.23206098' -2
   +E79*1.61495828' -2)
+N67*(-E1*2.97692466' -3-E2*1.26644722' -5-E6*4.73946411'-14
   +E11*5.31429626' -9+E17*3.05164243' -5+E29*8.64380719' -3
   -E40*3.25888674' -2+E51*9.07227622' -2-E62*1.15456878' -1
   +E67*5.16382438' -2)
+N79*(-E1*1.17042454' -3-E2*5.04829462' -6-E6*1.90003369'-14
   +E11*2.12614111' -9+E17*1.21526989' -5+E29*3.37761116' -3
   -E40*1.23653456' -2+E51*3.22873459' -2-E62*3.41600461' -2
   +E79*1.20237526' -2)
+N79*(-E1*6.68537688' -4-E2*2.95695927' -6-E6*1.12398757'-14
   +E11*1.25333506' -9+E17*7.10614533' -6+E29*1.90660647' -3
   -E40*6.55883605' -3+E51*1.42905560' -2-E71*2.18788055' -2
   +E79*1.29048663' -2)
+N79*(-E1*3.47322356' -4-E2*1.61850434' -6-E6*6.26835287'-15
   +E11*6.94424566'-10+E17*3.87670833' -6+E29*9.63977345' -4
   -E40*2.76505110' -3+E60*1.37543271' -2-E71*2.27523082' -2
   +E79*1.11441183' -2)
+N79*(-E1*1.57444706' -4-E2*8.36038110' -7-E6*3.36330550'-15
   +E11*3.67848924'-10+E17*1.98824908' -6+E29*4.00268985' -4
   -E47*3.77373894' -3+E60*1.39589199' -2-E71*1.93028866' -2
   +E79*8.87372871' -3)
+N79*(-E1*3.61453546' -5-E2*3.59437552' -7-E6*1.58316676'-15
   +E11*1.68323528'-10+E17*8.38207413' -7+E39*4.81087210' -4
   -E47*3.41969085' -3+E60*1.06549516' -2-E71*1.38922179' -2
   +E79*6.21153632' -3)
+N67*(-E1*2.96157245' -3-E2*1.43583888' -6-E6*1.82049948'-14
   +E11*1.73252911' -9+E23*1.11377083' -4+E29*7.30962130' -3
   -E40*2.31607737' -2+E51*6.09055378' -2-E62*7.55514991' -2
   +E67*3.33487431' -2)
+N79*(-E1*1.16438857' -3-E2*5.72352132' -7-E6*7.29831533'-15
   +E11*6.93149420'-10+E23*4.41544945' -5+E29*2.85627131' -3
   -E40*8.78800013' -3+E51*2.16756867' -2-E62*2.23533039' -2
   +E79*7.73015176' -3)
+N79*(-E1*6.65089991' -4-E2*3.35246270' -7-E6*4.31740537'-15
   +E11*4.08603390'-10+E23*2.56109536' -5+E29*1.61231862' -3
   -E40*4.66133774' -3+E51*9.59377758' -3-E71*1.42015703' -2
   +E79*8.29662573' -3)
+N79*(-E1*3.45531190' -4-E2*1.83498483' -7-E6*2.40776866'-15
   +E11*2.26391363'-10+E23*1.37479919' -5+E29*8.15185852' -4
   -E40*1.96511042' -3+E60*9.08582446' -3-E71*1.47685624' -2
   +E79*7.16462897' -3)
+N79*(-E1*1.56632752' -4-E2*9.47861071' -8-E6*1.29189625'-15
   +E11*1.19923493'-10+E23*6.79590449' -6+E29*3.38486807' -4
   -E47*2.58497284' -3+E60*9.22097428' -3-E71*1.25295369' -2
   +E79*5.70498014' -3)
+N79*(-E1*3.79803410' -5-E2*4.30421457' -8-E6*6.42302833'-16
   +E11*5.79604109'-11+E23*2.68882658' -6+E39*3.81811000' -4
   -E47*2.47413180' -3+E60*7.43409884' -3-E71*9.52436872' -3
   +E79*4.21792518' -3)
+N79*(-E1*9.87834023' -5-E2*1.31095507' -8-E6*2.68418635'-16
   +E11*2.24305985'-11+E31*5.34091489' -5+E39*3.22188171' -4
   -E47*1.76287930' -3+E60*5.01038928' -3-E71*6.25992864' -3
   +E79*2.73561782' -3)
+N67*(-E1*1.97668657' -3-E2*1.87835354' -6-E6*5.41975832'-15
   +E16*1.48400354' -7+E23*8.42982588' -5+E29*4.71869427' -3
   -E40*1.42176944' -2+E51*3.65998882' -2-E62*4.49227979' -2
   +E67*1.97160281' -2)
+N79*(-E1*7.77165272' -4-E2*7.48746720' -7-E6*2.17276114'-15
   +E16*5.92529260' -8+E23*3.34193255' -5+E29*1.84385353' -3
   -E40*5.39468594' -3+E51*1.30255431' -2-E62*1.32912380' -2
   +E79*4.56096269' -3)
+N79*(-E1*4.43910956' -4-E2*4.38566629' -7-E6*1.28532273'-15
   +E16*3.48072166' -8+E23*1.93842282' -5+E29*1.04082528' -3
   -E40*2.86145344' -3+E51*5.76517669' -3-E71*8.41481306' -3
   +E79*4.89519502' -3)
+N79*(-E1*2.30623047' -4-E2*2.40051325' -7-E6*7.16810104'-16
   +E16*1.91584132' -8+E23*1.04054779' -5+E29*5.26239685' -4
   -E40*1.20632151' -3+E60*5.42399986' -3-E71*8.75077115' -3
   +E79*4.22729158' -3)
+N79*(-E1*1.04543739' -4-E2*1.23998467' -7-E6*3.84606837'-16
   +E16*1.00130742' -8+E23*5.14363367' -6+E29*2.18508688' -4
   -E47*1.56565324' -3+E60*5.50468078' -3-E71*7.42408821' -3
   +E79*3.36606607' -3)
+N79*(-E1*2.53497868' -5-E2*5.63074087' -8-E6*1.91218188'-16
   +E16*4.68670637' -9+E23*2.03509907' -6+E39*2.38697859' -4
   -E47*1.49851960' -3+E60*4.43796281' -3-E71*5.64344510' -3
   +E79*2.48867034' -3)
+N79*(-E1*6.90927698' -5-E2*1.79718426' -8-E6*8.37404319'-17
   +E16*1.70610624' -9+E31*3.80248353' -5+E39*2.11077942' -4
   -E47*1.11891049' -3+E60*3.13444006' -3-E71*3.88696526' -3
   +E79*1.69144194' -3)
+N79*(-E1*5.17508094' -5+E2*1.58242423' -8-E6*3.03311669'-17
   -E24*6.28541965' -8+E31*2.94984087' -5+E39*1.40895879' -4
   -E47*7.11187070' -4+E60*1.95067079' -3-E71*2.39345082' -3
   +E79*1.0353#▶a0◀#▶a0◀▶01◀#▶a0◀▶02◀#▶a0◀▶03◀#▶a0◀▶04◀#▶a0◀▶05◀#▶a0◀▶06◀#▶a0◀▶07◀#▶a0◀«bs»#▶a0◀	#▶a0◀
#▶a0◀▶0b◀#▶a0◀\f

#▶a0◀\r#▶a0◀▶0e◀#▶a0◀▶0f◀#▶a0◀▶10◀#▶a0◀▶11◀#▶a0◀▶12◀#▶a0◀▶13◀#▶a0◀▶14◀#▶a0◀▶15◀#▶a0◀▶16◀#▶a0◀▶17◀#▶a0◀▶18◀#▶a0◀▶EOF◀