BEGIN {FS="|"; ekster=0; print "<includeonly>{{#switch:{{lc:{{{1}}}}}";}
/Ankro[|]hex_please/ {ekster=1;}
NF==8 && $0~/^[|]/ {
gsub(" ","");
gsub("<tt> ","");
gsub("<tt> ","");
gsub("<tt>","");
gsub("</tt>","");
gsub(" ",",");
gsub(" ",",");
gsub(" ",",");
gsub(",","",$6);
s=variantoj($4);
if (ekster==1)
print "|" tolower($2) s "=#" $6
else
print s "=" $2;
}
END {print "|{{{1}}}}}</includeonly><noinclude>{{Dok}}</noinclude>";}
function variantoj(s, s1, s2, t, t1, t2, t3, n, c)
{
t="|" s;
t3=substr(s,1,length(s)-1)
t=t "|" t3 "e";
t=t "|" t3 "o";
s1=substr(s,1,1);
s2=substr(s,2);
n=match(s2, /[[:upper:]]/);
if(n>0)
{
t1=s1 substr(s2,1,n-1);
t2=substr(s2,n);
c=substr(t1,length(t1));
if (c=="o")
t1=substr(t1,1,length(t1)-1);
t=t "|" t1 "e " t2;
t=t "|" t1 "e" t2;
if (c!="o" && c!="l")
t=t "|" t1 "o" t2;
t=t "|" t1 "a " substr(t2,1,length(t2)-1) "o";
if (t1=="Pal" && t2!="Verda")
{
t=t "|" "Hel" t2;
t=t "|" "Hele " t2;
t=t "|" "Hele" t2;
t=t "|" "Hela " substr(t2,1,length(t2)-1) "o";
}
if (t1=="Hel" && t2!="Verda")
{
t=t "|" "Pal" t2;
t=t "|" "Pale " t2;
t=t "|" "Pale" t2;
t=t "|" "Pala " substr(t2,1,length(t2)-1) "o";
}
}
else
{
t=t "|" substr(s,1,length(s)-1) "kolora";
t=t "|" substr(s,1,length(s)-1) "okolora";
}
return tolower(t);
}
La programo akceptas la enhavon de la tuta sekcio, do kun la tekstaĵoj ktp. Ĝi mem elsarkas la gravajn liniojn el la tabelo. Evidente, oni ne plu metu iujn pliajn tabelojn en la sekcion.