commit c9812f8febe549fc2fd337b90f476bc3f5fc9e81
Author: Hèctor Alòs i Font <hectoralos@gmail.com>
Date:   Sat May 18 18:00:39 2019 +0300

    f_concord* agafats de fra-cat

diff --git a/apertium-por-cat.cat-por.t1x b/apertium-por-cat.cat-por.t1x
index e3ce913..a0eae72 100644
--- a/apertium-por-cat.cat-por.t1x
+++ b/apertium-por-cat.cat-por.t1x
@@ -739,1895 +739,1970 @@
 
 <section-def-macros>
 
+    <def-macro n="f_concord1" npar="1">
+      <choose>
+<!--To determine value of variables of gender and
+                 number and propagate to other rules.  Variables are
+                 not used again in this rule -->
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+<!-- If word has GD or ND, we try to assign the
+              gender or number of the previous rule. If there is no
+              value for the gender or number variable from previous
+              rules, gender will be masculine and number singular.-->
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <equal>
+                  <var n="genero"/>
+                  <lit-tag v="f"/>
+                </equal>
+              </test>
+              <let>
+                <clip pos="1" side="tl" part="gen"/>
+                <lit-tag v="f"/>
+              </let>
+            </when>
+            <otherwise>
+              <let>
+                <clip pos="1" side="tl" part="gen"/>
+                <lit-tag v="m"/>
+              </let>
+            </otherwise>
+          </choose>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <equal>
+                  <var n="numero"/>
+                  <lit-tag v="pl"/>
+                </equal>
+              </test>
+              <let>
+                <clip pos="1" side="tl" part="nbr"/>
+                <lit-tag v="pl"/>
+              </let>
+            </when>
+            <otherwise>
+              <let>
+                <clip pos="1" side="tl" part="nbr"/>
+                <lit-tag v="sg"/>
+              </let>
+            </otherwise>
+          </choose>
+        </when>
+      </choose>
+    </def-macro>
 
-<def-macro n="f_concord1" npar="1">
-	
-	<choose><!--To determine value of variables of gender and
-						number and propagate to other rules.  Variables are
-						not used again in this rule -->
-		<when> 
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let><var n="genero"/><lit-tag v="m"/></let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let><var n="genero"/><lit-tag v="f"/></let>
-		</when>
-	</choose> 
-	<choose>
-		<when> 
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let><var n="numero"/><lit-tag v="sg"/></let>
-		</when>
-		<when> 
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let><var n="numero"/><lit-tag v="pl"/></let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test> <!-- If word has GD or ND, we try to assign the
-							gender or number of the previous rule. If there is no
-							value for the gender or number variable from previous
-							rules, gender will be masculine and number singular.-->
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<choose> 
-				<when>
-					<test>
-						<equal>
-							<var n="genero"/>
-							<lit-tag v="f"/>
-						</equal>
-					</test>
-					<let><clip pos="1" side="tl" part="gen"/><lit-tag v="f"/></let>
-				</when>
-				<otherwise>
-					<let><clip pos="1" side="tl" part="gen"/><lit-tag v="m"/></let>
-				</otherwise>
-			</choose>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test> 
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<choose> 
-				<when>
-					<test>
-						<equal>
-							<var n="numero"/>
-							<lit-tag v="pl"/>
-						</equal>
-					</test>
-					<let><clip pos="1" side="tl" part="nbr"/><lit-tag v="pl"/></let>                   
-				</when>
-				<otherwise>
-					<let><clip pos="1" side="tl" part="nbr"/><lit-tag v="sg"/></let>
-				</otherwise>
-			</choose>
-		</when>
-	</choose>    
-</def-macro>
+    <def-macro n="f_concord2" npar="2">
+      <choose>
+        <when>
+          <test>
+<!-- do the main and second parameter gender agree?-->
+            <and>
+              <or>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </or>
+              <or>
+                <equal>
+<!-- do the main and second parameter number agree?-->
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+                <equal>
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </or>
+            </and>
+          </test>
+          <let>
+            <var n="concPrimero"/>
+            <lit v="true"/>
+          </let>
+<!-- there is gender and number agreement-->
+        </when>
+        <otherwise>
+          <let>
+            <var n="concPrimero"/>
+            <lit v="false"/>
+          </let>
+<!-- there isn't gender and number agreement-->
+        </otherwise>
+      </choose>
+      <choose>
+        <when>
+          <test>
+<!-- Propagate the main parameter gender if it has been modified during the translation  -->
+            <and>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <lit-tag v="GD"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="2" side="tl" part="gen"/>
+                      <lit-tag v="mf"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="2" side="sl" part="gen"/>
+                        <lit-tag v="mf"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="2" side="tl" part="gen"/>
+                          <lit-tag v="GD"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concPrimero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="2" side="tl" part="gen"/>
+                <clip pos="1" side="tl" part="gen"/>
+              </let>
+            </when>
+          </choose>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+<!-- Propagate the main parameter number if it has been modified during the translation  -->
+            <and>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <lit-tag v="ND"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="2" side="tl" part="nbr"/>
+                      <lit-tag v="sp"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="2" side="sl" part="nbr"/>
+                        <lit-tag v="sp"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="2" side="tl" part="nbr"/>
+                          <lit-tag v="ND"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concPrimero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="2" side="tl" part="nbr"/>
+                <clip pos="1" side="tl" part="nbr"/>
+              </let>
+            </when>
+          </choose>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+<!-- Which is the rule general gender? -->
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="1" side="tl" part="gen"/>
+                <lit-tag v="mf"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="genero"/>
+            <clip pos="1" side="sl" part="gen"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="2" side="tl" part="gen"/>
+                <lit-tag v="mf"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="genero"/>
+            <clip pos="2" side="sl" part="gen"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+        <when>
+<!-- Which is the rule general number? -->
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
 
