Index: Tst/Long/homtest.res.gz.uu
===================================================================
--- Tst/Long/homtest.res.gz.uu	(revision dde0a61ae4b88452f53c42edec183e9dcf671f23)
+++ Tst/Long/homtest.res.gz.uu	(revision dde0a61ae4b88452f53c42edec183e9dcf671f23)
@@ -0,0 +1,275 @@
+begin 644 homtest.res.gz
+M'XL("'2K.C@``VAO;71E<W0N<F5S`.U]2X_DMI;F_OZ*0&,6&58H6GQ+<Y$&
+MIC&;!J9GT[/V(%]5+G>YJF!E74?$KQ_R.R3/H:2,2KO3N.[ISD*%(DB*HBCR
+M/+[ST+_^G__YS_][M]NI[W?_^(^[^?GNT^/=+X^[I]/=SU\^/LV[=Y]_V?WX
+M^>?/[Y\^/7W^.N\^/#[=?9S_\J_Y-'W<U>_F&+NXC7^[IX]//^_,<-@]?OAY
+M%P\_?_WXO%-&_;6VM;7MO]P]W'W]>'?>J=W\]%`;N-Q@-QR=;6J\N&0X[CY_
+M>?[P^=/-EU\^/^^Y__%[;C0==[]\^/1^=Z]NC1X&<[BY.]P?'@Z/AZ?]X?%+
+M/4D-W^\^?'K>?=K=JH%+X\Q\^?SQO)O5[5UWWSUTC]T3U^I2JV\?GSKU\-BI
+M^X=.W<7O=_?<S)1FYO8AM;M/#>\>T0H?#]S6EK;V]AZ-[^CSGCX?Z/.13W#E
+M!'>;*L3H_/?TP'8?;F=UF/5A-H?9'F9WN/OAT^$^_G^(_Q_C_Z<?/O%IH9XV
+MW,[/CS>[#W%JU<VTGW4_FWZVQ_DXNYMQ/]^H(7VH]&'VOL<A?MCTX=)'2!_Q
+MS!NM]GV(#70Z0^OTD5IIGS[&?1__\"M]&=/7U)%.?>C4ATY]&(7J_#?U[9\:
+MXFE!C(<&HE0:"K?2=/Q+7#*/7Q^>=P^_?'A^^B4NHO\>QMW#CW<?/HDB/:HZ
+M+7%1S1\N3S<?AC@=9JCET_>[QZ?WOSP][:@J;J2'SW'I/WV:8Q>[VYU+15RP
+MBT4#BN@L_-VF#5*ZU'$I_MN'CQ_C6CS<\[;1BI>UUG4+3?B'75IK%YMQ-+09
+M5=Z,3FGNM6Q&WHN#W'%:[$7=[$7M\]:*JS]OK>?#Z7`^7)J-I7D]W=:R\;B;
+M3F-W#L^=.]FS?M:=/IWUQ3SK0VT4M^YT'KMP.OOG6.W.:*7/32LSQ%:7L3.Q
+M0E]B1_7"1FTMY/$F+KX^KF"ECG/ZKO1-7"O*W,3%$DOBDE/V)BW+L.]GY=*2
+M.N:5-:42GU9]/[>?:J\"+?^TCI6N*]"E4\8;Y=&Y"F@=\GJ<U813RI;Q^.KW
+MI<FLA[R/?#F/]U3J0*MZPHBZ*7_2AJ//V$SW:,%5BPW6UTV(7DV[47-+VJ*F
+M[-6!;C4-1-O%537J<*`>G1QG*?1]7TB(+O?,]Z<EN1#73&>.:.CV/=.9OO9-
+M-7KB)G+VRO7-P$^*Z94OM:J,TNA-8J&'%;$PRH>Z]K2D%J.IY>9;U,*LJ85:
+M4XNX@VN7-E.+62Q]QZ3"^$(,\+?[IZ</7SX\?=S]CX]/)]72#1-J4R(<DR/"
+M80H7'VO3<<W#W4Z2!S,5PF&.9I(U=F`F;E4F(C]6_OQK)"+/*S)B==G-/U4R
+M8DTE(^9B7Z8DUBXIB=TB)=8Q*3&1E%B^N&"EF+&;GPZ_LL!AMUFF(E*C(L.,
+M="21F@!2,R52DPA-W-YI46HP5^P$K=.2S`M3F[HT\T+7-F^/L="`63O>>7TO
+M:0#MK[2#CG)CTAZ>=:#CD?9VH06^$@23MIY)^\-8;,QXF/5X8USY130LM5D<
+M9CW=F$(H(M=.%S&@<RA-6X_V\TAT8BJ'PN-Q=>S"4HR!Y\_:\[`793-&-IM(
+MSK'?39HH"RIU+)NY;6[WQLA[X$'EH1F;B^R>O]3/-`_&Y8IZOO&9QN2GE.DD
+M#B:4<HR):)T9Z01)P_/!-#+.;(>;J?"<^$O1EU@0S[.13%G3VTB)K;NA1Q2?
+ME_4W(8\]/EX;;HC`V;%WD22[.-:]&[?HVUH6LFJ<ZH)OA*')U?)O"D-Z3=[,
+MAC!4Z8PKLM"/+`@Y(0@Y_3)UTRUU<T4J(MJFW-@2-U=)JMM04-SNYS@=C6CD
+MJFBDHCQF35,G%!47"HU;"DJ1B$@:Y\8UC7.1C.IG$VF6OG0G_>S.(%R5:/E(
+M3$&N3EVB63[6=5,D@^;"353JPEVZ<Z1LSUUL9<Z1"-;+>GV5NGESE;KI8Q*8
+M$G5SH&Z>!"D5DIJ0!:HQ"U18JA![1HA3\U*6RH1O:'ERHTCD-4]D+E&W2#Y)
+M3B&9Z2BH6-\+ZI85C$1CJ\B3"8V@)7U#JHCJ,46!:&32.&P2HFP:H$W=N*$2
+M$`O"D]HXZL^IYCL.Z7(ND^Q(U>DW:),#=7&I9Y=Z]D/9P/PK_DC]^R(8N:E\
+MR3?MT@SD4F(2U"'NVX'.4&WIJ:I6Y=Q,P_@,[IY;8M2)EKI$<8CA.)U_U\]`
+MXXX?-*4>=^@]]>E]VV>],3&J/((R:!V:FZ3VZ#=W)WJME?G:F@^]&!:?'3_H
+M6KZ(DZ6OT@9R:N2$'G/CL1!#YEL^#2?P8EC<)=U\0]73!.8OA87;^N!NK-_7
+MW^(7I%M:8W5Q\?+COFWITF"4EE9?+DW%XYY_TN_,G06+IU]%#R\<FWFUGOCJ
+MB3<6X5E(VQ"RZP%2=>9C^=83YS8WY:%M,*2UO*W49"KG\59RI$C;:X5[&Y;$
+MW,'[PI)8X/:!69(?7V9)IF5)?FI8DE8JLZ1=YDE5H0C#FB7I(#E.4)4;30MF
+M%`10%TQA1N8Z,PIVS8Q"Y'@N,J.Q94:=>Z[,)D3&%\X^\2/!BSH;.1.WB0PQ
+M%ERZ,7(D%R5R,"03!6^^^GB5)X5IBR=-+'`30TIR9V%)8$2)*?7,D_K*E!)/
+M(GEZJ,)XU0XAHA<5?<6,BI::M>K$@1*+L2O]FID)-AKQ*MJ8A:70IB4:'\5_
+M,^Y[T41LY*&R(!#3YK.2*ZNI06%4<2`ZB[142K32%MIDLY)OK>@!!U,/F+_X
+M):KT68@5;?!9.L=M%QK5%R+%7$/00.WSM071HGEH&"T>F"7J;$?Q0[)/(YCH
+M6!F$VF>F011?$=F/'Z[0Y?H+AWE)W>-'NJN0NASIL8^*#V7L(4]AP``"&&#P
+M>T(L@J,>J$7(/>$S?J0!C*G%F%N,8WD,(SVH,=0"=#_Z?5M9/T<QNW)HN&SZ
+MC.KA)"I$.17Q,?;&RE&@^0Z8E>;^RSEB%NJ5?6`FB%\-UXR'].1,5(;3%-31
+MY,'R^)E-$9?-)V-Q!5UY=+WWS/07?\2=Q"(56V"QULOJWBQ$7QH_3=UQ)C=@
+MO9G'#W0[<3GZP@+J4EJE+RT`;E16@(UM+T/'H?)C"9.7<[%<C6N5Z[Y<KUP\
+M7[5P\37\SB)R5'+I#@W?YA*?SST65(_N.4KT4(+%XQAC=]--NJZ-ZKZ-E#.U
+MM"8=W1"5U$AZ]UL2@5K#]<KI*A&,@Y0((FNM%>IM)(+*FT==!`)3&=1H6"`8
+M[<L"@6T%@M&U.JKRK8XZ\D7]EHXJF/Y8P+R=/0;=U(PL#HS3RV-S[=BFH1F;
+MTXNAU79J95%0C:0R%9U]YX]3@PQ.AD<VV2*HN.N"RN36@LKDDX01A11_,<])
+M,:ZRQQ22"*,O(8H>G3OIBXW"1V=8@)GB[/C+LTZB33Q=1_FETV>^VG1-,%'#
+ML"680#]V_>R/<Y1`QN.<))5DL%+JJ$R26&X@/4")AHZQ+Q8',B[`MB:M"@+5
+M%I!?KT+?;Z'\E=P0&*;&?M6.B8X7V[YL4Y44CF(.*"2"*874X?10-OQ"5)(6
+M@62ZZ(LZ@'LKY3KK`\D,D8C*/HDL.+I\]/D(AJZ302<-`0SM561"J;J-U*`D
+ME:A"OAKTVQ")L79H"I%PO%AL)1)J<"]O1-]L1#7X9B/::8%CU79AM1$;E4$-
+M8U49QJ.R3=54=Z)20]F)_NI.5$JM=J)2>K$3GQ-0=:C5)FW'<-[<BRI*\E?V
+MHE+NZEX4!O#7[$5L/W6307$#RR")D4D],-B3XWYA7U8V+V.V;[68+Z#_(=OB
+MV.I=!`)A`F]L<'''9_Y9H?Z^[*?<G=A0*M3+%6",#7&%%2<S9!7LQ4T464T5
+MM#DAQ]C%R;RH->TOLY?[$9!2+(][,5D2MAFT7N^\P=;5F?P,>.?9J9:/;Z2P
+MUPZGLO-\71K)Q%Z_J\I)XZ:;L>O^Z>G'3__V5%OHUIZNRI8K!O787VUKKO-E
+MQ09W<QQU4^-XSU7C^OW35;\5M6%>5\F\?N?Z>U<W4K*EW[O^@4N2W?S!]8^B
+M),[#H^N?1$F\[SM[W]W;A^[!/G:/]JE[LG?UVLF:^?PT/Z<UQ(5V:]>!K?7X
+M=\362QL,L/!$3$YGOJ:&;`?)JURWC"G!SL(@!'TZ%&BKJ)\9<P,0Z]`-X%FE
+M^_I[K2MFP%6(IHDS`VTK*!M0A(*.9BRV42:+GA,(!)RS1@-N#DU*544OE4VI
+MR91^3OA)P`-F8HB#RK1EL`2.@[P,)!&@#8D!1"!`7!1Q8P62HC!/RI#4@*8$
+M)RB`!RJK-`IZD,)<*>C1BJ9%8484W:J"VJQPEPH@J2(-3I'ZI7"C*A`\0C4C
+MU8S4&S1;Q2JM&O-3RE]*J4`R51CECPP@2MTR#X.>%OD8D&B$.8'6KJ"VJT!F
+M4]P%'H`:B5QCDB9,TH1S)Z+@(-8#J/4`HJL(Y,%"!*G7)->04$2Z$D`>3;J:
+MAG*D@?9HX#O:DM\3FL)JH+&NM".L")<I`+_&C&M/"Q^=0.O5@6P=I)NA$ZPJ
+M39"`'HF=3'(AHWQH2OZH/_C'C)CR,3M<M#-,+"IK@U/>,"]^^5/_J?#M-OVV
+M3.K]!F_48Y46DP.'@+.9.QK_+>YH7^5`(CB6"9F*]PT9'S/7O'_BLHFYIAT6
+M/F8+==#4AFK-$!6,J4HZ?2I;M4(5CFYHJE@M5+:HA;](CY$-QS-EUWJALIX`
+M["B/ZBA6FA,S.QL2<-W9!%J?H[BI+RR'VLA0S?.E,^>+C@+HQ?)%KJN#;E,=
+M-`L1E#3!I`*J)&U!^$S\$D)G7WW/>NB#25=4E6,:(7CV55"$U%EDQ:*W,98$
+M(*?:@(K4"25SB?FL<"P&J7`DR5.Z:%;[Z=)Z)(YJ7.J.51I>Z)T%DRKZ9XN,
+M56ZBJV#+`H,>^!KLL5%[+695EI<UVZT\@U:$6A4DBXY:<[.>]=@L6,-(G-UX
+M,E!'1])D,[1*(*]VL#[<E.<6GS7IMQD`W</8.9-EC%!D`TTW'<F'+1X5#B_Y
+MJFVXJ@V^4A37:,!CU8#=&VG`E1"XH@'_PKX<R@D5N/I39)+B1R%E/W_<!:99
+M;@/]DB8OY:KNJXZMTNL8_5)NJL1$2_>S)2GQ0W:R_J(2[3R9<R0#4;0:3^[<
+M1<G,AT@U;"Y*7F4H]*>SI]KSQ%T5C_(O&EW!:S5JQ".W*%[E7TQ28Y)36Z1*
+M9P=3FTY]GT.GU(G=U!6[:/QT&\=X^*(/7PS7VJLTRKL7_63CIHO*?Z9*455/
+MQ,<4D.J8>#TL)?MB1DL>;IO>L5`^BV-;!GS4Q(IHQK'3YAGZAK9E<#D9X*IC
+MW,(M#O6:#'7L.'(L^[*B3,F?CDT9V7\]>Z\*?Y3E-0AWDAZZP@.WNK&RX[N@
+MQMFOBW;QO(&&,>6BOL9R1W/KNYH)#3FU9M6]DI7L43=G5R\8.)(?W`M:^9H<
+M1-FV[JQDW69RX*M$DBS<;^&Y*C:Q'RM!T+P:A8P1%C)&<*W:+?H*&U)&0Q`"
+MBQ='U]8(Z2*P=&&N$83@*%KD;G>KF)@%3Z7W,H8DJAY4^K"[Y3T)^W8L?(Y-
+MN5#<^QCO'53@W>WN],-==_[AOKO\<&.^>]AWIQ]N'CJ]_^X<C[VBW_%8?G\7
+M:02*T.3ANYM(0)Z_.^U_X%D>!5*W^^GNX?/]S3NF".-5AS`U;CJ$_6Z",67^
+ME_WK1T$[Z``W^<).9^E)PIYBK8-\X<X99.90E(+.P4LL:T2@'<*U?MQ7Y\R&
+MR2?RL;B^@*Z3%]>&XX#XS'2$`?SBD,Y#R;1D'3K3S]7)(`LK?28I#;8^2V?]
+M%5&1-.5%HI+),&[)##?%6/U[*8L+5=`8&Q>=4/&Y\9L>.K^9LHR^4A;><F,0
+MNVML(72UQ/-X=-.:L#1(.9O%U-$W:DLRA-7ONA(6>XVP3"83EEN/B?CNN]TO
+M3X]/[SY\2B??Q=^U98D4>[>[/9TOW]V<NG-WB9M\UY6O9M<1Z;B+I(-A.VDP
+M6V_^Z:JO>]3+M^&]'%43BOXR'J'"3'7#"PX+M%VIO?R<!1JM5"\XW)+WUKT)
+M/(^C2AK&/!??,V4:.:`5ZON$L<T<@U-E];P7E.L+#1+C[3,\GZ5RLKF9/1G5
+M$JW:WAUKE=]/ODYKXU%M52W_ID?UZS8'KV@]#'5S5#U6#^Q3K0?=;@[;;@ZM
+M?&VY`7;+S:$'*S;'U-0PV*T'7S>'N[(Y]!`JUPW7=X<>QK([?MOFT,-T97-H
+M-5S;'%IMAISYLCF(18(A#K0]X(FF6G-OW!_%.U)(T!F.9F99&$V[@N<FS$JY
+M?E'IY/(M#MA8MT%$=+(X3F>K4>JR++'#9"1$Z1[2.ZX-91KW&-DK7'I0:C*K
+MA&<:\<3K-J1U(,*H3)WO)LS*VEK^1F%68JDK6W>-X^?-<5:QZ<)U(RQXRA!J
+MTW!=6-6JLB=]'%U3PW99K8>Z;?RU;9,"1XFG[+[!5+3668*]W8T;3>]E4U/%
+MVB3LKMH^R+8VC^#CEQ_O;GG^=!:C[Y^>X^!$>1:DGV^W>GZ6/8?O-\3DA[2U
+MT[622)PZ[QVD9)216$S%1A0;+K91AOY!<Y5MJF[./RP%:JW':V1#1Z+RT^U/
+M!UEFKI.2[>A5A%A$N2^9K5-TA1I2`=&22$<RKSVV^JS2&[XC\..4^BP;KI7)
+M8B5'?TIG5F&GGMLH[NQ9!HI$2&`ZI?J[%C=7]ET5QAZ$:XG("D"@;I_M.L59
+M+_O"YZ`+<BXE.Y9P*&U",-1>ABADE+,IS1$*Y"?:6DE*)[64>#W[!!:70#XC
+MZB\2_^0XDH*D`LEL'8&E_Z]TQX_:S0O3LG6+=1;:D(*5F9.$?G5U&J1_;&//
+MA",L7:1X:Y:IXKJM/\0@4VQ(8T85<RV#8J[]:;-1N&5E<6N%Q)NJ)>@V2#<2
+M[%KQ1NQ#D/P:I7MWV-T?=@\'HH6[0R(JA]WS(1%QWOR"KYB6KWC?LA6CJF!G
+M-MA*(XT9]O<YAD8:,X*M6&8KH;"5KQMLQ39LI10V#*04MJRBE+[`%.P+3,%*
+MIE#*@E""_H[DWS+YW]VNR/^6D>@K5V\;B:!2M:1>`T-1Q3QT!+&/U#VTZI44
+M&R$T+NU%&<`PY5!$2!82&W6+Z)IC'XW*,3)1]`4'D<I3=D74>[Y2045(G&1E
+MC`3)%MDD%Z0MG2W#&`D1;@Q?Q<-*^CQE6+@OJ(8<4/$P+*[NF,1LH\F^DKIX
+M8_8%FR&W0QRA[NF)_)7-\((`&]:&WJD:671K?/%5VORV\>5U%$A0AVI^N4*!
+M`J])MLMHMW!*]@OOIW@7M>F&7<9+0L-V&7/T/#:VR6AADYFN2;5^V(!@M5<;
+M$*SV>@W!:F_6$*SVXKZ]^P,A6.W]-8DQP>U+B=%?C8G2?C,F:DS4HL"RJKHU
+M`IQ-\B(@6N%J3#LD[79A8ZG[+'EW,.)8MULC*Y9(6Q8)D?A`[8O8DX5";"-\
+M#_L2$`5G+ARS;$0!3R`8%*M(,4%#(S@4V6J6H?]):(K:4AM&9(M4N25%]2SP
+M-5*CE%;H`,I4!4808A"7_)F&TP2C2L/SBP(6![5D\0Q>3"1VZ7V1M[)4&4KH
+M;SFKB%ZE,8*5.*JE*>0P)GBC-2(:54/@FVH;W4QW&0C%ZAS+=6K0$WUFI[>>
+M^\@70Y13[:Q&3\%JOAP<3DI7HL`HT&B"0.`Z!Y8SK43.'*%%8\JW@N_+X;2.
+M#3`$+H3;&AB5`Y_J83U"@)Q@PWEL\2-52-\^[*\!G'8`(X5O6?'J^X;HBRPZ
+M(DPLST;L7.VW70AGN`V624GE8HXF+.TI/[O)7;\XC<#+27:O.86"M9N"$8<M
+M@7W<<-8WKJ*A.C0Q/:HZ,>CPS9B>5P(^S,I"B>I)7K?/A[M#Y$>5U@8.[]'!
+M-NQQ::1D5"JX-7.4#L`Z>"&?JZ8F,(,,(WM`#=<X)()DB4.R@#X.O]-LH*_:
+M#'6R&2X9EC`4;C&L\05/84-HJ0?603QJ/#8Q,=/*3B^M90UHD8-9R,%?NB@U
+MZ$38,W]I5.T<)KO,\M!G(T6)L*W\1#;EX/S6R5BB#0MN(<,7FS]%'D<MOUHK
+MU"L-OG]%W^(JB_065]"&;VY_*!55`N`,.^N&KG[=DI\WPOS<4`7HT6T:%?7X
+M33_)UQ$$WKW"?*B3^3#+TFD3\HIF`[Y>A,OYA8FQY@K3TZ:#I-C\'"\W',/8
+MU+#K@IZ$8Z2Z1A8F]EU@>3]9_7X?66"#X!992':M)5FX'D)GMD/H?"$+.7(@
+MKLHI*\#)EL+2JZ&<CVU$SB9I<&1H:4753!]R=&LO/J7D6O=*(WDN)-JL6#)Q
+M,=57W6:`<-F^$"`.W*^Q^8+(M$'+9.1I8OW[0HD6XNUZ[_F-F^"_QI6`,ARV
+M)$01+X_J^\;6=6;-S;V:ZG-N=5]5R]](]ZT[S`RL^J;-P2N-E3TSM$IN29FI
+MBX[K;?61,L.&EBMWK.'(N^%H?5/#FJX96--5US-#&;8[_G1[TOTELK.+'@ZG
+MLZ'O9CB<?1]__FH'/DE=W6=*;^TS#9C)#"G=V#$E&8N_+%)D6GM,^<3B.G%#
+MW'Y.]2XR)6>11RQN$A=Z;[?6P<8RT'40IO$^K<7VK;*VU(>6;'7%_53S)'A>
+M`M4LE[.Q++*FFI'[VLA^*)%6HR:6Y,9F:6A.?FBTX@70NILU#U_K:N-*M#@2
+MY6'7G;7JZ)>*OT[3>>I.YJQ<=])GI;J3/=M2'[@G<X56&WW53]3H33_1I&(G
+M=5B[>(S?C8K_=?QOXO^X8DPL-S[^3Q;>E.Q.[W-XI4EY$`E+0VX[0C5[9+8C
+MFKOO:>GA^WRT":X[VLTUMN%ZQ(]>-SZ-VM3R;_HT;JRR+92-5X9FGT9E>.I8
+M+C"FE0NT6[A7.%];;@@&MEEFIDH&VAR'L:EBT<`8(1K8E]>9<6^USLPU;,N8
+M-;9ES%5LRYA-;$LAX0]67UQU6('PM=#(/:<!?>F)H/)C@FC9^;"/"W6)FR>3
+M:')N:Y+1$61LC(".!4Q^+$*&S,K)\!B2=6A*@-E:4X]SFW"S-:HB2Z;K&6);
+MVV'E>;-,T,%Q'1`3#*(Z7G7>W";U6"A(E>>;T/_VLUD"6AB`EQ94,V:)Y)BS
+MAO[VWIJ<1[X*3.(:;(+]]_7:V*'7`79V^&.NLR7.6=6_]16*>KEATK7ZC[G:
+M6D*UYLWG<'T-6Z7@-UAOJ][31G[C78)^_;]_'RYZ#/UOHA"K.QW[+2JXH&"B
+M_=3/K<E16!SCGR-OLAH=Y1"@]3K?RBC9J<J5;9L+R-E:\7MR`6WEXZY,VVH6
+M`*I[I;&,%QK;XH7*+N1,-?'P-A##)FK2V`H9[O1Q<$T58X;&"LPP7`$'C!7N
+MCZ7,18E%G5+<D>WT*04@75R7^A@0FZ0OOC.7<*C-56H>FZ4F"DU4;*)E$YT2
+M=YM+K!E/.O6FIFF\A$[IU#Z66WU*_=HAQ5I=;!<N4Z<M?CCN)LHXZ<SI;-+E
+MXC=U\N=XW=C.U<M?#)\0ISY>(J7+[?S)(9K3QE^NT^E>4@YQ'W]Z&L>E^AX8
+M=S73B'&;F48"Y3Q`BA&+S`;D!TE&_.;]&0B9$,&<[)$EG?\14[$"-^4N[3=0
+M3EM=LHI?TMS:W3(E:)"_%H"8:^;1"CR6SV0J7+L0]=DRMC)T91B2<J3F3*D+
+M(];"!B7M+84P"%,3VXR*>08-E%]9NSCW0@Y?79AMA"D%*1E@NP'@O&6[J2-1
+M`Q[BVN;"[9KSUJ:?TJ1-KCM51@7@A<;D5F.B4\O8^IGS1;Q@7TI?:-E1$@F,
+MF%9=<:,G$EX=Z7.&"1*+\X(L"2=P6R4>N.:?D--3PVQB1^(.:1A+#M+W9.M=
+M6L]HLVQ/]%QS8]"PVYO;N,+O_8/G7F'+KSE!4RK=+8:U=@N90GVIC'&A#?^O
+M&JO[9G*<5WJF,8]Q$S,LUN`\)\@Q7K4:JVZA,5N=I(W7W\!%?,W!GK#LT%19
+M9E?)\Z*PJ_%JE+^1;A2U++0YITSW7#-.F92>=RL!''.GE)6W9)T:.>T4<X-P
+MU777A$W77?B\C\F[MKP2`O%P)>\;8.V4:@KKWU%TK!YNLJL3#LF1/IG)M85+
+M$@6/L]=&"1_+VWS:9],K<E7OBU\^LCPE?,\D;*]/FJVQ+Z58W,BZ'.HJ#8W_
+MI*Z87O@][I-ZP_;""RNP][T:>:+93=($?LU)<<!7AP:^<[ZN^;#A*:D:X2E4
+M5\G==&Q%KL"^DF9D7TEUS5O)C(J]E28NU>RM)$K979(ER-&NO97,*"8@)83\
+MP[R5S'C-RF/&Z^C-N(W>`%M.R_V('/XI4@0(3HH9"06KT6/"%=/:S6LVO3)#
+M-["-,;3F9X)NS")!1G9R3`E0:]QE]B*D'WAG!WLTSC*"U`1N6@)!TQL[ULZ2
+M/?*8+E]9P''@P#AE84D@+4(["?PL'),NC$*]$:-F%YA4JT)!I]UPD*2.K1.Q
+ML$+(['D<OJ:Q*S&GQ;>R.2$U#?PVAKY.X-R$MLYVK+_7L:ISDX<6:F&!K-@(
+M-9>73XEKN&%Q+;['YA$[5:=S.2MHZG2=UG+H9Q%T[$P)(61_]^I/FFP@U9$T
+MCLD5:LL?3L0+.BPIG5Z\LBD:3"N:ZT:V/4VM"TQ-:VNF-W*!D71R6OO`"#HU
+M":5VXE>FD)`0QH;ZCK[:[,VTH=5Z9`22/NEF$JJMB408$5*[&X.6KA3L:W.A
+M[DZL[NIK+C)F8A<976FM'89*EK7A4E7)LN="O2;+=N")L2D"\@\CRW:X%LIK
+MAZNAO';8?FU5(%*<`MZ/E.8Q$N5DR"$@W2"&WP0ROD=:F%%T,PGD/)$ZCN]-
+MKRK*!%KM!3$K`;\IV[-\[1TYGULK$^R8O75UVQ%]XMA(;$.@5YE`6D&BCYD^
+MSW9-GFOB7#<(NB7CH03]<ZJAABM,OR+L@F8Y3<F'C@U)JR1D!&E9O$:`JNIK
+MH*C"67X/'@];T-/T1J>VLB]SZ?SF7;&O/%W'!>DBL?"*:-Z;U6<T(3O?QML<
+M%R_BFG-:1H87^OJ+,C7FMP9PKG\W];)R%C%@PO%!>&(UF/OL!W[_@?#!0BJ'
+MW+H)AF(')@Z;$N_H23TJX3LA+]D4T?"SY+`8(=>5@]>+-L*'ZUB&4C#WI>\8
+M.UTNO9/S9^]-/\M7_>04E:X%O0L*WLYE28FYZ#;0:S%I.5+$EK>RNE_XG=6+
+MN`R#T'B:MPKY]@(B^$[$X'DG;T8^JN:9KA[$W#XV\?*)U"EQ8ENB0@2X7M==
+M7IJEAE<B(BVS*8&GT].;):K7^;%O?F=DK4X+!P26\_'"VQ9V;Q!WL:_D8^P]
+M!"7YH@"0$4ZA-LO4_KCC`#](Z;._2$B\'@J][(<Z#$I>8%ZZ]LWKEXD&725%
+M2:QZ(8RR"!=,)7EM5O)>CC=W;.NY?165Y8'J@N/:?FY227!JI>!S'^Q0VKRL
+M-.07]]4D*3-'4M%G&.7Y?6F.DRE('IMA1**F\:57&OBULV/456M@HAV:+!%1
+MQJH5;Y0F0HAI5@TKX4]7YR*K.&&$56W""#6899ZFJ3:M`)``B))`9V0`O%6<
+M-\+:G`UR=Z/14I>"?6W-N22L*KDD4DK+'Z\Y0EK%Z224N+%1>$&<+]WIW*7/
+MRU[Z1&XX0EIU+7.$U5<Q(ZLW,:.IOJR8HG>2OJR/Y24!#J\VRF[1QQYO-VI]
+M&E2)M5MF6>%<$``U1<J39A-4W99"\43"M9?:J5>VT]RN>#@NM=BT^4JH[V)K
+M]N6=PU6"K-UHU^SQ5:JV9AOCA+#P]2B:7\F<Q"_9!*8VY;(5.:`@P*UKUR%D
+M<I5@#'X=<=N(#UQE=)D$D7JJ>8KDGV*8\)1;,%8./GN5<,;)),V+X"]<QM2$
+MDX:@2'H/*;EH]=D]:Z9WC%J=<9J>8B;AH@4O+FLWM5NW\6+1R9BZ#=J0[($K
+MWB@D6Y`BS2'91"MX,S*L9K5O%5MK%YZA44FN;3=@Q:C.(]>MQ+JM9G11#6K*
+M7MV[N'"*<DLEE<)IQARM&22%TZOT\(=WA_>''QM*)Y))W-:RE-R]N^\>NL?N
+MJ7O7O3_4FDBC[^Z[^X?NX;%[?.J>WG7OWG?O[[B!30T>8HO'V.2I>_PN-GF*
+M;=Z]OXOM[KFA0\/'U/(I-7T7^XOMGE+#^/\^M7[@YIZ:/Z'].YSP'F?<X91[
+MG/.`DQ[YK)#/>D>GO:?S[NC$>SKS@4Y]I'.?^.2QG/R^^_&'P#.VA"RA&@.0
+MC)LF+OSDGN2*0;<8<[=>T[+(^1BW$+PLW(:D5XVR9&3*N>R+4-N\.C2+7&,5
+M=G65L1?QA3"CPK2:WSY6(M=@_>08,K:XT<T41#4;%=OL\YG,9+:R<DTA&DGF
+M.C)\AN;T&<GK<2XJBFV1K(F4O3[;(A=9[*N@J3!OI0*GY+SV,I\]"&%-9)\H
+M,]K[+/JA;X1&YM3U.4$\B74;&>*M&,"TS!6BQ)O@,K'/S*$>&P&>TJ`U&>MQ
+M^2:7/LIAN^:TZG1Q&L^,5.EI=6%Y8;HUGI8>2)"&U`Q>H4G]SQGKT0;3JPWA
+M&#)5/8$:*,&*2TGJ^Q?^YIKL7KZO33<A/W1%'.CU#H8D?+>Z)NXF)\9'+59T
+MR81/^D5.A8^B0)I*28*?/DEM0<FKXAJ_]8=8KS)BF^_T^ERE3PP#6U%[@H;D
+ML$G+0@G<$O1(>A5ZP)/5$Q$(^%S!GF\&<NZ`-HB]8S0IB:@EUP_2%4G]Q)XP
+MV!,&RKX!I3`@%08!:,93Z`?:@U*80)0(O6%L9B1E%K7P0C`3N9"!2&%[VS4=
+MZ$GWW7"Y^^U_Z98<J<+EQ;SE6ZV7-T[QYG3&YIUO76'I*?J:/P01&4R$@0M"
+M>3R40!V32Y0^.\_YW_A@4`LJ90*%Q:,6:]V,Y,Z'6OA*6!`""P<).Q#@!B0#
+M4K75%%^$6HS*&L(Y4$N,AQQ_R%W2$?2!!XRE;#U!<6B#76='<JPD%R'RZ82$
+M.!`,`P0'M-T9@N!0@FLY0J`(!$+_SE,X(TJP'%T@[`C?1WJG)WJ;"#5"?"-D
+M7H\MX7%W'IO!XUK>4I#EFRS$/_,?O;+&#.*):O$LR:$+M9[<8E$+)F.QGBS(
+M#SU+!\+CL(8<&(C3)'R@UI!S,&HMX:FH)2DD/TOZCG6`:SE0:X<5[!#&[G#%
+M\D2]>*YX9L-;T.__3_YRV.";.C6]Y1^]@B>+(V0GR6_0(5?&ET*`Z?6&69@A
+M49E.(P%&BBY@E/DU.R1RX'MFP?1.'4BLVOUV4DXOL\BO^%E?3PA)EM[E1N()
+ML?PM424Q>+3,K^M9,WN244#5X<1G(+H914H!*#Q&8B"T&>P\0RK#A@/V6_X!
+M."HO*YKRQ,[U-44O2352&",=![78WAI+H]SH[Y-G"EM/GZAUA(RC%J,RGAS>
+M48M1F4">KJC%J`Q&93`J,Y'*!5:&4=F!'&'!^C`JJ\DK%K48E34O9;K[D_S1
+M&U->7')X-A.Y#9/H@CD"&S5@V46`02V]."9[%:,6LJ^Q9!%$K2,E%K78"`8;
+MX2TD2\R^^L_'"K('Z7^<ORTGPLEO>+N:4%,KV#8\PU9W5_OM\`S_*D]"@='5
+M^`Q"SRK@(R(T+$=HY)0N/N?RU<69I;;,KBS"FD%&"ID(WG*0AO+*']V4S1D9
+M[2LE%>T3D1M61FY<2XYM4^1&?D?-[>ZDS[OOHF!W<N=P,9T>3V=W&3MONDG%
+M,G,);'IP]>4V.IYXOL0373C[3J>7TURFSBE$9"CXRHK3ZHML3#K-IO."1?2%
+MOX3.F7@=?>E4>C6.N8CSZNMM[.TNUL33TI52$(D^J>'L4S1&.MG%7G0X:W&J
+M*:>Z>,ETIO$8VZA.TUD-G9KBQ5P*%YE.]N+%F5;89LH+<@Y?[.&+XS978SSL
+M=HP'F6(2KT0@M$+@*1*L:5/006UKL$>*425K3'*I88M,,D*PA:2!#-,+CLE=
+M3N:SF3GD8Y:YU6I*V10\F:T5FQ%KE"0"_&S<5UBQII+M"]28HF8YY4NZ#Y&U
+MAO++`&:$RL5IS#0E&&[2:)648F1B:>(Q.'-63Y_E@)9-=$8*,*^A`3V'0_09
+M<\2IY!I*`"2!E(NP@;F$"PPYF3I!DQ0[@*>284I@<?5-FX`LIW)(\"1:U3"(
+M]$F()L&6]'RS=0W7)@Q#09I1IIJ%",&LR$;YS:UF^?K.OAS3`=<HX8$(8`9K
+M+G`HV<T(%,VV<3SV#)$63Q"5W51$\5Q?"$JF,4>@-JU3C`]<7D'J*L@JV;]0
+MF^%5U&9,DY8WKI"130)<<6Y^+R>AG&A)6&=&8-'/E)%4QF-9<\!%\^L[B[]!
+M]J^%S#-D=X*!MA,?<AWK'014TGL_LQ*"'LC>_^)AQIM!Z0GJZ@:@5789,_70
+MYPV6%"/^7J]-/RF/8LW?1D_7B#N4-T8G\*!)X2)'+PD`HPV]&3#G^"8_,-)S
+M4$O4)0/#!'F2ID50K00^20LBMXS\HCU7#G.!1$DKRRH$P;JD2)#&1+`I0:7T
+MRE/TYXG:H18(F`8X7EY_BMH,H:(6"TEC(144F#S8"`LF4!6U&5I%;098H4]E
+MF!5DE+2PC.:1+H;:K)&1CD:9N[.4C&=<M#3"_-`J(W^DL1'^A]HL1),^AS89
+M$:1D/(0+$E)(Z"!J-T.D*S;Z^C\X+TZO5R#I<5$Z@^:Y$5A/6B^IA*3[DF)(
+MJB*IA^I/]_32TR'_I=<_M=_ZO$@E(A65`B_1!NN]H+SH(6.]A/X2XHO:C/NB
+MEM!?S%C!@%&;D6#B_80'HS:CPJ@EC&$B=TQ"B"$,9)R8D&-"BTE<(,P8M80<
+M8\8*?HS:C"(3KDQ8,B&/)&:@EE!(<OS,Z#(ADH0Q$T9)Z"1J@8)GI!)S93%7
+M!;5\,8O<W^>/].-$F%W5E&D9N=^UF$B0,V))$=)!V,>T6E*D:Y/V31HW(2"D
+M=Q,.0L@(H2&D@Q,F0IHXZ>:DCQ,^0EHYH22$FQ!60AHZ(2:DIY/F3MHZH2>D
+MLQ.&0J@*(2FDOQ.>@EI"54`["[:"VHRP$.9".`ME(D0MB*8E$SD%*^>TOI2$
+M`;7DGXFYLIBK8L)`+1DR,%?%G$%F=DK>0&8.U&*N+.;*!C)YH!9S50P?J!U)
+MBB:_4-1BKBSFRF*N+&%,V3@">3J;2`"!8ZZ*N02UF*ML.L%<.45F?DJ4@5I-
+MAA748JZ*>85,+:C%7#G,E<-<.<R5LV2"02TY$)"4G_U_44M&&<Q5@?-1Z\F?
+METPV!.V3F0:U@1QVR7R#VFRX(04"M2,9`5`[O2Z6]D_YEVFF\95JOK30_QRT
+M,WV2#0BUX#,6?*98@E`;R#9$5B'4@L]D"]%(+BED\R-K$6HGLA^1%9#\RJ%3
+M9BL2+$0#V97(HD0:)VK)N@0^XS!7Q=*$6DVV)]1BKASFJEB@4&O()D76*+(L
+MDN^\_=,M=[9VD?V+'.#)Y@4K)DB#!VGP(`U^(*<>LG&B%JLKVSM!&CQ(@P=I
+M\"`-7I,UE.R@Y!&$6K*)@C1XD`8/TN`M:?)D,44MYLICKCSFRF.N/.;*DZL1
+M^1H1"I"3/*`6<^4Q5SZ0*Q*!!,@!@=7EL;H\5I?'ZO(C98A`+5:7Q^KR6%T>
+MJ\M/E$!BP*?&)W(]8'6%@6H!0V"-!:RQ@#46L,8"UEC`&@M88P%K+&"-!:RQ
+M8#;3$_QG^$.&K__(NQVUV;.`;-*HS5$_J`5E=*",SI/S'/D=D,4:M:",Q6Z-
+M6O)$P-HM-FS48J[<2'X*Y*%`5FW48JZ*;9L@-*SL;.'&RL9<><R5QUQYS)57
+MY-V`6LR5UX2_H39[.J`6<^4Q5]X0/(=:S)7'7'G,5?&&0"WFRF.N/.;*OZ!C
+M_M??W^G/C'_O$?R=_UZ7[G-2D;]7L+Y)H!(\5WPS@<I&PJ\-BQ*;@&3^%#8F
+MB/PI=I$_98?`Z"&[CT]#;:97H3%-3(S(G:*/6M5BSIMB:]X4&+<L7@`T32J]
+MO^MOARVCD?=BF.%8#!R[9-'ISKK[>NE_O?2G2W>^''8GW<NBBS[L?CW'_Z?^
+M*S7XM31(57^[]&=\J_V/Q]W?SK%%/+]#E^CB;R<ZJ3OG\WY=_-9Y(*?2X>XK
+MQG:^<-?3<?<5_6!HU&C1S]>_I4OG6_F:3J^S$,3#2B^2S[-@XC1\$,'6H29,
+M_BG6P"G<(+$+;`'`U/`M'7-Z)+(.`)[.U@&@WHWO,LI!G@M83X&&RI)7<\'C
+M)1S_VW!XPMO7OL4X*_L6$_;NZ<I@8<7'F)!VC#)#SX28"[BYHN,,+I/[#,7[
+M$;@L_8V+M_#<NM(T?B8$_1(D3&`PP<`$(4KO60D>DL^)]'18>](2/$B>)P0,
+M$DY#8*!TV"3,YB7_D]>[;;[&ZX'P$NF\V?H^,%Y"2`FA(*0TDKI(BB*IB*3^
+MD5KX@@MG$M!=A3@(OB!8@P`-@C((Q/@=?K'_]?=G__/7J[=\.>+:V$A/PMPP
+ME'SN/R7CN.;RFM`=-:_QXQC67)>9I4C]9%/J)W;IX#0>(0H!_^N?_VGW#\_S
+M\_'CA_M_^&O\\G_GY[OGKY&6[?_ZW_ZB=M]_O^/"X^>OSW_Y?_-[3PX4MP``
+`
+end
Index: Tst/Long/homtest.stat
===================================================================
--- Tst/Long/homtest.stat	(revision dde0a61ae4b88452f53c42edec183e9dcf671f23)
+++ Tst/Long/homtest.stat	(revision dde0a61ae4b88452f53c42edec183e9dcf671f23)
@@ -0,0 +1,4 @@
+1 >> tst_memory_0 :: nepomuck.mathematik.uni-kl.de:284318
+1 >> tst_memory_1 :: nepomuck.mathematik.uni-kl.de:9716702
+1 >> tst_memory_2 :: nepomuck.mathematik.uni-kl.de:9924608
+1 >> tst_timer_1 :: nepomuck.mathematik.uni-kl.de:27140
Index: Tst/Long/homtest.tst
===================================================================
--- Tst/Long/homtest.tst	(revision dde0a61ae4b88452f53c42edec183e9dcf671f23)
+++ Tst/Long/homtest.tst	(revision dde0a61ae4b88452f53c42edec183e9dcf671f23)
@@ -0,0 +1,477 @@
+// standard examples for homogeneous ideals
+
+//==== elem 30, dim 0, mult 131;
+//==== Macaulay 1 sec
+//=== 0.54 sec
+
+option(prot);
+
+ring b1=32003,(a,b,c,d,e),dp;
+int n =10;
+poly s1=a+b+c+d+e;
+poly s2=de+1cd+1bc+1ae+1ab;
+poly s3=cde+1bcd+1ade+1abe+1abc;
+poly s4=bcde+1acde+1abde+1abce+1abcd;
+poly s5=abcde;
+ideal i=s1,s2,s3,s4,s5,a^n,b^n,c^n,d^n,e^n;
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill n ,b1;
+
+//==== 9 9 9 homog
+//==== elem 83, dim 1, mult 512;
+//=== Macaulay 0 sec
+//=== 0.24 sec
+ring s2=32003,(t,x,y,z),dp;
+ideal i=
+9x8+y7t+5x4y2t2+2xy2z3t2,
+9y8+7xy6t+2x5yt2+2x2yz3t2,
+9z8+3x2y2z2t2;
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill s2;
+
+//========= Beipiel Alex1 homog
+//===== elem 95, dim 3, mult 18
+//==== Macaulay 5  sec
+//=== 3.39 sec
+
+ring h1=32003,(w,x,t,y,z),dp;
+ideal j=
+9x8+y7t3z4+5x4y2t2+2xy2z3t2,
+9y8+7xy6t+2x5y4t2+2x2yz3t2,
+9z8+3x2y3z2t4;
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill h1;
+
+//========= Beipiel Alex2 homog
+//=== elem 158, dim 3, mult 52
+//==== Macaulay 5 min 0 sec
+//=== 122.43 sec
+
+ring h2=32003,(t,x,y,z,w),dp;
+ideal j=
+2t3x5y2z+x2t5y+2x2y,
+2y3z2x+3z2t6x2y+9y2t3z,
+2t5z+y3x2t+z2t3y2x5;
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill h2;
+
+//========= Beipiel Alex3 homog
+//=== elem 211, dim 3 , mult 7
+//==== Macaulay 27 sec
+//=== 19.43 sec
+
+ring h3=32003,(t,x,y,z,w),dp;
+ideal j=
+5t3x8y2z+x2t5y+2x2y+5t,
+7y6z2x+6x2y+9y2t3z+4t6x,
+4t6z+8y3x5t+2t3y2x3+3x;
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill h3;
+
+//========= Beipiel Alex4 homog
+//=== elem 116, dim 3, mult 87
+//==== Macaulay 5 sec
+//=== 4.72 sec
+
+//========= Beipiel Alex5 homog
+//=== elem 52, dim 3, mult 8
+//=== Macaulay 17 sec
+//=== 6.99 sec
+
+ring h5=32003,(t,x,y,z,w),dp;
+ideal j=
+4t2z+6z3t+3z2,
+5t2z7y3x+5x2z4t3y+3t,
+6zt2y+2x+6z2y2t+2y;
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill h5;
+
+//========= Beipiel Alex6 homog
+//=== elem 49, dim 3, mult 5
+//=== Macaulay 27 sec
+//=== 18.14 sec
+
+ring h6=32003,(t,x,y,z,w),dp;
+ideal j=
+4t2z+6z3t+3z2tx+3z,
+5t7yx+5x2z4t3y+3t,
+6zt2y+2x+6z2y2t+2y;
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill h6;
+
+//==== Beispiel Behnke
+//==== elem 149, dim 1, mult 120
+//==== Macaulay 5 sec
+//=== 3.82 sec
+
+ring be=32003,(a,b,c,d,e),dp;
+ideal i=
+a5-b5,
+b5-c5,
+c5-d5,
+d5-e5,
+a4b+b4c+c4d+d4e+e4a;
+test(15);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+test(-15);
+kill be;
+
+//==== elem 82, dim 3, mult 3
+//==== Macaulay 1 min 11 sec
+//=== 17.50 sec
+
+ring rh1=32003,(w,t,x,y,z),dp;
+ideal j=
+5t3x2z+2t2y3x5,
+7y+4x2y+y2x+2zt,
+3tz+3yz2+2yz4;
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill rh1;
+
+//==== elem 68, dim 1, mutl 720
+//==== Macaulay 3 sec
+//=== 1.27 sec
+
+ring rh2=32003,(w,x,y,z),dp;
+poly p1 = 1x3y2+21328x5y+10667x2y4+21328x2yz3+10666xy6+10667y9;
+poly p2 = 1x2y2z2+3z8;
+poly p3 = 5x4y2+4xy5+2x2y2z3+1y7+11x10;
+ideal j= p1,p2,p3;
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill rh2;
+
+//==== elem 75, dim 1, mult 720
+//==== Macaulay 3 sec
+//=== 1.53 sec
+
+ring rh3=32003,(w,x,y,z),dp;
+int a =11;
+int b =10;
+int c =3;
+int t =1;
+
+poly f= x^a+y^b+z^(3*c)+x^(c+2)*y^(c-1)+x^(c-1)*y^(c-1)*z3+x^(c-2)*y^c*(y2+t*x)^2;
+ideal j= jacob(f);
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill rh3;
+
+//=== elem 41, dim 1, mult 125
+//==== Macaulay 4 sec
+//=== 1.60 sec
+
+ring rh4=32003,(w,x,y,z),dp;
+int a=6;
+poly f =xyz*(x+y+z)^2 +(x+y+z)^3 +x^a+y^a+z^a;
+ideal j= jacob(f);
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill rh4;
+
+//=== elem 44, dim 1, mult 216
+//==== Macaulay 4 sec
+//=== 1.69 sec
+
+ring rh5=32003,(w,x,y,z),dp;
+int a =7;
+poly f=xyz*(x+y+z)^2 +(x+y+z)^3 +x^a+y^a+z^a;
+ideal j= jacob(f);
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill rh5;
+
+//=== elem 117, dim 1, mult 107
+//==== Macaulay 3 sec
+//=== 2.85 sec
+
+ring rh6=32003,(w,x,y,z),dp;
+int a= 6;
+int b= 8;
+int c =10;
+int alpha=5;
+int beta= 5;
+int t=0;
+poly f= x^a+y^b+z^c+x^alpha*y^(beta-5)+x^(alpha-2)*y^(beta-3)+x^(alpha-3)*y^(beta-4)*z^2+x^(alpha-4)*y^(beta-4)*(y^2+t*x)^2;
+ideal j= jacob(f);
+j=j,(f);
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill a, b, c, alpha ,beta, t, rh6;
+
+//=== elem 66, dim 1, mult 315
+//==== Macaulay 4 sec
+//=== 1.79 sec
+
+ring rh7=32003,(u,x,y,z),dp;
+int a= 6;
+int b= 8;
+int c =10;
+int alpha=5;
+int beta= 5;
+int t=0;
+poly f =x^a+y^b+z^c+x^alpha*y^(beta-5)+x^(alpha-2)*y^(beta-3)+x^(alpha-3)*y^(beta-4)*z^2+x^(alpha-4)*y^(beta-4)*(y^2+t*x)^2;
+ideal j =jacob(f);
+ideal i=homog(j,u);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill a, b, c, alpha ,beta, t, rh7;
+
+//=== elem 169, dim 1, mult 251
+//==== Macaulay 6 sec
+//=== 3.65
+
+ring rh9=32003,(w,x,y,z),dp;
+int a =11;
+int b =10;
+int c =3;
+int t =1;
+
+poly f= x^a+y^b+z^(3*c)+x^(c+2)*y^(c-1)+x^(c-1)*y^(c-1)*z3+x^(c-2)*y^c*(y2+t*x)^2;
+ideal j= jacob(f);
+j=j,(f);
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill b,c,t,a,rh9;
+
+//=== elem 75, dim 1, mult 44
+//==== Macaulay 2 sec
+//=== 1.71 sec
+
+ring rh10=32003,(w,x,y,z),dp;
+int a =6;
+poly f =xyz*(x+y+z)^2 +(x+y+z)^3 +x^a+y^a+z^a;
+ideal j= jacob(f);
+j=j,(f);
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+
+kill a,rh10;
+
+//=== elem 61, dim 1, mult 67
+//==== Macaulay 1 sec
+//=== 0.78 sec
+
+ring rh11=32003,(w,x,y,z),dp;
+int a =7;
+poly f =xyz*(x+y+z)^2 +(x+y+z)^3 +x^a+y^a+z^a;
+ideal j= jacob(f);
+j=j,(f);
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill a,rh11;
+
+//=== elem 83, dim 2, mult 26400
+//==== Macaulay 1 sec
+//=== 0.46 sec
+
+ring rh12=32003,(t,x,y,z,w),dp;
+ideal j=x2-z10-z20,xy3-z10-z30,y6-xy3w40;
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill rh12;
+
+//=== elem 23, dim 1, mult 380
+//==== Macaulay 4 sec
+//=== 1.81 sec
+
+ring rh13=32003,(w,x,y),dp;
+poly f=(x+y)^20 +y21+(x+y)^10 +x9y9+x3y15+x2y11+x4y4+(x+y)^17;
+ideal j= jacob(f);
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill rh13;
+
+//=== elem 254, dim 1, mult 56
+//==== Macaulay 44 sec
+//=== 23.08 sec
+
+ring rh14=32003,(w,x,y),dp;
+poly f=(x+y)^20 +y21+(x+y)^10 +x9y9+x3y15+x2y11+x4y4+(x+y)^17;
+ideal j= jacob(f);
+j=j,(f);
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill rh14;
+
+//=== elem 143, dim 1, mult 194
+//==== Macaulay 11 sec
+//===  2.05 sec
+
+ring rh17=32003,(w,x,y,z),dp;
+ideal j=
+1x3+1y4+2xz3+1z5+32000x4y2+2z6+3z7,
+1xz3+32001x4y2+1z6+2z7,
+9x3z2+18x2z5+31998z7+12x4y2z2+42x2z6+40x3y2z4+7z9+24x3y2z5,
+31999y3z3+31991x6y+32x3y5+32001x4yz3,
+12xy3z2+6x5yz2+24y3z5+20x4yz4+56y3z6+12x4yz5;
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill rh17;
+
+//=== elem 22, dim 2, mult 416
+//==== Macaulay 4 sec
+//===  0.77 sec
+
+ring rh18=32003,(w,t,x,y,z),dp;
+ideal j=
+4t2z+6z3t+3z3+tz,
+5t2z7y3x+5x2z4t3y+3t7,
+6zt2y+2x8+6z2y2t+2y5;
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill rh18;
+
+//===== elem 111,dim 1, mult 3564
+//==== Macaulay 15 sec
+//===  9.11 sec
+
+ring rh19=32003,(w,x,y,z),dp;
+int a =19;
+int b =19;
+int c =4;
+int t =1;
+
+poly f= x^a+y^b+z^(3*c)+x^(c+2)*y^(c-1)+x^(c-1)*y^(c-1)*z3+x^(c-2)*y^c*(y2+t*x)^2;
+ideal j= jacob(f);
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill b,c,t,a,rh19;
+
+//==== elem 278,dim 1, mult 8602
+//==== Macaulay 6 min 9 sec
+//===  239.13 sec (3 min 59.13 sec)
+
+ring rh20=32003,(w,x,y,z),dp;
+int a =24;
+int b =23;
+int c =6;
+int t =1;
+
+poly f= x^a+y^b+z^(3*c)+x^(c+2)*y^(c-1)+x^(c-1)*y^(c-1)*z3+x^(c-2)*y^c*(y2+t*x)^2;
+ideal j= jacob(f);
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill b,c,t,a,rh20;
+
+//=== elem 103, dim 1, mult 729
+//=== Macaulay 4 min 33 sec
+//=== 144.50 sec (2 min 24.50 sec)
+
+ring testh1=32003,(w,x,y,z),dp;
+int a =10;
+poly f=(xyz+xy+yz+xz)*(x+y+z)^2 +x^a+y^a+z^a;
+ideal j= jacob(f);
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill a,testh1;
+
+//==== elem 443, dim 2, mult 392
+//==== Macaulay 29 min 17 sec
+//===  1019.78 sec (16 min 59.78 sec)
+
+ring testh2=32003,(a,b,c,d,e,f,g,h),dp;
+ideal i=
+a+b+c+d+e+f+g,
+ab+bc+cd+de+ef+fg+ga,
+abc+bcd+cde+d*ef+efg+fga+gab,
+abcd+bcde+cdef+defg+efga+fgab+gabc,
+abcde+bcdef+cdefg+defga+efgab+fgabc+gabcd,
+abcdef+bcdefg+cdefga+defgab+efgabc+fgabcd+gabcde,
+abcdefg+h^7;
+ideal i0=std(i);
+size(i0);
+degree (i0);
+kill testh2;
+
+//===  elem 767, dim 2 mult 86
+//== Macaulay 42 min 0 sec
+//=== 1616.59 sec (26 min 56.59 sec)
+
+ring rh15=32003,(w,x,y,z),dp;
+poly p1= x2y *(47x5y7z3+28xy5z8+63+91x5y3z7);
+poly p2= xyz *(57y6+21x2yz9+51y2z2+15x2z4);
+poly p3= xy4z *(74y+32x6z7+53x5y2z+17x2y3z);
+poly p4= y3z *(21x2z6+32x10y6z5+23x5y5z7+27y2);
+poly p5= xz *(36y2z2+81x9y10+19x2y5z4+79x4z6);
+ideal j= p1,p2,p3,p4,p5;
+ideal i=homog(j,w);
+ideal i0=std( i);
+size(i0);
+degree (i0);
+kill rh15;
+
+//=== elem  ,dim 0, mult 90
+//=== Macaulay 3 sec
+//===  2.21
+
+ring testh4 = 31991,(u,v,w,x,y,z),dp;
+
+ideal i = xy+y2+uz-wz-xz+yz, x2-y2+uz-wz-xz+z2, wy, wx-uz+yz, w2-y2+uz-z2, vz-yz-z2,
+vy-y2-wz+xz+yz+z2, vx-y2+uz+yz-z2, vw-y2+uz+yz-z2, v2+y2+uz-xz-yz-z2, uy+y2+yz,
+ux-y2+wz-xz-z2, uw-y2+uz+yz-z2, uv-y2-xz+yz, u2+yz;
+
+ideal i3 = i^2;
+ideal j = std(i3);
+size(j);
+degree(j);
+
+kill testh4;
+LIB "tst.lib";tst_status(1);$
Index: Tst/Long/ok_l.lst
===================================================================
--- Tst/Long/ok_l.lst	(revision 2d74e88e0224b48c0c6bfe645e4045ec425f5a9d)
+++ Tst/Long/ok_l.lst	(revision dde0a61ae4b88452f53c42edec183e9dcf671f23)
@@ -10,4 +10,5 @@
 gcdp_l
 hnoether_l
+homtest
 hres_l
 intdet_l
