
//SetVerbose("RoundFour",5);
Zx<x> := PolynomialAlgebra(Integers());
k3 := pAdicRing(3, 200);
k31 := UnramifiedExtension(k3,3);
k32 := TotallyRamifiedExtension(k3,x^3+3);
k33 := TotallyRamifiedExtension(k31,x^6+9*x^2+6);
k2 := pAdicRing(2, 500);
k21 := UnramifiedExtension(k2,3);
k22 := TotallyRamifiedExtension(k21,x^6+4*x^2+6);
k5 := pAdicRing(5, 100);
k51 := UnramifiedExtension(k5,2);
k7 := pAdicRing(7,100);
k71 := TotallyRamifiedExtension(k7,x^42+49*x+7);
fields := [k2,k21,k22,k3,k31,k32,k33,k5,k51,k7,k71];

L :=
[
-6+x^4-4*x^5+4*x^11+x^12,
1-8*x+x^11+x^12,
-20-x^6+3*x^10+x^12,
-2+6*x+3*x^5-x^6+x^12,
3+7*x^4+5*x^5-7*x^7+5*x^8-5*x^10+x^12,
-3-x^4+3*x^6-x^7-x^8-x^10+x^12,
1-x+x^4+6*x^5+5*x^8+x^12,
-1-4*x-2*x^4+4*x^5-x^8+x^12,
4+x^3-x^5+2*x^6-2*x^8+x^12,
4-7*x^2-x^4+3*x^5+2*x^6+3*x^9+x^12,
1+2*x^5+x^8+8*x^10+x^12,
32+4*x^5+x^12,
-1+2*x^5-5*x^7-x^11+x^12,
1+x-x^5+x^6-x^7+x^9+x^10+x^12,
1+2*x^2-2*x^4-4*x^11+x^12,
1+x-3*x^2+3*x^6+x^7-x^8+x^11+x^12,
-2+2*x+x^2+7*x^4-x^5+x^9+x^12,
1+x^3-x^5+x^6+2*x^7-3*x^8-x^10+x^12,
1-2*x-2*x^3+x^6-x^8-2*x^9+x^12,
-3+x+x^6-2*x^7-x^9-x^10-x^11+x^12,
1+x^3-4*x^4-4*x^5+2*x^7-3*x^10+x^12,
-1-x^3-x^5-2*x^9+x^12,
4+4*x^6+x^7+x^12,
-1+6*x^2+3*x^5+x^12,
8+12*x^4+3*x^6+x^9+x^12,
-4+x^4-4*x^5+x^8-x^9-x^10-x^11+x^12,
1-x^3-21*x^9+x^12,
3+x^4-x^6+x^9-x^11+x^12,
1+x^3+3*x^5-x^6+5*x^7-x^11+x^12,
10-x^2-x^6+4*x^8-3*x^9+x^12,
1-78*x-11*x^6+6*x^7+x^12,
12-3*x^4+5*x^6+5*x^10+4*x^11+x^12,
-7+5*x^2+x^5-2*x^7-2*x^9-x^11+x^12,
-3-x+x^3-4*x^5+x^8+x^9+x^11+x^12,
-2-2*x+x^2-5*x^3-x^4-x^6+x^9+x^11+x^12,
-12-2*x^2-x^10+x^12,
-6-9*x^5-x^6-9*x^7+x^9+x^12,
-5-12*x^4+x^12,
6+x^4+4*x^5-10*x^7-x^8+x^12,
2+5*x^2-x^3+x^9+x^12,
-2+4*x^2-x^3+2*x^6-4*x^8+2*x^10-x^11+x^12,
2-2*x^7+3*x^10+x^12,
7-18*x^3+2*x^6+x^12,
-1+x^2-2*x^3+3*x^4+2*x^11+x^12,
-4-10*x^2-3*x^4+x^6-x^11+x^12,
-13-x^7+x^9+x^12,
-3-x^2+9*x^5-2*x^7+x^9-x^10+x^12,
-8-6*x^3-x^4+8*x^5+x^6+2*x^8+x^12,
(x^3+6*x^2+3)*(x^9+3)+150^5,
((x^3+6*x^2+3)*(x^9+3)+60^5)*(-5-12*x^4+x^12)+60^8,
((x^3+6*x^2+3)^2*(x^9+3))+243,
x^12 + 144949227*2*x^11 - 18157449*x^10 + 39210647*2^2*x^9 +
  141742141*x^8 - 251213207*2*x^7 + 516009365*x^6 + 5613321*2^2*x^5 + 
  32222119*x^4 + 48849315*2*x^3 + 430409321*x^2 - 33879745*2^3*x + 489659547,
4-12*x^4+3*x^5-3*x^11+x^12,
4-2*x^2+2*x^4+3*x^6+5*x^7+x^9+x^12,
1+2*x^2+x^4-x^7+x^13,
-6+2*x^7+x^13,
-7+4*x^3-3*x^4+x^9+x^13,
4+x^9+x^13,
-6+3*x^5+x^7+2*x^9+3*x^11+x^13,
2-x+x^5-2*x^8+2*x^9+2*x^10+x^13,
1-2*x^3+x^4-3*x^10-x^12+x^13,
-1+x^5-x^7+3*x^8+3*x^10-x^11+x^13,
-2+9*x^2-10*x^5+6*x^10+x^13,
1+2*x+x^2+3*x^9+x^13,
-1-x+3*x^2-x^3+x^6+x^13,
9+2*x^9+2*x^11+2*x^12+x^13,
-1+x^3-4*x^4+x^6+2*x^8-2*x^10-2*x^12+x^13,
-1+2*x^3-x^5+8*x^8+x^13,
2+2*x^3-9*x^5-2*x^6+x^7-x^11+x^13,
1+3*x-x^8+x^13,
-2+2*x-2*x^4+4*x^6-3*x^10+x^12+x^13,
-1+x^3+3*x^4+4*x^9+x^13,
-1+x^2-x^4-4*x^8+x^9+x^10+x^13,
1+2*x^2+2*x^5-x^8+x^13,
-2+2*x^3-3*x^12+x^13,
-4+4*x^3-x^5+8*x^7+2*x^12+x^13,
2+6*x-x^4+x^6-x^9+x^12+x^13,
-3+x^2-2*x^5+x^13,
1+5*x^4+x^5+x^13,
-4-2*x^4-2*x^5+6*x^6+x^13,
1-x^2+x^6-5*x^8-x^9+x^13,
-2-2*x^3+x^4-x^6-7*x^9+x^13,
-4-4*x^7-4*x^8+x^13,
-2-x^2-2*x^3+3*x^4+x^6-x^7+2*x^8+2*x^10+x^13,
2+x-x^3-x^4-x^5+x^6-x^7+4*x^8+x^13,
2+8*x^5+x^11+x^13,
-8+4*x+x^2-2*x^3-2*x^5+3*x^8-3*x^9+7*x^11+x^12+x^13,
-9-x^3-x^6+2*x^9+x^13,
-9-x^3-x^6+2*x^9+x^13,
2-5*x^2-3*x^3-x^6-x^8-x^10-x^12+x^13,
-4-4*x+2*x^3+2*x^9+x^13,
4+x^6-2*x^11+x^12+x^13,
-1+x^2+4*x^4-x^5+x^13,
-2-x^8-x^9-x^10+x^13,
-4-3*x^4-x^5-x^6+2*x^8+x^13,
-2-2*x^3+4*x^8-3*x^9-2*x^10+x^13,
-1-x^4+x^5+x^10+5*x^11+3*x^12+x^13,
9+3*x^5+x^7+2*x^9+x^11+x^13,
1-x-3*x^2+x^10+x^13,
-1+15*x^6-x^7-3*x^8+x^12+x^13,
-1+x^7-14*x^10+x^12+x^13,
-8+x^11+x^13,
1-4*x+2*x^3-x^10+3*x^11+x^13,
-2-4*x^2-x^4-x^6-3*x^7+2*x^11+x^13,
1-3*x+2*x^3+x^6+2*x^12+x^13 , 
-6-3*x^4-4*x^5+x^14,
-7-8*x^6+4*x^7+x^10+x^14,
-4-4*x^4+x^6+x^14,
4-x^2+x^8+x^14,
13+x^13+x^14,
2-x^2-2*x^4-x^5-x^7+8*x^8-x^9+x^10+x^14,
5+7*x^2-x^4-6*x^5+3*x^10+x^14,
1-4*x^2-6*x^3+20*x^6+x^14,
1+x+x^6+x^8+x^14,
1+4*x^8+2*x^11+x^14,
-1-x-x^3-x^5+2*x^6+6*x^10+2*x^11+x^13+x^14,
418-8*x^7+x^14,
-1-2*x+3*x^3-5*x^4+16*x^7+2*x^8-2*x^11+x^14,
-4-x^6+2*x^7-x^8+2*x^9+3*x^10+2*x^11+x^14,
1-14*x^10+x^14,
1+x+4*x^5+6*x^6-x^8-x^9+x^12+x^14,
-1-5*x^2-x^3-x^6-x^7+x^14,
-6-2*x^8+2*x^11+x^14,
-1-2*x^3-3*x^5-3*x^6-x^8+x^14,
-1+6*x+2*x^8+x^14,
6+x^8+x^14,
1+x+x^2+2*x^3+x^6+x^12+x^13+x^14,
-3-2*x^8+x^14,
1+2*x^3-2*x^4-4*x^8+x^9+3*x^11-4*x^13+x^14,
1-2*x-x^2-2*x^5-x^12+x^14,
-3+2*x^2-x^3-3*x^9+x^14,
14-7*x^5-3*x^7+x^14,
-2+3*x^3-7*x^6-x^10+x^14,
-4+2*x^5+x^8+7*x^10+2*x^12+x^14,
2+4*x^4+x^12+x^14,
-1+2*x^2+4*x^3+2*x^13+x^14,
3+x^2-x^5+3*x^7+x^8+x^14,
2-4*x^10+x^14,
8+2*x^3-x^5-3*x^8-2*x^10+x^12+x^14,
1+x^3-2*x^5+x^7+3*x^8-2*x^10+x^11+x^14,
2+x^10-x^13+x^14,
12+2*x^9+x^14,
-4+10*x^5-x^7-x^12+x^14,
1+2*x^6-4*x^7+4*x^11+x^14,
-6+x^12+x^14,
4+x^6-3*x^12-x^13+x^14,
-4+2*x^4+x^14,
-4+x^6+2*x^7-2*x^9+x^14,
1-2*x+2*x^2+2*x^10+x^14,
2+2*x^2-2*x^5+2*x^10+x^14,
-1-2*x^5-7*x^7+x^14,
-4+3*x^4-2*x^5-x^8-2*x^13+x^14,
2-14*x^3-x^6+x^14,
1-3*x-x^7-x^11+x^14,
-1-x^4-2*x^7-x^10-2*x^11+2*x^12+x^14 , 
-2-13*x^5+x^15,
1-x^8+x^9-7*x^10+x^12+x^15,
(-4-x^9+x^15)*(60^4-4-x^9+x^15)+50^7,
-4-x^4+4*x^6-3*x^10+x^13+x^15,
-4+2*x^8-4*x^9+x^15,
-1+x^3-4*x^4-5*x^12+x^15,
2-4*x^3-7*x^6-x^9+x^15,
-1+x+x^3+x^4+5*x^9-x^12+x^15,
1-2*x^2-x^9+x^11+x^14+x^15,
-2+x^2-2*x^7+x^8-x^9+x^15,
-1+5*x^5+5*x^6+x^15,
2-2*x+x^4-2*x^5-2*x^8-x^11-x^14+x^15,
-4-x^4+x^9+x^15,
16-6*x^4-8*x^9+x^15,
-4+x^9+x^13+x^15,
-20-x^6-x^9-3*x^12+x^15,
2+18*x^7-x^12+x^15,
3+x+x^3-3*x^6-x^7+2*x^9+x^15,
-4-x-x^9+x^15,
-4+5*x^5-5*x^9+x^15,
4-x^6+x^8-x^9-2*x^11+x^15,
2-x-2*x^3-x^5+2*x^8+x^9-2*x^12-x^13+x^15,
-6+x^5+x^15,
2+6*x^11+x^15,
-1+x+x^6-x^13+x^15,
60^6+(4-x^3+x^15)*(-17+x^6-3*x^7+x^15),
9-x^5+3*x^7-x^11-x^14+x^15,
1+9*x^5+x^15,
6-5*x^6+3*x^9-x^12+x^15,
2+x^10-x^14+x^15,
4-x^2+x^8-x^12+x^14+x^15,
1+x^7+2*x^13-x^14+x^15,
-1-9*x^9+x^15,
4-5*x^12+3*x^14+x^15,
-9-x^3+3*x^12+x^15,
3-6*x^6+x^15,
-1+x^5+11*x^10+x^15,
-4+x^3+12*x^10+4*x^11+x^15,
1-3*x^2+14*x^12+x^15,
4+5*x^10+x^15,
4+5*x^11+x^15,
10-x^7+2*x^9+x^15,
-1+3*x^5-2*x^6+2*x^8-x^9+x^15,
-3+x^4-x^8-x^10+2*x^14+x^15,
6+6*x^6-x^9+3*x^11+x^15,
-4+x^12+x^15,
-1+9*x^3+3*x^8-3*x^11+x^15,
22+2*x^10+x^15,
(x^3+9)*(x^3+6+27+x*3^6)*(x^9+18)+243,
x^15+2*x^8+6*x-1 , 
(x^12 + x^9 -9*x^7-2*x^6-9*x^5-6)*(x^3+3+27)*(x^3+6+27+x*3^6)*(x^9+9),
x^16+432*x^14+68688*x^12-4717440*x^10+112637304*x^8+409406400*x^6+
  2774305728*x^4+7047756096*x^2+11224978704,
x^16-12*x^14-84*x^13-196*x^12+2856*x^11+6328*x^10-
  42336*x^9-64820*x^8+352464*x^7+298928*x^6-1776096*x^5-262416*x^4
  +5458656*x^3-1875872*x^2-6688416*x+7866576,
x^6 + 55207059*2^2*x^5 + 6491933*2^3*x^4 - 38691*2^6*x^3 - 116738917*x^2 +
  93972211*2*x + 321102343,
x^11-x^10-x^4-4,
x^9-2*x^4-10*x^3+x-2,
((x-3)*(x+1)),
((x-3)*x*(x-1)),
(x-3),
(x-1),
(x^3+6*x^2+3),
(x^3+3*x^2+3),
(x^3+6*x^2+3+3^6),
x^32+16, 
(x^3+3)*(x^3+3+27),
x^6 + 1991*x^3+ 1000,  
(x^3+6)*(x^3+3),
x^2+2,
(x^3+3)*(x^3+6+27+x*3^6)+60^8,
(x^6-2900*x^3-1394),
(x^6+1331),
(x^3+3)*(x^3+6+27+x*3^6)*(x^9+9),
(x^5+3)*(x^10+2+3*x+3)*(x^5+6),
x^14+2*x^8+6*x-1,
(x^12 + x^9 -9*x^7-2*x^6-9*x^5-6)*(x^3+3)*(x^3+6+27+x*3^6)*(x^9+9),
x^16
+432*x^14+68688*x^12-4717440*x^10+112637304*x^8+409406400*x^6+
2774305728*x^4+7047756096*x^2+11224978704,
x^16-12*x^14-84*x^13-196*x^12+2856*x^11+6328*x^10-
42336*x^9-64820*x^8+352464*x^7+298928*x^6-1776096*x^5-262416*x^4
+5458656*x^3-1875872*x^2-6688416*x+7866576,
(x^3+3+2*6)*(x^3+2*6+27+x*2*3^6),
x^9-2*x^3-10,
(x^2+1)*(x^2+3*x+1)^2,
(x^2+1)^4*(x^2+3*x+1),
x^14+2*x^8+6*x-1,
x^24 - 120*x^22 - 8*x^21 + 5652*x^20 + 552*x^19 - 138604*x^18 - 
17928*x^17 + 1963278*x^16 + 300880*x^15 - 16685412*x^14 -
2511696*x^13 + 85119282*x^12 + 8651400*x^11 - 253358796*x^10 + 
636000*x^9 + 412984053*x^8 - 58958856*x^7 - 319280624*x^6 + 89501568*x^5 + 
85277382*x^4 - 39135040*x^3 + 1714908*x^2 + 1046808*x - 110951,
x^12 + 144949227*2*x^11 - 18157449*x^10 + 39210647*2^2*x^9 +
141742141*x^8 - 251213207*2*x^7 + 516009365*x^6 + 5613321*2^2*x^5 + 
32222119*x^4 + 48849315*2*x^3 + 430409321*x^2 - 33879745*2^3*x + 489659547,
x^12 + 144949227*2*x^11 - 18157449*x^10 + 39210647*2^2*3,
x^6 + 55207059*2^2*x^5 + 6491933*2^3*x^4 - 38691*2^6*x^3 - 116738917*x^2 +
     93972211*2*x + 321102343,
x^13-x^9-2*x^3-10,
10^6+(x^12 + x^9 -9*x^7-2*x^6-9*x^5-6)*(x^3+3+27)*(x^3+6+27+x*3^6)*(x^9+9),
6^7+(x^12 + x^9 -9*x^7-2*x^6-9*x^5-6)*(x^3+3+27)*(x^3+6+27+x*3^6)*(x^9+9),
x^16 + 354509679294*x^15 + 512849953056*x^14 + 509576876032*x^13 - 
480774391187*x^12 - 364162477784*x^11 + 410845060748*x^10 + 381049449826*x^9 - 
138349630424*x^8 - 19663394686*x^7 - 140170037124*x^6 + 412974214336*x^5 - 
305392572139*x^4 - 522031115576*x^3 + 438840119968*x^2 - 73848398098*x + 515149395825,
x^16 - 536*x^15 + 266572*x^14 - 34015128*x^13 + 3705272186*x^12 - 219037203056*x^11
+ 11168233350344*x^10 - 306241006365032*x^9 + 9629237302399339*x^8 - 
118902467546504144*x^7 + 3349428036096877000*x^6 - 13246386068351883720*x^5 + 
491238268193875102754*x^4 + 571649131030162227784*x^3 + 27504461276244168975092*x^2 - 
32155151804982493166928*x + 106175607483606991290153,
((x^2+x+1)^16+32*(x^3+x+1)+16),
x^16 + 96*x^15 + 4328*x^14 + 132992*x^13 + 3306412*x^12 + 67978784*x^11
+ 1177049912*x^10 + 17469448384*x^9 + 210990801238*x^8 + 1993852351648*x^7 + 
14072020792600*x^6 +
20926947930112*x^5 - 1135362341247412*x^4 - 11522906055823136*x^3 - 
1956352388990392*x^2 +
493466387849149376*x + 2095324453019171121,
x^16 + 208*x^15 + 5122680*x^14 + 10258193776*x^13 + 14106889769884*x^12
+ 35317524464845264*x^11 + 56725370130408411720*x^10 + 68152427279147784084976*x^9 +
99401069952399714246984134*x^8 + 
130106195565679652085762032880*x^7 + 126123768345452833957606665399112*x^6 +
114135188030074589783836912406712528*x^5
 + 107599409600558611784334354798938004124*x^4 +
 81353303640615950740137367485846742243440*x^3 + 
 39811476660356907794477040505450436667328376*x^2 +
 11012622952157384228828274281841880976451408848*x + 
 1319149389536171392711372104092889020278327173249,
x^15+9*x^5+1,
x^4 - x^2 + 7,
x^4 - 3*x^3 - 11*x + 21,
x^6 + 33*x^3 + 90,
x^14 + x^8 + 6,
x^6 + 240893658643872789386407309606200087611785471038732710155436*x^3 - 
159035494843911144447223008297514636086450215650460689213836,
x^3 - 
115269518598255102925578994368416777225649695989261070755192482282787436478\
241995098549015842473*x^2 + 
17491005911910640526814031543252462645213674316391563682704\
437088419649707045490545032221174644*x - 
1237241556460482749133487289117389831954970420\
34290075883650538052872866294504355869384083784444,
x^27 + 729*x^25 + 64*x^24 + 22590*x^22 + 1051*x^21 - 6570*x^20 + 19845*x^19 - 
5688*x^18 - 197397*x^17 - 46089*x^16 - 198240*x^15 - 8910*x^14 + 
198936*x^13 + 9081*x^12 - 59130*x^11 + 47385*x^10 - 57213*x^9 - 1776573*x^8
- 473850*x^7 - 1789344*x^6 - 80190*x^5 - 39366*x^4 - 3402*x^3 - 1180980*x -
53460,
x^27 + 729*x^25 + 37*x^24 + 2907*x^22 + 133*x^21 - 6570*x^20 + 405*x^19 - 
6525*x^18 - 20007*x^17 + 1296*x^16 - 19554*x^15 - 891*x^14 + 21789*x^13 + 
981*x^12 - 59130*x^11 - 9477*x^10 - 59400*x^9 - 180063*x^8 - 47385*x^7 - 
178983*x^6 - 8019*x^5 - 39366*x^4 - 1944*x^3 - 118098*x - 5346,
x^16 - 12*x^14 - 84*x^13 - 196*x^12 + 2856*x^11 + 6328*x^10 - 42336*x^9 - 
64820*x^8 + 352464*x^7 + 298928*x^6 - 1776096*x^5 - 262416*x^4 + 
5458656*x^3 - 1875872*x^2 - 6688416*x + 7866576,
x^4 - 213872731928747401368034696522803470488659539983337154321950*x^3 - 
412699885419416359985419315085565634685252230036345761479331*x^2 - 
93547684809268786308616763506783650938421622215120776145756*x + 
300331871774102167751634517889364466568728344943758371298575,
x^4 + 2*x^3 + x^2 + 3,
x^4 + 22*x^3 + 23*x^2 + 2*x + 7,
x^30 - x^29 + x^28 - x^27 + x^26 + 743*x^25 - 1363*x^24 - 3597*x^23 -
22009*x^22 + 458737*x^21 + 2608403*x^20 + 6374653*x^19 - 1890565*x^18 -
112632611*x^17 - 467834081*x^16 - 1365580319*x^15 - 1188283908*x^14 +
3831279180*x^13 + 28661663584*x^12 + 89106335984*x^11 + 226912479680*x^10 +
443487548480*x^9 + 719797891328*x^8 + 946994403328*x^7 + 1015828094976*x^6 +
878645952512*x^5 + 555353440256*x^4 + 124983967744*x^3 + 67515711488*x^2 -
5234491392*x + 400505700352,
x^12 - 6540120191693541197981202016020504121227185588421301676393305234892237376423*x^10 + 
    5466176266594526164084748688402816332748597972356192754756276798661427701080*x^8 + 
    8530209189384448261492270733828754401532122513779381265198229799617854828055*x^6 - 
    6243964409581759234199983994807598440552430500062652875336632743879561139144*x^4 + 
    4782772040079820785797609738065221053384568668297787521303583867328035957624*x^2 - 
    7837151539594163654549129131798355613570688164930233737235859906122265034740,
x^12 + 546*x^10 + 138*x^8 + 123*x^6 + 696*x^4 + 240*x^2 + 309,
(x^32+16*9)*(x^32+16*9+32*9),
(x^16+8*9)*(x^16+8*9+256*3)+60^6,
8*9*5*(x^16+8*9*5)*(x^16+8*9*5+256*3*125),
(x^4 + 2*x^3 - 1092*x^2 + 18590*x + 972805+3^5+6^10)*
(x^4 + 2*x^3 - 1092*x^2 + 18590*x + 972805+3^5+5*6^10),
x^8 - 8850639057270755844080824506979493436285017815907962500966911111413\
    7335349501022212182809170157*x^6 - 120606500232398085239238532235411863080015626291\
    834402081473502369736424211394371099340961569984*x^4 + 
    49584140753687144687106629339723918532963498315949120847056243779508563894898550762\
    164298842497*x^2 + 7772446778126962680057939862747435305962603921967890973033688066\
    9398736644431384746737697790640,
x^9 + 27109812038309860853208848423119686760625785017*x^8 + 
    174499802775582173169696654369433845745331316699*x^7 + 
    230723419076949527922184421698644231256604583039*x^6 + 
    107884850517181205095483549708914764422347210945*x^5 - 
    224836657446423038164523310852671951006176991913*x^4 - 
    151771380693957646560951973139662658502530983731*x^3 - 
    83600704150578570922225616882893013232280345629*x^2 - 
    230982797416941977063409576992759267193137958321*x - 
    253565541265556373651726741233626560959168865882
];


ft :=procedure(k, f)

  o := 0;
  ky<y> := PolynomialAlgebra(k);
  g := ky!f;
  //print g;
  a,b := Factorization(g:Certificates:=true);
  gg := 1;
  for i := 1 to #a do
    gg:=gg*a[i][1]^a[i][2];
  end for;
  if ky!b*gg-g ne 0 then
    error "Error: Testing p-adic Factorization failed with polynomial",f,"over",k;
  else
    //b,"*",a;
  end if;

end procedure;


TestRoundFour := function()
  //for k in fields do 
  for k in fields[1 .. 5] do 
    k;
    //for j := 1 to #L do
    for j := 1 to Min(#L, 10) do
      //print "---",j,"of",#L,"---------------------------------------------------------------";
      j,"of",#L;
      ft(k, L[j]);
    end for;
  end for;
  return true;
end function;


TestRoundFour();