-<def-macro n="f_concord2" npar="2">
-	<choose>
-		<when>
-			<test> <!-- do the main and second parameter gender agree?-->
-				<and>
-					<or>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</or>
-					<or>
-						<equal> <!-- do the main and second parameter number agree?-->
-							<clip pos="2" side="sl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-						<equal>
-							<clip pos="2" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</or>
-				</and>
-			</test>
-			<let><var n="concPrimero"/><lit v="true"/></let><!-- there is gender and number agreement-->
-		</when>
-		<otherwise> 
-			<let><var n="concPrimero"/><lit v="false"/></let><!-- there isn't gender and number agreement-->
-		</otherwise>
-	</choose>
-	
-	<choose>
-		<when>
-			<test> <!-- Propagate the main parameter gender if it has been modified during the translation  -->
-				<and>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<lit-tag v="GD"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="2" side="tl" part="gen"/>
-									<lit-tag v="mf"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="2" side="sl" part="gen"/>
-										<lit-tag v="mf"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="2" side="tl" part="gen"/>
-											<lit-tag v="GD"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concPrimero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>                              
-					<let>
-						<clip pos="2" side="tl" part="gen"/>
-						<clip pos="1" side="tl" part="gen"/> 
-					</let>
-				</when>
-			</choose>
-		</when>
-	</choose>  
-	<choose>
-		<when>
-			<test> <!-- Propagate the main parameter number if it has been modified during the translation  -->
-				<and>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<lit-tag v="ND"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="2" side="tl" part="nbr"/>
-									<lit-tag v="sp"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="2" side="sl" part="nbr"/>
-										<lit-tag v="sp"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="2" side="tl" part="nbr"/>
-											<lit-tag v="ND"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concPrimero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="2" side="tl" part="nbr"/>
-						<clip pos="1" side="tl" part="nbr"/> 
-					</let>
-				</when>
-			</choose>
-		</when>
-	</choose>
-	
-	<choose>
-		<when>
-			<test> <!-- Which is the rule general gender? -->
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="1" side="tl" part="gen"/>
-						<lit-tag v="mf"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="genero"/>
-				<clip pos="1" side="sl" part="gen"/> 
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="2" side="tl" part="gen"/>
-						<lit-tag v="mf"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="genero"/>
-				<clip pos="2" side="sl" part="gen"/> 
-			</let>
-		</when>
-		<otherwise>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</otherwise>
-	</choose>
-	
-	
-	
-	<choose>
-		<when><!-- Which is the rule general number? -->
-			<test> 
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="1" side="tl" part="nbr"/>
-						<lit-tag v="sp"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="numero"/>
-				<clip pos="1" side="sl" part="nbr"/> 
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="2" side="tl" part="nbr"/>
-						<lit-tag v="sp"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="2" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="numero"/>
-				<clip pos="2" side="sl" part="nbr"/> 
-			</let>
-		</when>
-		<otherwise>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</otherwise>
-	</choose>
-	
-	<choose> <!-- Determine gender and number value if they are undetermined -->
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="1" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="2" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="1" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="2" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>
-</def-macro>
+        <when>
+          <test>
+            <and>
+            <equal>
+              <clip pos="2" side="tl" part="a_num"/>
+              <lit-tag v="num"/>
+            </equal>
+            <not>
+            <equal>
+              <clip pos="2" side="tl" part="lem"/>
+              <lit v="1"/>
+            </equal>
+            </not>
+            </and>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
 
-<def-macro n="f_concord3" npar="3"> 
-	<choose><!-- Look if in source language there is concordance between first and second element -->
-		<when>
-			<test> 
-				<and>
-					<or>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</or>
-					<or>
-						<equal>
-							<clip pos="2" side="sl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-						<equal>
-							<clip pos="2" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</or>
-				</and>
-			</test>
-			<let><var n="concPrimero"/><lit v="true"/></let>
-		</when>
-		<otherwise> 
-			<let><var n="concPrimero"/><lit v="false"/></let>
-		</otherwise>
-	</choose>
-	<choose><!-- Look if in source language there is concordance between second and third element -->
-		<when>
-			<test> 
-				<and>
-					<or>
-						<equal>
-							<clip pos="3" side="sl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-						<equal>
-							<clip pos="3" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</or>
-					<or>
-						<equal>
-							<clip pos="3" side="sl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-						<equal>
-							<clip pos="3" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</or>
-				</and>
-			</test>
-			<let><var n="concSegundo"/><lit v="true"/></let>
-		</when>	 
-		<otherwise> 
-			<let><var n="concSegundo"/><lit v="false"/></let>
-		</otherwise>
-	</choose>
-	
-	
-	<choose><!-- Propagate the main parameter gender if it has been modified during the translation -->
-		<when>
-			<test> 
-				<and>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<lit-tag v="GD"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="2" side="tl" part="gen"/>
-									<lit-tag v="mf"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="2" side="sl" part="gen"/>
-										<lit-tag v="mf"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="2" side="tl" part="gen"/>
-											<lit-tag v="GD"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concPrimero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="2" side="tl" part="gen"/>
-						<clip pos="1" side="tl" part="gen"/> 
-					</let>
-				</when> 
-			</choose>   
-			<choose>
-				<when>
-					<test> 
-						<and>
-							<not>
-								<equal>
-									<clip pos="3" side="tl" part="gen"/>
-									<lit-tag v="mf"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="3" side="sl" part="gen"/>
-										<lit-tag v="mf"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="3" side="tl" part="gen"/>
-											<lit-tag v="GD"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concSegundo"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="3" side="tl" part="gen"/>
-						<clip pos="1" side="tl" part="gen"/> 
-					</let> 
-				</when> 
-			</choose>
-		</when>
-	</choose>
-	
-	<choose><!-- Propagate the main parameter number if it has been modified during the translation -->
-		<when>
-			<test> 
-				<and>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<lit-tag v="ND"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="2" side="tl" part="nbr"/>
-									<lit-tag v="sp"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="2" side="sl" part="nbr"/>
-										<lit-tag v="sp"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="2" side="tl" part="nbr"/>
-											<lit-tag v="ND"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concPrimero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="2" side="tl" part="nbr"/>
-						<clip pos="1" side="tl" part="nbr"/> 
-					</let>
-				</when>
-			</choose>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="3" side="tl" part="nbr"/>
-									<lit-tag v="sp"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="3" side="sl" part="nbr"/>
-										<lit-tag v="sp"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="3" side="tl" part="nbr"/>
-											<lit-tag v="ND"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concSegundo"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="3" side="tl" part="nbr"/>
-						<clip pos="1" side="tl" part="nbr"/> 
-					</let>
-				</when>
-			</choose>
-		</when>
-	</choose>
-	
-	
-	
-	<choose> <!-- Determine the rule general gender. Priority order: main, second and third element -->
-		<when>
-			<test> 
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when> 
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="1" side="tl" part="gen"/>
-						<lit-tag v="mf"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="genero"/>
-				<clip pos="1" side="sl" part="gen"/> 
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="2" side="tl" part="gen"/>
-						<lit-tag v="mf"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="genero"/>
-				<clip pos="2" side="sl" part="gen"/> 
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="3" side="tl" part="gen"/>
-						<lit-tag v="mf"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="3" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="genero"/>
-				<clip pos="3" side="sl" part="gen"/> 
-			</let>
-		</when>               
-		<otherwise>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</otherwise>
-	</choose>
-	
-	<choose><!-- Determine the rule general number. Priority order: main, second and third element -->
-		<when>
-			<test> 
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>     
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="1" side="tl" part="nbr"/>
-						<lit-tag v="sp"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="numero"/>
-				<clip pos="1" side="sl" part="nbr"/> 
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="2" side="tl" part="nbr"/>
-						<lit-tag v="sp"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="2" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="numero"/>
-				<clip pos="2" side="sl" part="nbr"/> 
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="3" side="tl" part="nbr"/>
-						<lit-tag v="sp"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="3" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="numero"/>
-				<clip pos="3" side="sl" part="nbr"/> 
-			</let>
-		</when>
-		<otherwise>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</otherwise>
-	</choose>
-	
-	<choose> <!-- Assign values to GD and ND -->
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="1" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="2" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="3" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="1" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="2" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="3" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>      
-</def-macro>     
-
-<def-macro n="f_concord4" npar="4">
-	<choose>
-		<when>
-			<test> 
-				<and>
-					<or>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</or>
-					<or>
-						<equal>
-							<clip pos="2" side="sl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-						<equal>
-							<clip pos="2" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</or>
-				</and>
-			</test>
-			<let><var n="concPrimero"/><lit v="true"/></let>
-		</when>
-		<otherwise> 
-			<let><var n="concPrimero"/><lit v="false"/></let>
-		</otherwise>
-	</choose>
-	
-	<choose>
-		<when>
-			<test> 
-				<and>
-					<or>
-						<equal>
-							<clip pos="3" side="sl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-						<equal>
-							<clip pos="3" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</or>
-					<or>
-						<equal>
-							<clip pos="3" side="sl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-						<equal>
-							<clip pos="3" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</or>
-				</and>
-			</test>
-			<let><var n="concSegundo"/><lit v="true"/></let>
-		</when>	 
-		<otherwise>
-			<let><var n="concSegundo"/><lit v="false"/></let>
-		</otherwise>
-	</choose>
-	
-	<choose>
-		<when>
-			<test> 
-				<and>
-					<or>
-						<equal>
-							<clip pos="4" side="sl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-						<equal>
-							<clip pos="4" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</or>
-					<or>
-						<equal>
-							<clip pos="4" side="sl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-						<equal>
-							<clip pos="4" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</or>
-				</and>
-			</test>
-			<let><var n="concTercero"/><lit v="true"/></let>
-		</when>	 
-		<otherwise> 
-			<let><var n="concTercero"/><lit v="false"/></let>
-		</otherwise>
-	</choose>
-	
-	
-	<choose>
-		<when>
-			<test> 
-				<and>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<lit-tag v="GD"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="2" side="tl" part="gen"/>
-									<lit-tag v="mf"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="2" side="sl" part="gen"/>
-										<lit-tag v="mf"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="2" side="tl" part="gen"/>
-											<lit-tag v="GD"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concPrimero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="2" side="tl" part="gen"/>
-						<clip pos="1" side="tl" part="gen"/> 
-					</let>
-				</when> 
-			</choose>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="3" side="tl" part="gen"/>
-									<lit-tag v="mf"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="3" side="sl" part="gen"/>
-										<lit-tag v="mf"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="3" side="tl" part="gen"/>
-											<lit-tag v="GD"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concSegundo"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="3" side="tl" part="gen"/>
-						<clip pos="1" side="tl" part="gen"/> 
-					</let>
-				</when> 
-			</choose>  
-			<choose>
-				<when>
-					<test>  
-						<and>
-							<not>
-								<equal>
-									<clip pos="4" side="tl" part="gen"/>
-									<lit-tag v="mf"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="4" side="sl" part="gen"/>
-										<lit-tag v="mf"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="4" side="tl" part="gen"/>
-											<lit-tag v="GD"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concTercero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="4" side="tl" part="gen"/>
-						<clip pos="1" side="tl" part="gen"/> 
-					</let> 
-				</when> 
-			</choose>
-		</when>
-	</choose>
-	
-	<choose>
-		<when>
-			<test> 
-				<and>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<lit-tag v="ND"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="2" side="tl" part="nbr"/>
-									<lit-tag v="sp"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="2" side="sl" part="nbr"/>
-										<lit-tag v="sp"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="2" side="tl" part="nbr"/>
-											<lit-tag v="ND"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concPrimero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="2" side="tl" part="nbr"/>
-						<clip pos="1" side="tl" part="nbr"/> 
-					</let>
-				</when>
-			</choose>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="3" side="tl" part="nbr"/>
-									<lit-tag v="sp"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="3" side="sl" part="nbr"/>
-										<lit-tag v="sp"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="3" side="tl" part="nbr"/>
-											<lit-tag v="ND"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concSegundo"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="3" side="tl" part="nbr"/>
-						<clip pos="1" side="tl" part="nbr"/> 
-					</let>
-				</when>
-			</choose>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="4" side="tl" part="nbr"/>
-									<lit-tag v="sp"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="4" side="sl" part="nbr"/>
-										<lit-tag v="sp"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="4" side="tl" part="nbr"/>
-											<lit-tag v="ND"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concTercero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="4" side="tl" part="nbr"/>
-						<clip pos="1" side="tl" part="nbr"/> 
-					</let>
-				</when>
-			</choose>
-		</when>
-	</choose>
-	
-	<choose>
-		<when>
-			<test> 
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when> 
-		<when>
-			<test>
-				<equal>
-					<clip pos="4" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="4" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when>
-		<otherwise>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</otherwise>
-		
-	</choose>
-	
-	<choose>
-		<when>
-			<test> 
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="4" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="4" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when> 
-		<otherwise>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</otherwise>
-	</choose>
-	
-	<choose> 
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="1" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="2" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="3" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="4" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="4" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when> 
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="1" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="2" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="3" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="4" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="4" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>      
-</def-macro>      
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="1" side="tl" part="nbr"/>
+                <lit-tag v="sp"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="numero"/>
+            <clip pos="1" side="sl" part="nbr"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="2" side="tl" part="nbr"/>
+                <lit-tag v="sp"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="numero"/>
+            <clip pos="2" side="sl" part="nbr"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+<!-- Determine gender and number value if they are undetermined -->
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="1" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="2" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="1" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="2" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+    </def-macro>
+
+    <def-macro n="f_concord3" npar="3">
+      <choose>
+<!-- Look if in source language there is concordance between first and second element -->
+        <when>
+          <test>
+            <and>
+              <or>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </or>
+              <or>
+                <equal>
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+                <equal>
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </or>
+            </and>
+          </test>
+          <let>
+            <var n="concPrimero"/>
+            <lit v="true"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="concPrimero"/>
+            <lit v="false"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+<!-- Look if in source language there is concordance between second and third element -->
+        <when>
+          <test>
+            <and>
+              <or>
+                <equal>
+                  <clip pos="3" side="sl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+                <equal>
+                  <clip pos="3" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </or>
+              <or>
+                <equal>
+                  <clip pos="3" side="sl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+                <equal>
+                  <clip pos="3" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </or>
+            </and>
+          </test>
+          <let>
+            <var n="concSegundo"/>
+            <lit v="true"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="concSegundo"/>
+            <lit v="false"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+<!-- Propagate the main parameter gender if it has been modified during the translation -->
+        <when>
+          <test>
+            <and>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <lit-tag v="GD"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="2" side="tl" part="gen"/>
+                      <lit-tag v="mf"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="2" side="sl" part="gen"/>
+                        <lit-tag v="mf"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="2" side="tl" part="gen"/>
+                          <lit-tag v="GD"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concPrimero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="2" side="tl" part="gen"/>
+                <clip pos="1" side="tl" part="gen"/>
+              </let>
+            </when>
+          </choose>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="3" side="tl" part="gen"/>
+                      <lit-tag v="mf"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="3" side="sl" part="gen"/>
+                        <lit-tag v="mf"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="3" side="tl" part="gen"/>
+                          <lit-tag v="GD"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concSegundo"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="3" side="tl" part="gen"/>
+                <clip pos="1" side="tl" part="gen"/>
+              </let>
+            </when>
+          </choose>
+        </when>
+      </choose>
+      <choose>
+<!-- Propagate the main parameter number if it has been modified during the translation -->
+        <when>
+          <test>
+            <and>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <lit-tag v="ND"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="2" side="tl" part="nbr"/>
+                      <lit-tag v="sp"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="2" side="sl" part="nbr"/>
+                        <lit-tag v="sp"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="2" side="tl" part="nbr"/>
+                          <lit-tag v="ND"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concPrimero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="2" side="tl" part="nbr"/>
+                <clip pos="1" side="tl" part="nbr"/>
+              </let>
+            </when>
+          </choose>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="3" side="tl" part="nbr"/>
+                      <lit-tag v="sp"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="3" side="sl" part="nbr"/>
+                        <lit-tag v="sp"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="3" side="tl" part="nbr"/>
+                          <lit-tag v="ND"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concSegundo"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="3" side="tl" part="nbr"/>
+                <clip pos="1" side="tl" part="nbr"/>
+              </let>
+            </when>
+          </choose>
+        </when>
+      </choose>
+      <choose>
+<!-- Determine the rule general gender. Priority order: main, second and third element -->
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="1" side="tl" part="gen"/>
+                <lit-tag v="mf"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="genero"/>
+            <clip pos="1" side="sl" part="gen"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="2" side="tl" part="gen"/>
+                <lit-tag v="mf"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="genero"/>
+            <clip pos="2" side="sl" part="gen"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="3" side="tl" part="gen"/>
+                <lit-tag v="mf"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="3" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="genero"/>
+            <clip pos="3" side="sl" part="gen"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+<!-- Determine the rule general number. Priority order: main, second and third element -->
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="1" side="tl" part="nbr"/>
+                <lit-tag v="sp"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="numero"/>
+            <clip pos="1" side="sl" part="nbr"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="2" side="tl" part="nbr"/>
+                <lit-tag v="sp"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="numero"/>
+            <clip pos="2" side="sl" part="nbr"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="3" side="tl" part="nbr"/>
+                <lit-tag v="sp"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="3" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="numero"/>
+            <clip pos="3" side="sl" part="nbr"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+<!-- Assign values to GD and ND -->
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="1" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="2" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="3" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="1" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="2" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="3" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+    </def-macro>
+
+    <def-macro n="f_concord4" npar="4">
+      <choose>
+        <when>
+          <test>
+            <and>
+              <or>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </or>
+              <or>
+                <equal>
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+                <equal>
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </or>
+            </and>
+          </test>
+          <let>
+            <var n="concPrimero"/>
+            <lit v="true"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="concPrimero"/>
+            <lit v="false"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <and>
+              <or>
+                <equal>
+                  <clip pos="3" side="sl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+                <equal>
+                  <clip pos="3" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </or>
+              <or>
+                <equal>
+                  <clip pos="3" side="sl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+                <equal>
+                  <clip pos="3" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </or>
+            </and>
+          </test>
+          <let>
+            <var n="concSegundo"/>
+            <lit v="true"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="concSegundo"/>
+            <lit v="false"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <and>
+              <or>
+                <equal>
+                  <clip pos="4" side="sl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+                <equal>
+                  <clip pos="4" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </or>
+              <or>
+                <equal>
+                  <clip pos="4" side="sl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+                <equal>
+                  <clip pos="4" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </or>
+            </and>
+          </test>
+          <let>
+            <var n="concTercero"/>
+            <lit v="true"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="concTercero"/>
+            <lit v="false"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <and>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <lit-tag v="GD"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="2" side="tl" part="gen"/>
+                      <lit-tag v="mf"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="2" side="sl" part="gen"/>
+                        <lit-tag v="mf"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="2" side="tl" part="gen"/>
+                          <lit-tag v="GD"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concPrimero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="2" side="tl" part="gen"/>
+                <clip pos="1" side="tl" part="gen"/>
+              </let>
+            </when>
+          </choose>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="3" side="tl" part="gen"/>
+                      <lit-tag v="mf"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="3" side="sl" part="gen"/>
+                        <lit-tag v="mf"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="3" side="tl" part="gen"/>
+                          <lit-tag v="GD"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concSegundo"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="3" side="tl" part="gen"/>
+                <clip pos="1" side="tl" part="gen"/>
+              </let>
+            </when>
+          </choose>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="4" side="tl" part="gen"/>
+                      <lit-tag v="mf"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="4" side="sl" part="gen"/>
+                        <lit-tag v="mf"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="4" side="tl" part="gen"/>
+                          <lit-tag v="GD"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concTercero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="4" side="tl" part="gen"/>
+                <clip pos="1" side="tl" part="gen"/>
+              </let>
+            </when>
+          </choose>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <and>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <lit-tag v="ND"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="2" side="tl" part="nbr"/>
+                      <lit-tag v="sp"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="2" side="sl" part="nbr"/>
+                        <lit-tag v="sp"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="2" side="tl" part="nbr"/>
+                          <lit-tag v="ND"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concPrimero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="2" side="tl" part="nbr"/>
+                <clip pos="1" side="tl" part="nbr"/>
+              </let>
+            </when>
+          </choose>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="3" side="tl" part="nbr"/>
+                      <lit-tag v="sp"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="3" side="sl" part="nbr"/>
+                        <lit-tag v="sp"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="3" side="tl" part="nbr"/>
+                          <lit-tag v="ND"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concSegundo"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="3" side="tl" part="nbr"/>
+                <clip pos="1" side="tl" part="nbr"/>
+              </let>
+            </when>
+          </choose>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="4" side="tl" part="nbr"/>
+                      <lit-tag v="sp"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="4" side="sl" part="nbr"/>
+                        <lit-tag v="sp"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="4" side="tl" part="nbr"/>
+                          <lit-tag v="ND"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concTercero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="4" side="tl" part="nbr"/>
+                <clip pos="1" side="tl" part="nbr"/>
+              </let>
+            </when>
+          </choose>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="4" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="4" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="4" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="4" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="1" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="2" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="3" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="4" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="4" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="1" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="2" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="3" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="4" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="4" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+    </def-macro>
 
 <def-macro n="f_comparativa" npar="1">
 	<choose>
diff --git a/apertium-por-cat.por-cat.t1x b/apertium-por-cat.por-cat.t1x
index 62e83d6..5b6c01a 100644
--- a/apertium-por-cat.por-cat.t1x
+++ b/apertium-por-cat.por-cat.t1x
@@ -706,1894 +706,1970 @@
 
 <section-def-macros>
 
-<def-macro n="f_concord1" npar="1">
-	
-	<choose><!--To determine value of variables of gender and
-						number and propagate to other rules.  Variables are
-						not used again in this rule -->
-		<when> 
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let><var n="genero"/><lit-tag v="m"/></let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let><var n="genero"/><lit-tag v="f"/></let>
-		</when>
-	</choose> 
-	<choose>
-		<when> 
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let><var n="numero"/><lit-tag v="sg"/></let>
-		</when>
-		<when> 
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let><var n="numero"/><lit-tag v="pl"/></let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test> <!-- If word has GD or ND, we try to assign the
-							gender or number of the previous rule. If there is no
-							value for the gender or number variable from previous
-							rules, gender will be masculine and number singular.-->
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<choose> 
-				<when>
-					<test>
-						<equal>
-							<var n="genero"/>
-							<lit-tag v="f"/>
-						</equal>
-					</test>
-					<let><clip pos="1" side="tl" part="gen"/><lit-tag v="f"/></let>
-				</when>
-				<otherwise>
-					<let><clip pos="1" side="tl" part="gen"/><lit-tag v="m"/></let>
-				</otherwise>
-			</choose>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test> 
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<choose> 
-				<when>
-					<test>
-						<equal>
-							<var n="numero"/>
-							<lit-tag v="pl"/>
-						</equal>
-					</test>
-					<let><clip pos="1" side="tl" part="nbr"/><lit-tag v="pl"/></let>                   
-				</when>
-				<otherwise>
-					<let><clip pos="1" side="tl" part="nbr"/><lit-tag v="sg"/></let>
-				</otherwise>
-			</choose>
-		</when>
-	</choose>    
-</def-macro>
+    <def-macro n="f_concord1" npar="1">
+      <choose>
+<!--To determine value of variables of gender and
+                 number and propagate to other rules.  Variables are
+                 not used again in this rule -->
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+<!-- If word has GD or ND, we try to assign the
+              gender or number of the previous rule. If there is no
+              value for the gender or number variable from previous
+              rules, gender will be masculine and number singular.-->
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <equal>
+                  <var n="genero"/>
+                  <lit-tag v="f"/>
+                </equal>
+              </test>
+              <let>
+                <clip pos="1" side="tl" part="gen"/>
+                <lit-tag v="f"/>
+              </let>
+            </when>
+            <otherwise>
+              <let>
+                <clip pos="1" side="tl" part="gen"/>
+                <lit-tag v="m"/>
+              </let>
+            </otherwise>
+          </choose>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <equal>
+                  <var n="numero"/>
+                  <lit-tag v="pl"/>
+                </equal>
+              </test>
+              <let>
+                <clip pos="1" side="tl" part="nbr"/>
+                <lit-tag v="pl"/>
+              </let>
+            </when>
+            <otherwise>
+              <let>
+                <clip pos="1" side="tl" part="nbr"/>
+                <lit-tag v="sg"/>
+              </let>
+            </otherwise>
+          </choose>
+        </when>
+      </choose>
+    </def-macro>
 
-<def-macro n="f_concord2" npar="2">
-	<choose>
-		<when>
-			<test> <!-- do the main and second parameter gender agree?-->
-				<and>
-					<or>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</or>
-					<or>
-						<equal> <!-- do the main and second parameter number agree?-->
-							<clip pos="2" side="sl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-						<equal>
-							<clip pos="2" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</or>
-				</and>
-			</test>
-			<let><var n="concPrimero"/><lit v="true"/></let><!-- there is gender and number agreement-->
-		</when>
-		<otherwise> 
-			<let><var n="concPrimero"/><lit v="false"/></let><!-- there isn't gender and number agreement-->
-		</otherwise>
-	</choose>
-	
-	<choose>
-		<when>
-			<test> <!-- Propagate the main parameter gender if it has been modified during the translation  -->
-				<and>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<lit-tag v="GD"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="2" side="tl" part="gen"/>
-									<lit-tag v="mf"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="2" side="sl" part="gen"/>
-										<lit-tag v="mf"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="2" side="tl" part="gen"/>
-											<lit-tag v="GD"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concPrimero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>                              
-					<let>
-						<clip pos="2" side="tl" part="gen"/>
-						<clip pos="1" side="tl" part="gen"/> 
-					</let>
-				</when>
-			</choose>
-		</when>
-	</choose>  
-	<choose>
-		<when>
-			<test> <!-- Propagate the main parameter number if it has been modified during the translation  -->
-				<and>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<lit-tag v="ND"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="2" side="tl" part="nbr"/>
-									<lit-tag v="sp"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="2" side="sl" part="nbr"/>
-										<lit-tag v="sp"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="2" side="tl" part="nbr"/>
-											<lit-tag v="ND"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concPrimero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="2" side="tl" part="nbr"/>
-						<clip pos="1" side="tl" part="nbr"/> 
-					</let>
-				</when>
-			</choose>
-		</when>
-	</choose>
-	
-	<choose>
-		<when>
-			<test> <!-- Which is the rule general gender? -->
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="1" side="tl" part="gen"/>
-						<lit-tag v="mf"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="genero"/>
-				<clip pos="1" side="sl" part="gen"/> 
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="2" side="tl" part="gen"/>
-						<lit-tag v="mf"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="genero"/>
-				<clip pos="2" side="sl" part="gen"/> 
-			</let>
-		</when>
-		<otherwise>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</otherwise>
-	</choose>
-	
-	
-	
-	<choose>
-		<when><!-- Which is the rule general number? -->
-			<test> 
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="1" side="tl" part="nbr"/>
-						<lit-tag v="sp"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="numero"/>
-				<clip pos="1" side="sl" part="nbr"/> 
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="2" side="tl" part="nbr"/>
-						<lit-tag v="sp"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="2" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="numero"/>
-				<clip pos="2" side="sl" part="nbr"/> 
-			</let>
-		</when>
-		<otherwise>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</otherwise>
-	</choose>
-	
-	<choose> <!-- Determine gender and number value if they are undetermined -->
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="1" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="2" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="1" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="2" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>
-</def-macro>
+    <def-macro n="f_concord2" npar="2">
+      <choose>
+        <when>
+          <test>
+<!-- do the main and second parameter gender agree?-->
+            <and>
+              <or>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </or>
+              <or>
+                <equal>
+<!-- do the main and second parameter number agree?-->
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+                <equal>
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </or>
+            </and>
+          </test>
+          <let>
+            <var n="concPrimero"/>
+            <lit v="true"/>
+          </let>
+<!-- there is gender and number agreement-->
+        </when>
+        <otherwise>
+          <let>
+            <var n="concPrimero"/>
+            <lit v="false"/>
+          </let>
+<!-- there isn't gender and number agreement-->
+        </otherwise>
+      </choose>
+      <choose>
+        <when>
+          <test>
+<!-- Propagate the main parameter gender if it has been modified during the translation  -->
+            <and>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <lit-tag v="GD"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="2" side="tl" part="gen"/>
+                      <lit-tag v="mf"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="2" side="sl" part="gen"/>
+                        <lit-tag v="mf"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="2" side="tl" part="gen"/>
+                          <lit-tag v="GD"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concPrimero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="2" side="tl" part="gen"/>
+                <clip pos="1" side="tl" part="gen"/>
+              </let>
+            </when>
+          </choose>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+<!-- Propagate the main parameter number if it has been modified during the translation  -->
+            <and>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <lit-tag v="ND"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="2" side="tl" part="nbr"/>
+                      <lit-tag v="sp"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="2" side="sl" part="nbr"/>
+                        <lit-tag v="sp"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="2" side="tl" part="nbr"/>
+                          <lit-tag v="ND"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concPrimero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="2" side="tl" part="nbr"/>
+                <clip pos="1" side="tl" part="nbr"/>
+              </let>
+            </when>
+          </choose>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+<!-- Which is the rule general gender? -->
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="1" side="tl" part="gen"/>
+                <lit-tag v="mf"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="genero"/>
+            <clip pos="1" side="sl" part="gen"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="2" side="tl" part="gen"/>
+                <lit-tag v="mf"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="genero"/>
+            <clip pos="2" side="sl" part="gen"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+        <when>
+<!-- Which is the rule general number? -->
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
 
-<def-macro n="f_concord3" npar="3"> 
-	<choose><!-- Look if in source language there is concordance between first and second element -->
-		<when>
-			<test> 
-				<and>
-					<or>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</or>
-					<or>
-						<equal>
-							<clip pos="2" side="sl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-						<equal>
-							<clip pos="2" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</or>
-				</and>
-			</test>
-			<let><var n="concPrimero"/><lit v="true"/></let>
-		</when>
-		<otherwise> 
-			<let><var n="concPrimero"/><lit v="false"/></let>
-		</otherwise>
-	</choose>
-	<choose><!-- Look if in source language there is concordance between second and third element -->
-		<when>
-			<test> 
-				<and>
-					<or>
-						<equal>
-							<clip pos="3" side="sl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-						<equal>
-							<clip pos="3" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</or>
-					<or>
-						<equal>
-							<clip pos="3" side="sl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-						<equal>
-							<clip pos="3" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</or>
-				</and>
-			</test>
-			<let><var n="concSegundo"/><lit v="true"/></let>
-		</when>	 
-		<otherwise> 
-			<let><var n="concSegundo"/><lit v="false"/></let>
-		</otherwise>
-	</choose>
-	
-	
-	<choose><!-- Propagate the main parameter gender if it has been modified during the translation -->
-		<when>
-			<test> 
-				<and>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<lit-tag v="GD"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="2" side="tl" part="gen"/>
-									<lit-tag v="mf"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="2" side="sl" part="gen"/>
-										<lit-tag v="mf"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="2" side="tl" part="gen"/>
-											<lit-tag v="GD"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concPrimero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="2" side="tl" part="gen"/>
-						<clip pos="1" side="tl" part="gen"/> 
-					</let>
-				</when> 
-			</choose>   
-			<choose>
-				<when>
-					<test> 
-						<and>
-							<not>
-								<equal>
-									<clip pos="3" side="tl" part="gen"/>
-									<lit-tag v="mf"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="3" side="sl" part="gen"/>
-										<lit-tag v="mf"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="3" side="tl" part="gen"/>
-											<lit-tag v="GD"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concSegundo"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="3" side="tl" part="gen"/>
-						<clip pos="1" side="tl" part="gen"/> 
-					</let> 
-				</when> 
-			</choose>
-		</when>
-	</choose>
-	
-	<choose><!-- Propagate the main parameter number if it has been modified during the translation -->
-		<when>
-			<test> 
-				<and>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<lit-tag v="ND"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="2" side="tl" part="nbr"/>
-									<lit-tag v="sp"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="2" side="sl" part="nbr"/>
-										<lit-tag v="sp"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="2" side="tl" part="nbr"/>
-											<lit-tag v="ND"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concPrimero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="2" side="tl" part="nbr"/>
-						<clip pos="1" side="tl" part="nbr"/> 
-					</let>
-				</when>
-			</choose>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="3" side="tl" part="nbr"/>
-									<lit-tag v="sp"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="3" side="sl" part="nbr"/>
-										<lit-tag v="sp"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="3" side="tl" part="nbr"/>
-											<lit-tag v="ND"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concSegundo"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="3" side="tl" part="nbr"/>
-						<clip pos="1" side="tl" part="nbr"/> 
-					</let>
-				</when>
-			</choose>
-		</when>
-	</choose>
-	
-	
-	
-	<choose> <!-- Determine the rule general gender. Priority order: main, second and third element -->
-		<when>
-			<test> 
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when> 
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="1" side="tl" part="gen"/>
-						<lit-tag v="mf"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="genero"/>
-				<clip pos="1" side="sl" part="gen"/> 
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="2" side="tl" part="gen"/>
-						<lit-tag v="mf"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="genero"/>
-				<clip pos="2" side="sl" part="gen"/> 
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="3" side="tl" part="gen"/>
-						<lit-tag v="mf"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="3" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="genero"/>
-				<clip pos="3" side="sl" part="gen"/> 
-			</let>
-		</when>               
-		<otherwise>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</otherwise>
-	</choose>
-	
-	<choose><!-- Determine the rule general number. Priority order: main, second and third element -->
-		<when>
-			<test> 
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>     
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="1" side="tl" part="nbr"/>
-						<lit-tag v="sp"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="numero"/>
-				<clip pos="1" side="sl" part="nbr"/> 
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="2" side="tl" part="nbr"/>
-						<lit-tag v="sp"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="2" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="numero"/>
-				<clip pos="2" side="sl" part="nbr"/> 
-			</let>
-		</when>
-		<when>
-			<test>
-				<and>
-					<equal>
-						<clip pos="3" side="tl" part="nbr"/>
-						<lit-tag v="sp"/>
-					</equal>
-					<not>
-						<equal>
-							<clip pos="3" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<let>
-				<var n="numero"/>
-				<clip pos="3" side="sl" part="nbr"/> 
-			</let>
-		</when>
-		<otherwise>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</otherwise>
-	</choose>
-	
-	<choose> <!-- Assign values to GD and ND -->
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="1" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="2" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="3" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="1" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="2" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="3" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>      
-</def-macro>     
-
-<def-macro n="f_concord4" npar="4">
-	<choose>
-		<when>
-			<test> 
-				<and>
-					<or>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-						<equal>
-							<clip pos="2" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</or>
-					<or>
-						<equal>
-							<clip pos="2" side="sl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-						<equal>
-							<clip pos="2" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</or>
-				</and>
-			</test>
-			<let><var n="concPrimero"/><lit v="true"/></let>
-		</when>
-		<otherwise> 
-			<let><var n="concPrimero"/><lit v="false"/></let>
-		</otherwise>
-	</choose>
-	
-	<choose>
-		<when>
-			<test> 
-				<and>
-					<or>
-						<equal>
-							<clip pos="3" side="sl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-						<equal>
-							<clip pos="3" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</or>
-					<or>
-						<equal>
-							<clip pos="3" side="sl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-						<equal>
-							<clip pos="3" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</or>
-				</and>
-			</test>
-			<let><var n="concSegundo"/><lit v="true"/></let>
-		</when>	 
-		<otherwise>
-			<let><var n="concSegundo"/><lit v="false"/></let>
-		</otherwise>
-	</choose>
-	
-	<choose>
-		<when>
-			<test> 
-				<and>
-					<or>
-						<equal>
-							<clip pos="4" side="sl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-						<equal>
-							<clip pos="4" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</or>
-					<or>
-						<equal>
-							<clip pos="4" side="sl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-						<equal>
-							<clip pos="4" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-						<equal>
-							<clip pos="1" side="sl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</or>
-				</and>
-			</test>
-			<let><var n="concTercero"/><lit v="true"/></let>
-		</when>	 
-		<otherwise> 
-			<let><var n="concTercero"/><lit v="false"/></let>
-		</otherwise>
-	</choose>
-	
-	
-	<choose>
-		<when>
-			<test> 
-				<and>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<clip pos="1" side="sl" part="gen"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<lit-tag v="mf"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="gen"/>
-							<lit-tag v="GD"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="2" side="tl" part="gen"/>
-									<lit-tag v="mf"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="2" side="sl" part="gen"/>
-										<lit-tag v="mf"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="2" side="tl" part="gen"/>
-											<lit-tag v="GD"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concPrimero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="2" side="tl" part="gen"/>
-						<clip pos="1" side="tl" part="gen"/> 
-					</let>
-				</when> 
-			</choose>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="3" side="tl" part="gen"/>
-									<lit-tag v="mf"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="3" side="sl" part="gen"/>
-										<lit-tag v="mf"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="3" side="tl" part="gen"/>
-											<lit-tag v="GD"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concSegundo"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="3" side="tl" part="gen"/>
-						<clip pos="1" side="tl" part="gen"/> 
-					</let>
-				</when> 
-			</choose>  
-			<choose>
-				<when>
-					<test>  
-						<and>
-							<not>
-								<equal>
-									<clip pos="4" side="tl" part="gen"/>
-									<lit-tag v="mf"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="4" side="sl" part="gen"/>
-										<lit-tag v="mf"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="4" side="tl" part="gen"/>
-											<lit-tag v="GD"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concTercero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="4" side="tl" part="gen"/>
-						<clip pos="1" side="tl" part="gen"/> 
-					</let> 
-				</when> 
-			</choose>
-		</when>
-	</choose>
-	
-	<choose>
-		<when>
-			<test> 
-				<and>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<clip pos="1" side="sl" part="nbr"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<lit-tag v="sp"/>
-						</equal>
-					</not>
-					<not>
-						<equal>
-							<clip pos="1" side="tl" part="nbr"/>
-							<lit-tag v="ND"/>
-						</equal>
-					</not>
-				</and>
-			</test>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="2" side="tl" part="nbr"/>
-									<lit-tag v="sp"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="2" side="sl" part="nbr"/>
-										<lit-tag v="sp"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="2" side="tl" part="nbr"/>
-											<lit-tag v="ND"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concPrimero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="2" side="tl" part="nbr"/>
-						<clip pos="1" side="tl" part="nbr"/> 
-					</let>
-				</when>
-			</choose>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="3" side="tl" part="nbr"/>
-									<lit-tag v="sp"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="3" side="sl" part="nbr"/>
-										<lit-tag v="sp"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="3" side="tl" part="nbr"/>
-											<lit-tag v="ND"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concSegundo"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="3" side="tl" part="nbr"/>
-						<clip pos="1" side="tl" part="nbr"/> 
-					</let>
-				</when>
-			</choose>
-			<choose>
-				<when>
-					<test>
-						<and>
-							<not>
-								<equal>
-									<clip pos="4" side="tl" part="nbr"/>
-									<lit-tag v="sp"/>
-								</equal>
-							</not>
-							<not>
-								<and>
-									<equal>
-										<clip pos="4" side="sl" part="nbr"/>
-										<lit-tag v="sp"/>
-									</equal>
-									<not>
-										<equal>
-											<clip pos="4" side="tl" part="nbr"/>
-											<lit-tag v="ND"/>
-										</equal>
-									</not>
-								</and>
-							</not>
-							<equal>
-								<var n="concTercero"/>
-								<lit v="true"/>
-							</equal>
-						</and>
-					</test>
-					<let>
-						<clip pos="4" side="tl" part="nbr"/>
-						<clip pos="1" side="tl" part="nbr"/> 
-					</let>
-				</when>
-			</choose>
-		</when>
-	</choose>
-	
-	<choose>
-		<when>
-			<test> 
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when> 
-		<when>
-			<test>
-				<equal>
-					<clip pos="4" side="tl" part="gen"/>
-					<lit-tag v="m"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="4" side="tl" part="gen"/>
-					<lit-tag v="f"/>
-				</equal>
-			</test>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="f"/>
-			</let>
-		</when>
-		<otherwise>
-			<let>
-				<var n="genero"/>
-				<lit-tag v="m"/>
-			</let>
-		</otherwise>
-		
-	</choose>
-	
-	<choose>
-		<when>
-			<test> 
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="4" side="tl" part="nbr"/>
-					<lit-tag v="sg"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</when>
-		<when>
-			<test>
-				<equal>
-					<clip pos="4" side="tl" part="nbr"/>
-					<lit-tag v="pl"/>
-				</equal>
-			</test>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="pl"/>
-			</let>
-		</when> 
-		<otherwise>
-			<let>
-				<var n="numero"/>
-				<lit-tag v="sg"/>
-			</let>
-		</otherwise>
-	</choose>
-	
-	<choose> 
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="1" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="2" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="3" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="4" side="tl" part="gen"/>
-					<lit-tag v="GD"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="4" side="tl" part="gen"/>
-				<var n="genero"/>
-			</let>
-		</when> 
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="1" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="1" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="2" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="2" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="3" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="3" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>
-	<choose>
-		<when>
-			<test>
-				<equal>
-					<clip pos="4" side="tl" part="nbr"/>
-					<lit-tag v="ND"/>
-				</equal>
-			</test>
-			<let>
-				<clip pos="4" side="tl" part="nbr"/>
-				<var n="numero"/>
-			</let>
-		</when>
-	</choose>      
-</def-macro>      
+        <when>
+          <test>
+            <and>
+            <equal>
+              <clip pos="2" side="tl" part="a_num"/>
+              <lit-tag v="num"/>
+            </equal>
+            <not>
+            <equal>
+              <clip pos="2" side="tl" part="lem"/>
+              <lit v="1"/>
+            </equal>
+            </not>
+            </and>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="1" side="tl" part="nbr"/>
+                <lit-tag v="sp"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="numero"/>
+            <clip pos="1" side="sl" part="nbr"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="2" side="tl" part="nbr"/>
+                <lit-tag v="sp"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="numero"/>
+            <clip pos="2" side="sl" part="nbr"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+<!-- Determine gender and number value if they are undetermined -->
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="1" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="2" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="1" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="2" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+    </def-macro>
+
+    <def-macro n="f_concord3" npar="3">
+      <choose>
+<!-- Look if in source language there is concordance between first and second element -->
+        <when>
+          <test>
+            <and>
+              <or>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </or>
+              <or>
+                <equal>
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+                <equal>
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </or>
+            </and>
+          </test>
+          <let>
+            <var n="concPrimero"/>
+            <lit v="true"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="concPrimero"/>
+            <lit v="false"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+<!-- Look if in source language there is concordance between second and third element -->
+        <when>
+          <test>
+            <and>
+              <or>
+                <equal>
+                  <clip pos="3" side="sl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+                <equal>
+                  <clip pos="3" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </or>
+              <or>
+                <equal>
+                  <clip pos="3" side="sl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+                <equal>
+                  <clip pos="3" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </or>
+            </and>
+          </test>
+          <let>
+            <var n="concSegundo"/>
+            <lit v="true"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="concSegundo"/>
+            <lit v="false"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+<!-- Propagate the main parameter gender if it has been modified during the translation -->
+        <when>
+          <test>
+            <and>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <lit-tag v="GD"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="2" side="tl" part="gen"/>
+                      <lit-tag v="mf"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="2" side="sl" part="gen"/>
+                        <lit-tag v="mf"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="2" side="tl" part="gen"/>
+                          <lit-tag v="GD"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concPrimero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="2" side="tl" part="gen"/>
+                <clip pos="1" side="tl" part="gen"/>
+              </let>
+            </when>
+          </choose>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="3" side="tl" part="gen"/>
+                      <lit-tag v="mf"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="3" side="sl" part="gen"/>
+                        <lit-tag v="mf"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="3" side="tl" part="gen"/>
+                          <lit-tag v="GD"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concSegundo"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="3" side="tl" part="gen"/>
+                <clip pos="1" side="tl" part="gen"/>
+              </let>
+            </when>
+          </choose>
+        </when>
+      </choose>
+      <choose>
+<!-- Propagate the main parameter number if it has been modified during the translation -->
+        <when>
+          <test>
+            <and>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <lit-tag v="ND"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="2" side="tl" part="nbr"/>
+                      <lit-tag v="sp"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="2" side="sl" part="nbr"/>
+                        <lit-tag v="sp"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="2" side="tl" part="nbr"/>
+                          <lit-tag v="ND"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concPrimero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="2" side="tl" part="nbr"/>
+                <clip pos="1" side="tl" part="nbr"/>
+              </let>
+            </when>
+          </choose>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="3" side="tl" part="nbr"/>
+                      <lit-tag v="sp"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="3" side="sl" part="nbr"/>
+                        <lit-tag v="sp"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="3" side="tl" part="nbr"/>
+                          <lit-tag v="ND"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concSegundo"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="3" side="tl" part="nbr"/>
+                <clip pos="1" side="tl" part="nbr"/>
+              </let>
+            </when>
+          </choose>
+        </when>
+      </choose>
+      <choose>
+<!-- Determine the rule general gender. Priority order: main, second and third element -->
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="1" side="tl" part="gen"/>
+                <lit-tag v="mf"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="genero"/>
+            <clip pos="1" side="sl" part="gen"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="2" side="tl" part="gen"/>
+                <lit-tag v="mf"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="genero"/>
+            <clip pos="2" side="sl" part="gen"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="3" side="tl" part="gen"/>
+                <lit-tag v="mf"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="3" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="genero"/>
+            <clip pos="3" side="sl" part="gen"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+<!-- Determine the rule general number. Priority order: main, second and third element -->
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="1" side="tl" part="nbr"/>
+                <lit-tag v="sp"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="numero"/>
+            <clip pos="1" side="sl" part="nbr"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="2" side="tl" part="nbr"/>
+                <lit-tag v="sp"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="numero"/>
+            <clip pos="2" side="sl" part="nbr"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal>
+                <clip pos="3" side="tl" part="nbr"/>
+                <lit-tag v="sp"/>
+              </equal>
+              <not>
+                <equal>
+                  <clip pos="3" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <let>
+            <var n="numero"/>
+            <clip pos="3" side="sl" part="nbr"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+<!-- Assign values to GD and ND -->
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="1" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="2" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="3" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="1" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="2" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="3" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+    </def-macro>
+
+    <def-macro n="f_concord4" npar="4">
+      <choose>
+        <when>
+          <test>
+            <and>
+              <or>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+                <equal>
+                  <clip pos="2" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </or>
+              <or>
+                <equal>
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+                <equal>
+                  <clip pos="2" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </or>
+            </and>
+          </test>
+          <let>
+            <var n="concPrimero"/>
+            <lit v="true"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="concPrimero"/>
+            <lit v="false"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <and>
+              <or>
+                <equal>
+                  <clip pos="3" side="sl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+                <equal>
+                  <clip pos="3" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </or>
+              <or>
+                <equal>
+                  <clip pos="3" side="sl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+                <equal>
+                  <clip pos="3" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </or>
+            </and>
+          </test>
+          <let>
+            <var n="concSegundo"/>
+            <lit v="true"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="concSegundo"/>
+            <lit v="false"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <and>
+              <or>
+                <equal>
+                  <clip pos="4" side="sl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+                <equal>
+                  <clip pos="4" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </or>
+              <or>
+                <equal>
+                  <clip pos="4" side="sl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+                <equal>
+                  <clip pos="4" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+                <equal>
+                  <clip pos="1" side="sl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </or>
+            </and>
+          </test>
+          <let>
+            <var n="concTercero"/>
+            <lit v="true"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="concTercero"/>
+            <lit v="false"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <and>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <clip pos="1" side="sl" part="gen"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <lit-tag v="mf"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="gen"/>
+                  <lit-tag v="GD"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="2" side="tl" part="gen"/>
+                      <lit-tag v="mf"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="2" side="sl" part="gen"/>
+                        <lit-tag v="mf"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="2" side="tl" part="gen"/>
+                          <lit-tag v="GD"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concPrimero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="2" side="tl" part="gen"/>
+                <clip pos="1" side="tl" part="gen"/>
+              </let>
+            </when>
+          </choose>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="3" side="tl" part="gen"/>
+                      <lit-tag v="mf"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="3" side="sl" part="gen"/>
+                        <lit-tag v="mf"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="3" side="tl" part="gen"/>
+                          <lit-tag v="GD"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concSegundo"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="3" side="tl" part="gen"/>
+                <clip pos="1" side="tl" part="gen"/>
+              </let>
+            </when>
+          </choose>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="4" side="tl" part="gen"/>
+                      <lit-tag v="mf"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="4" side="sl" part="gen"/>
+                        <lit-tag v="mf"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="4" side="tl" part="gen"/>
+                          <lit-tag v="GD"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concTercero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="4" side="tl" part="gen"/>
+                <clip pos="1" side="tl" part="gen"/>
+              </let>
+            </when>
+          </choose>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <and>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <clip pos="1" side="sl" part="nbr"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <lit-tag v="sp"/>
+                </equal>
+              </not>
+              <not>
+                <equal>
+                  <clip pos="1" side="tl" part="nbr"/>
+                  <lit-tag v="ND"/>
+                </equal>
+              </not>
+            </and>
+          </test>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="2" side="tl" part="nbr"/>
+                      <lit-tag v="sp"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="2" side="sl" part="nbr"/>
+                        <lit-tag v="sp"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="2" side="tl" part="nbr"/>
+                          <lit-tag v="ND"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concPrimero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="2" side="tl" part="nbr"/>
+                <clip pos="1" side="tl" part="nbr"/>
+              </let>
+            </when>
+          </choose>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="3" side="tl" part="nbr"/>
+                      <lit-tag v="sp"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="3" side="sl" part="nbr"/>
+                        <lit-tag v="sp"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="3" side="tl" part="nbr"/>
+                          <lit-tag v="ND"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concSegundo"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="3" side="tl" part="nbr"/>
+                <clip pos="1" side="tl" part="nbr"/>
+              </let>
+            </when>
+          </choose>
+          <choose>
+            <when>
+              <test>
+                <and>
+                  <not>
+                    <equal>
+                      <clip pos="4" side="tl" part="nbr"/>
+                      <lit-tag v="sp"/>
+                    </equal>
+                  </not>
+                  <not>
+                    <and>
+                      <equal>
+                        <clip pos="4" side="sl" part="nbr"/>
+                        <lit-tag v="sp"/>
+                      </equal>
+                      <not>
+                        <equal>
+                          <clip pos="4" side="tl" part="nbr"/>
+                          <lit-tag v="ND"/>
+                        </equal>
+                      </not>
+                    </and>
+                  </not>
+                  <equal>
+                    <var n="concTercero"/>
+                    <lit v="true"/>
+                  </equal>
+                </and>
+              </test>
+              <let>
+                <clip pos="4" side="tl" part="nbr"/>
+                <clip pos="1" side="tl" part="nbr"/>
+              </let>
+            </when>
+          </choose>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="4" side="tl" part="gen"/>
+              <lit-tag v="m"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="4" side="tl" part="gen"/>
+              <lit-tag v="f"/>
+            </equal>
+          </test>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="f"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="genero"/>
+            <lit-tag v="m"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="4" side="tl" part="nbr"/>
+              <lit-tag v="sg"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </when>
+        <when>
+          <test>
+            <equal>
+              <clip pos="4" side="tl" part="nbr"/>
+              <lit-tag v="pl"/>
+            </equal>
+          </test>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="pl"/>
+          </let>
+        </when>
+        <otherwise>
+          <let>
+            <var n="numero"/>
+            <lit-tag v="sg"/>
+          </let>
+        </otherwise>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="1" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="2" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="3" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="4" side="tl" part="gen"/>
+              <lit-tag v="GD"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="4" side="tl" part="gen"/>
+            <var n="genero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="1" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="1" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="2" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="2" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="3" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="3" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+      <choose>
+        <when>
+          <test>
+            <equal>
+              <clip pos="4" side="tl" part="nbr"/>
+              <lit-tag v="ND"/>
+            </equal>
+          </test>
+          <let>
+            <clip pos="4" side="tl" part="nbr"/>
+            <var n="numero"/>
+          </let>
+        </when>
+      </choose>
+    </def-macro>
 
 <def-macro n="f_comparativa" npar="1">
 	<choose>