Wikcionario:Café

<mediawiki xmlns="http://www.mediawiki.org/xml/export-0.11/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.mediawiki.org/xml/export-0.11/ http://www.mediawiki.org/xml/export-0.11.xsd" version="0.11" xml:lang="es">
  <siteinfo>
    <sitename>Wikcionario</sitename>
    <dbname>eswiktionary</dbname>
    <base>https://es.wiktionary.org/wiki/Wikcionario:Portada</base>
    <generator>MediaWiki 1.47.0-wmf.12</generator>
    <case>case-sensitive</case>
    <namespaces>
      <namespace key="-2" case="case-sensitive">Medio</namespace>
      <namespace key="-1" case="first-letter">Especial</namespace>
      <namespace key="0" case="case-sensitive" />
      <namespace key="1" case="case-sensitive">Discusión</namespace>
      <namespace key="2" case="first-letter">Usuario</namespace>
      <namespace key="3" case="first-letter">Usuario discusión</namespace>
      <namespace key="4" case="case-sensitive">Wikcionario</namespace>
      <namespace key="5" case="case-sensitive">Wikcionario discusión</namespace>
      <namespace key="6" case="case-sensitive">Archivo</namespace>
      <namespace key="7" case="case-sensitive">Archivo discusión</namespace>
      <namespace key="8" case="first-letter">MediaWiki</namespace>
      <namespace key="9" case="first-letter">MediaWiki discusión</namespace>
      <namespace key="10" case="case-sensitive">Plantilla</namespace>
      <namespace key="11" case="case-sensitive">Plantilla discusión</namespace>
      <namespace key="12" case="case-sensitive">Ayuda</namespace>
      <namespace key="13" case="case-sensitive">Ayuda discusión</namespace>
      <namespace key="14" case="case-sensitive">Categoría</namespace>
      <namespace key="15" case="case-sensitive">Categoría discusión</namespace>
      <namespace key="100" case="case-sensitive">Apéndice</namespace>
      <namespace key="101" case="case-sensitive">Apéndice Discusión</namespace>
      <namespace key="110" case="case-sensitive">Tesauro</namespace>
      <namespace key="111" case="case-sensitive">Tesauro discusión</namespace>
      <namespace key="710" case="case-sensitive">TimedText</namespace>
      <namespace key="711" case="case-sensitive">TimedText talk</namespace>
      <namespace key="828" case="case-sensitive">Módulo</namespace>
      <namespace key="829" case="case-sensitive">Módulo discusión</namespace>
      <namespace key="1728" case="case-sensitive">Evento</namespace>
      <namespace key="1729" case="case-sensitive">Evento discusión</namespace>
    </namespaces>
  </siteinfo>
  <page>
    <title>Wikcionario:Café</title>
    <ns>4</ns>
    <id>1313</id>
    <revision>
      <id>6123396</id>
      <parentid>6123310</parentid>
      <timestamp>2026-07-24T12:25:26Z</timestamp>
      <contributor>
        <username>MediaWiki message delivery</username>
        <id>53277</id>
      </contributor>
      <comment>Sección nueva: /* Request for comment (the future of Abstract Wikipedia) */</comment>
      <origin>6123396</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="27986" sha1="si88td5n9z7s7iyz3mdvjtce98rxvlr" xml:space="preserve">&lt;!-- Inicio Encabezado del café, aviso, información histórica y información de archivado --&gt;
&lt;div style=&quot;text-align: center;&quot;&gt;
{{/Aviso}}
{{/Histórico}}
&lt;/div&gt;
{{atajo|WN:C}}
{{Archivo}}
&lt;!-- Fin del Encabezado del café --&gt;
&lt;!-- Inicio configuración robot archivado; no tocar si no se sabe lo que se hace --&gt;
{{Usuario:MABot/config
|archive = Wikcionario:Café/%(year)d %(month)02d
|algo = old(30d)
|counter = 1
|archiveheader = {{Archivo}}
}}

&lt;h1&gt;{{MONTHNAME|{{PREVIOUSMONTH}}}} de {{PREVIOUSMONTH.YEAR}}&lt;/h1&gt;

&lt;div class=&quot;mw-archivedtalk&quot;&gt;
{{/{{PREVIOUSMONTH.YEAR}} {{PREVIOUSMONTH}}}}
&lt;/div&gt; 

&lt;h1&gt;Actual&lt;/h1&gt;

== Incorporación del enlace «Contactos legales y de seguridad» en el pie de página de vuestra wiki ==

&lt;section begin=&quot;Message&quot;/&gt;
'''Contactos legales y de seguridad'''

Hola a toda la comunidad: la Fundación Wikimedia ha puesto a vuestra disposición una [[wmf:Special:MyLanguage/Legal:Wikimedia Foundation Legal and Safety Contact Information|página única de contacto sobre cuestiones legales y de seguridad]], que debéis incluir en el pie de página de vuestra wiki para garantizar el acceso a información jurídica precisa. Se trata de un requisito normativo. Ya hemos implementado enlaces a las wikis en inglés, alemán, italiano, español y otros idiomas de Wikipedia, y pronto los implementaremos en vuestra wiki. [[m:Special:MyLanguage/Wikimedia_Foundation_Legal_and_Safety_Contacts_FAQ|Por favor, leed más información en la página del proyecto]] y dejad vuestros comentarios en este hilo o en la [[m:Special:MyLanguage/Talk:Wikimedia Foundation Legal and Safety Contacts FAQ|página de discusión]].

&lt;section end=&quot;Message&quot;/&gt;

-- [[User:Sannita (WMF)|User:Sannita (WMF)]] ([[User talk:Sannita (WMF)|talk]]) 13:31 25 jun 2026 (UTC)
&lt;!-- Mensaje enviado por Usuario:Sannita (WMF)@metawiki mediante la lista en https://meta.wikimedia.org/w/index.php?title=User:Sannita_(WMF)/Mass_sending_test&amp;oldid=30731267 --&gt;

== Eliminar &quot;Excepto Australia&quot; ==

Estimados: Cuando comencé a agregar las transcripciones AFI para Australia pensé que era una buena idea crear &quot;excepto Australia&quot; (190 apariciones) lo que anduvo bien un par de años, pero cuando comencé a agregar las de Nueva Zelanda quedaron obsoletas. Por esa razón, sería aconsejable que un bot reemplazara la PRIMERA aparición de &quot;excepto Australia&quot; por &quot;Received Pronunciation, General American, Canadá&quot;. Una vez efectuado lo anterior, me encargaré de corregir la siguiente aparición. Saludos cordiales. [[Usuario:Adelpine|Adelpine]] ([[Usuario discusión:Adelpine|discusión]]) 01:13 26 jun 2026 (UTC)

:Hola, @[[Usuario:Adelpine|Adelpine]]. Hecho: [//es.wiktionary.org/w/index.php?title=Especial%3AContribuciones&amp;target=PBbot&amp;namespace=0&amp;tagfilter=&amp;start=2026-06-27&amp;end=2026-06-27&amp;limit=250 contribuciones del bot], [//es.wiktionary.org/w/index.php?limit=250&amp;search=insource%3A%22excepto+Australia%22&amp;title=Especial:Buscar&amp;profile=default&amp;ns0=1 apariciones restantes]. Un saludo, [[Usuario:Peter Bowman|Peter Bowman]] ([[Usuario discusión:Peter Bowman|discusión]]) 10:01 27 jun 2026 (UTC)

== Brawlio ==

Hola, llevo hace un par de días revirtiendo ediciones de este usuario que, si bien no son vandalismo, parecen claros casos de '''impericia'''. Dejo algunos ejemplos:
* [[scout]]: agrega ''cernir'' como sinónimo, pero (el DLE lo redirige a ''cerner''), viendo cerner la definición parece más bien algo pasivo, mientras que ''scout'' sería algo más activo. Es cierto que el DLE pone una acepción regional extra en ''cernir'' pero queremos agregar regionalismos en las traducciones?
* [[seek]]: lo traduce por ''catear''. Aunque no tiene traducción directa, el término estaría más cerca de ''desear'' o ''anhelar'', por lo que de nuevo no podría ser.
* [[tip]]: lo traduce por ''herrón'', y pone que es sinónimo a secas de [[punta]]
* [[although]]: agrega [[si que]], no sé a qué se refiere.
* [[barely]]: agrega [[no bien]], pero esta última expresión equivale a [[recién]], de ahí que se confunda con [[escasamente]].
* [[mess]]: agrega [[quilombo]] que no está mal, pero otra vez: necesitamos regionalismos en las traducciones?

[[Usuario:Brawlio|Brawlio]], como preveo que nos darás más trabajo de cara al futuro, sugiero que te abstengas de seguir haciendo este tipo de ediciones. Hay una lista gigante con un montón de otras tareas que podés hacer si tanto te interesa el proyecto. Y a los moderadores sugiero que tomen cartas en el asunto. No tenemos ninguna política contra la impericia actualmente, pero si sirve, traigo a colación el caso de [[:en:Wiktionary:Tea_room/2025/June#Ungrammatical sentence examples by @JMGN|JMGN en en.wiktionary]] para que vean un extremo de adónde podría llegar la situación. El usuario cree tener un dominio del idioma mayor del que posee, en consecuencia, agrega y enlaza cualquier palabra con otra solamente porque remotamente vio algo como del estilo: A es sinónimo de B, B es sinónimo de C, por lo tanto A es sinónimo de C. En el proceso, se pierde de cualquier contexto acerca de cómo y cuándo se usa cada término y se genera información falsa causada por alucinaciones (similar a las de IA). De hecho, hay una solución muy fácil al problema que consiste en no deducir nada de las fuentes que veas, así no extrapolarás la información segura hacia terrenos equívocos. Después de esto, sugiero que en las políticas que tenemos en donde condenan el vandalismo, se condene también la impericia y la especulación, que de eso hay muy pocas leyes hasta ahora. [[Usuario:Tmagc|Tmagc]] ([[Usuario discusión:Tmagc|discusión]]) 03:41 26 jun 2026 (UTC)

:Nota aparte: Por ''impericia'' me refiero exclusivamente a aquella sobre el conocimiento acerca del contenido que se agrega. Quiero decir, aunque no exigimos certificados de nada para contribuir, sí creo que es posible darse cuenta en algunos cuando un usuario pretende saber más de un idioma de lo que conoce. [[Usuario:Tmagc|Tmagc]] ([[Usuario discusión:Tmagc|discusión]]) 03:53 26 jun 2026 (UTC)
::Hola. No veo que sea necesario elevar este asunto al Café, en primer lugar habría dirigido las observaciones anteriores a [[Usuario discusión:Brawlio]] (hace unos días contactaste con él, pero para un asunto diferente). Dicho esto, @[[User:Braulio|Braulio]], ¿comprendes lo que señala Tmagc? Un saludo, [[Usuario:Peter Bowman|Peter Bowman]] ([[Usuario discusión:Peter Bowman|discusión]]) 15:04 26 jun 2026 (UTC)
:::Perdón, corrijo el ping: @[[User:Brawlio|Brawlio]]. [[Usuario:Peter Bowman|Peter Bowman]] ([[Usuario discusión:Peter Bowman|discusión]]) 18:45 26 jun 2026 (UTC)
::::sí, creo entenderlo｡ [[Usuario:Brawlio|Brawlio]] ([[Usuario discusión:Brawlio|discusión]]) 20:16 26 jun 2026 (UTC)

== Clasificadores ==

Hola. Creo que nos hace falta crear la categoría gramatical de &quot;[[w:Clasificador (lingüística)|Clasificador]]&quot;, ya que este tipo de palabras se usa en varios idiomas como el japonés, mandarín y las lenguas mayas. [[Usuario:26agcp|26agcp]] ([[Usuario discusión:26agcp|discusión]]) 21:15 26 jun 2026 (UTC)

:@[[Usuario:26agcp|26agcp]] ahí creé la [[Plantilla:clasificador]]. Viste alguna entrada en donde fuera necesario utilizarla? [[Usuario:Tmagc|Tmagc]] ([[Usuario discusión:Tmagc|discusión]]) 22:23 26 jun 2026 (UTC)
::@[[Usuario:Tmagc|Tmagc]] Por ahora la usé en [[jaats]]. Solo que al crear la Categoría:YUA:Clasificadores el módulo no la reconoce. [[Usuario:26agcp|26agcp]] ([[Usuario discusión:26agcp|discusión]]) 00:24 27 jun 2026 (UTC)
:::@[[Usuario:26agcp|26agcp]] arreglado, gracias por mencionarlo [[Usuario:Tmagc|Tmagc]] ([[Usuario discusión:Tmagc|discusión]]) 00:57 27 jun 2026 (UTC)

== Noticias técnicas: 2026-27 ==

&lt;section begin=&quot;technews-2026-W27&quot;/&gt;&lt;div class=&quot;plainlinks&quot;&gt;
Las últimas '''[[m:Special:MyLanguage/Tech/News|noticias técnicas]]''' desde la comunidad técnica de Wikimedia. Por favor, comenta estos cambios con otros usuarios. No todos los cambios te afectarán. [[m:Special:MyLanguage/Tech/News/2026/27|Traducciones en varios idiomas]] están disponibles.

'''Actualizaciones para editores'''
* Como parte de los [[mw:Special:MyLanguage/Contributors/Account Creation Experiments|experimentos de Creación de Cuentas]], el equipo de Crecimiento probó agregar el icono de cuenta de usuario en el encabezado para usuarios no registrados, el cual es un acceso directo a las acciones de &quot;Crear una cuenta&quot; e &quot;Iniciar sesión&quot;. El experimento aumentó la creación de cuentas en un 20 % sin afectar negativamente la calidad de las ediciones o la tasa de ediciones constructivas. La característica se habilitará en todas las wikis de Fundación Wikimedia en la versión móvil durante la primera semana de julio. [https://phabricator.wikimedia.org/T428220]
* Después de un [[phab:T426248|experimento exitoso]], los usuarios registrados que no [[mw:Special:MyLanguage/Help:Email_confirmation|confirmaron su correo electrónico]] al crear la cuenta verán un mensaje que les pedirá finalizar el proceso. Esto ayudará a reducir el riesgo de que los usuarios pierdan el acceso a su cuenta y permitirá que las cuentas de correo electrónico sean más fiables. Esto forma parte del proyecto de [[mw:Special:MyLanguage/Product Safety and Integrity/Account Security|Seguridad de Cuentas]]. [https://phabricator.wikimedia.org/T428292]
* Una actualización en [[Special:Search|Buscar]] está refinando el comportamiento de &lt;bdi lang=&quot;zxx&quot; dir=&quot;ltr&quot;&gt;&lt;code&gt;&lt;nowiki&gt;-prefix:&lt;/nowiki&gt;&lt;/code&gt;&lt;/bdi&gt; cuando se utiliza para excluir resultados. Anteriormente, el uso de &lt;bdi lang=&quot;zxx&quot; dir=&quot;ltr&quot;&gt;&lt;code&gt;&lt;nowiki&gt;-prefix:&lt;/nowiki&gt;&lt;/code&gt;&lt;/bdi&gt; con negación podía ampliar involuntariamente los resultados de búsqueda al añadir los espacios de nombres incluidos en el alcance de la búsqueda, lo que generaba un comportamiento confuso para los usuarios que esperaban un filtro de exclusión directo. Con la actualización, &lt;bdi lang=&quot;zxx&quot; dir=&quot;ltr&quot;&gt;&lt;code&gt;&lt;nowiki&gt;-prefix:&lt;/nowiki&gt;&lt;/code&gt;&lt;/bdi&gt; ahora excluirá estrictamente los títulos de página coincidentes según lo previsto y podría mostrar una advertencia si el espacio de nombres correspondiente no se ha seleccionado explícitamente. Sin embargo, el comportamiento de &lt;bdi lang=&quot;zxx&quot; dir=&quot;ltr&quot;&gt;&lt;code&gt;&lt;nowiki&gt;prefix:&lt;/nowiki&gt;&lt;/code&gt;&lt;/bdi&gt; sin negación se mantiene sin cambios. [https://phabricator.wikimedia.org/T427443]
* [[File:Reload icon with two arrows.svg|12px|link=|class=skin-invert|Elemento recurrente]] Revisa las {{formatnum:33}} {{PLURAL:33|tarea enviada|tareas enviadas}} por la comunidad que fueron [[m:Special:MyLanguage/Tech/News/Recently resolved community tasks|resueltas la semana pasada]]. Por ejemplo, se solucionó un error por el cual los revisores que utilizaban la barra de herramientas de curación de páginas (Page Curation) no se suscribían automáticamente a las discusiones que iniciaban en las páginas de discusión. Ahora, los revisores recibirán notificaciones cuando alguien responda a esos hilos. [https://phabricator.wikimedia.org/T329346]

'''Actualizaciones para los colaboradores técnicos'''
* A partir del 29 de junio, las descargas automáticas desde el sitio web dumps.wikimedia.org estarán sujetas a la [[Foundation:Special:MyLanguage/Policy:Wikimedia Foundation User-Agent Policy|política de agentes de usuario]] (user-agent). Las solicitudes automáticas provenientes de un agente de usuario genérico o vacío serán bloqueadas. El acceso a los volcados mediante Wikimedia Cloud Services se mantendrá sin cambios. Esto forma parte del anuncio realizado en las [[m:Special:MyLanguage/Tech/News/2026/25|Noticias Técnicas 2026/25]].
* [[File:Reload icon with two arrows.svg|12px|link=|class=skin-invert|Elemento recurrente]] Actualizaciones detalladas de código de esta semana: [[mw:MediaWiki 1.47/wmf.9|MediaWiki]]

''Las '''[[m:Special:MyLanguage/Tech/News|Noticias Técnicas]]''' son preparadas por [[m:Special:MyLanguage/Tech/News/Writers|los escritores de Noticias Técnicas]] y publicadas con un [[m:Special:MyLanguage/User:MediaWiki message delivery|bot]]&amp;nbsp;• [[m:Special:MyLanguage/Tech/News#contribute|Colabore]]&amp;nbsp;• [[m:Special:MyLanguage/Tech/News/2026/27|traduzca]]&amp;nbsp;• [[m:Tech|obtenga ayuda]]&amp;nbsp;• [[m:Talk:Tech/News|denos su opinión]]&amp;nbsp;• [[m:Global message delivery/Targets/Tech ambassadors|suscríbase o cancele su suscripción]].''
&lt;/div&gt;&lt;section end=&quot;technews-2026-W27&quot;/&gt;

&lt;bdi lang=&quot;en&quot; dir=&quot;ltr&quot;&gt;[[User:MediaWiki message delivery|MediaWiki message delivery]]&lt;/bdi&gt; 11:48 29 jun 2026 (UTC)
&lt;!-- Mensaje enviado por Usuario:STei (WMF)@metawiki mediante la lista en https://meta.wikimedia.org/w/index.php?title=Global_message_delivery/Targets/Tech_ambassadors&amp;oldid=30744833 --&gt;

== Noticias técnicas: 2026-28 ==

&lt;section begin=&quot;technews-2026-W28&quot;/&gt;&lt;div class=&quot;plainlinks&quot;&gt;
Las últimas '''[[m:Special:MyLanguage/Tech/News|noticias técnicas]]''' desde la comunidad técnica de Wikimedia. Por favor, comenta estos cambios con otros usuarios. No todos los cambios te afectarán. [[m:Special:MyLanguage/Tech/News/2026/28|Traducciones en varios idiomas]] están disponibles.

'''Actualizaciones para editores'''
* [[File:Reload icon with two arrows.svg|12px|link=|class=skin-invert|Elemento recurrente]] Revisa las {{formatnum:34}} {{PLURAL:34|tarea enviada|tareas enviadas}} por la comunidad que fueron [[m:Special:MyLanguage/Tech/News/Recently resolved community tasks|resueltas la semana pasada]]. Por ejemplo, se solucionó un problema por el que los resultados en la barra de búsqueda de Wikidata se mostraban en inglés en lugar de usar el idioma correcto para los usuarios con variantes de idiomas. Las sugerencias de búsqueda ahora siguen la cadena de idiomas. [https://phabricator.wikimedia.org/T429769]

'''Actualizaciones para los colaboradores técnicos'''
* En preparación para [[m:Special:MyLanguage/Event:Celebrate Women|la campaña Celebrate Women]] planeada para marzo de 2027, el [[m:Special:MyLanguage/Wikimedia Foundation/Advancement/Community Growth/Content Enablement|equipo de Habilitación de Contenidos]] de la Fundación Wikimedia lanzó una encuesta de 22 preguntas para comprender mejor las contribuciones técnicas realizadas por mujeres+ (cualquier persona que se identifique como mujer) en los proyectos Wikimedia. La encuesta toma entre 15 y 20 minutos en ser contestada y se mantendrá abierta hasta el 20 de julio de 2026. Las [[m:Special:MyLanguage/Celebrate Women/Technical contributions survey|preguntas]] también están disponibles en la wiki para que se revisen anticipadamente.
* La [[mw:Special:MyLanguage/Extension:Score|extensión Score]] ahora soporta el renderizado de partituras musicales en SVG, además de PNG, implementando una [[:phab:T49578|solicitud de mejora]] bastante antigua y resolviendo, además, los problemas de calidad de imagen. Ambos formatos se proveen a los clientes con PNG en el atributo &lt;bdi lang=&quot;zxx&quot; dir=&quot;ltr&quot;&gt;&lt;code&gt;&lt;nowiki&gt;src&lt;/nowiki&gt;&lt;/code&gt;&lt;/bdi&gt; y SVG en el atributo &lt;bdi lang=&quot;zxx&quot; dir=&quot;ltr&quot;&gt;&lt;code&gt;&lt;nowiki&gt;srcset&lt;/nowiki&gt;&lt;/code&gt;&lt;/bdi&gt;.
* El nuevo parser [[wikitech:Parsoid|Parsoid]] [[mw:Special:MyLanguage/Parsoid/Parser_Unification/Updates|continúa su implementación en wikis adicionales]], lo que facilita añadir nuevas funciones de lectura y edición. Fue habilitado en la Wikipedia en francés, dejando el progreso total en un 78,9 % de las visitas a Wikipedia. El lanzamiento de la versión de escritorio en la Wikipedia en inglés se realizará esta semana.
* [[File:Reload icon with two arrows.svg|12px|link=|class=skin-invert|Elemento recurrente]] Actualizaciones detalladas de código de esta semana: [[mw:MediaWiki 1.47/wmf.10|MediaWiki]]

'''A fondo'''
* El [[diffblog:2026/06/29/wikimedia-hackathon-2026-building-collaborating-and-shaping-the-future-together/|post de recapitulación]] de la Wikimedia Hackathon 2026 ya está disponible. En él se resumen los proyectos, las sesiones y las actividades sociales del evento de este año y se comparten los planes iniciales para la Wikimedia Hackathon de 2027.

''Las '''[[m:Special:MyLanguage/Tech/News|Noticias Técnicas]]''' son preparadas por [[m:Special:MyLanguage/Tech/News/Writers|los escritores de Noticias Técnicas]] y publicadas con un [[m:Special:MyLanguage/User:MediaWiki message delivery|bot]]&amp;nbsp;• [[m:Special:MyLanguage/Tech/News#contribute|Colabore]]&amp;nbsp;• [[m:Special:MyLanguage/Tech/News/2026/28|traduzca]]&amp;nbsp;• [[m:Tech|obtenga ayuda]]&amp;nbsp;• [[m:Talk:Tech/News|denos su opinión]]&amp;nbsp;• [[m:Global message delivery/Targets/Tech ambassadors|suscríbase o cancele su suscripción]].''
&lt;/div&gt;&lt;section end=&quot;technews-2026-W28&quot;/&gt;

&lt;bdi lang=&quot;en&quot; dir=&quot;ltr&quot;&gt;[[User:MediaWiki message delivery|MediaWiki message delivery]]&lt;/bdi&gt; 13:57 6 jul 2026 (UTC)
&lt;!-- Mensaje enviado por Usuario:STei (WMF)@metawiki mediante la lista en https://meta.wikimedia.org/w/index.php?title=Global_message_delivery/Targets/Tech_ambassadors&amp;oldid=30773578 --&gt;

== Noticias técnicas: 2026-29 ==

&lt;section begin=&quot;technews-2026-W29&quot;/&gt;&lt;div class=&quot;plainlinks&quot;&gt;
Las últimas '''[[m:Special:MyLanguage/Tech/News|noticias técnicas]]''' desde la comunidad técnica de Wikimedia. Por favor, comenta estos cambios con otros usuarios. No todos los cambios te afectarán. [[m:Special:MyLanguage/Tech/News/2026/29|Traducciones en varios idiomas]] están disponibles.

'''Actualizaciones para editores'''
* La [[mw:Special:MyLanguage/Growth/Revise_Tone|Revisión de Tono]] ayuda a personas recién llegadas a identificar pasajes de los artículos de Wikipedia que podrían contener lenguaje no enciclopédico y les anima a revisar el tono. La funcionalidad fue probada mediante [[w:en:A/B_testing|una prueba A/B]] en las Wikipedias en árabe, inglés, francés y portugués, donde la tasa de finalización de edición [[mw:Special:MyLanguage/Growth/Revise_Tone#Experiment_Results|aumentó en un 38,7 %]] en comparación con las tareas de Copyedit, sin que se detectara una disminución en la calidad de la edición. La prueba finalizó el 9 de julio y la funcionalidad estará disponible para todas las personas de esas wikis, configurable mediante la Configuración Comunitaria. [[phab:T426364|El plan]] es lanzar la Revisión de Tono en más wikis.
* La Configuración Comunitaria que permite la [[mw:Special:MyLanguage/Help:Growth/Mentorship#Automated mentor list cleanup|eliminación automática de mentores inactivos]] basada en criterios configurables se habilitará el jueves 16 en [[mw:Special:MyLanguage/Growth/Deployment|algunas wikis]] para mantener actualizadas las listas de mentores. Los mentores son editores experimentados que se autoincluyen en una lista para ayudar a usuarios nuevos en la wiki mediante las [[mw:Special:MyLanguage/Growth/Feature summary|características de Crecimiento]]. Los administradores pueden preparar la configuración en [[w:Special:CommunityConfiguration/Mentorship|Special:CommunityConfiguration/Mentorship]]; tendrá efecto a partir del jueves.
* [[File:Reload icon with two arrows.svg|12px|link=|class=skin-invert|Elemento recurrente]] Revisa las {{formatnum:38}} {{PLURAL:38|tarea enviada|tareas enviadas}} por la comunidad que fueron [[m:Special:MyLanguage/Tech/News/Recently resolved community tasks|resueltas la semana pasada]]. Por ejemplo, se ha solucionado un problema en el que algunos usuarios de la aplicación de Wikipedia para Android se desconectaban inmediatamente después de iniciar sesión, lo que impedía que permanecieran conectados y editaran páginas. [https://phabricator.wikimedia.org/T316916]

'''Actualizaciones para los colaboradores técnicos'''
* Editar una página mediante scripts o gadgets de usuario hacía que las etiquetas de la lista de vigilancia que el usuario había asignado a esa página se restablecieran. Esto ya ha sido arreglado. [https://phabricator.wikimedia.org/T423778]
* Para evitar un fallo en Safari (revisa [[phab:T425211]]), en las wikis con Parsoid habilitado, los href de los wikienlaces usando urls absolutas en lugar de urls relativas de protocolo. La salida de la API REST se mantendrá sin cambios y continuará usando las urls relativas de protocolo. Los accesorios, scripts de usuarios, bots y CSS podrían necesitar adaptación si necesitan la presencia de urls relativas de protocolo en los href de los wikienlaces. [https://phabricator.wikimedia.org/T431358]
* [[File:Reload icon with two arrows.svg|12px|link=|class=skin-invert|Elemento recurrente]] Actualizaciones detalladas de código de esta semana: [[mw:MediaWiki 1.47/wmf.11|MediaWiki]]

'''A fondo'''
* El equipo de Experimentos de Plataforma de la Fundación Wikimedia publicó un post que muestra su primer año de experimentación estructurada. Revisan los experimentos exitosos, como la Comprobación de Pegado, Comprobación de Referencias y Comprobación de Tono, los cuales han mejorado las ediciones y han sido desplegados a más usuarios, así como los experimentos que no han sido implementados. [[diffblog:2026/07/07/moving-the-needle-how-we-test-new-ideas-across-wikimedia-projects|Lee más]]

''Las '''[[m:Special:MyLanguage/Tech/News|Noticias Técnicas]]''' son preparadas por [[m:Special:MyLanguage/Tech/News/Writers|los escritores de Noticias Técnicas]] y publicadas con un [[m:Special:MyLanguage/User:MediaWiki message delivery|bot]]&amp;nbsp;• [[m:Special:MyLanguage/Tech/News#contribute|Colabore]]&amp;nbsp;• [[m:Special:MyLanguage/Tech/News/2026/29|traduzca]]&amp;nbsp;• [[m:Tech|obtenga ayuda]]&amp;nbsp;• [[m:Talk:Tech/News|denos su opinión]]&amp;nbsp;• [[m:Global message delivery/Targets/Tech ambassadors|suscríbase o cancele su suscripción]].''
&lt;/div&gt;&lt;section end=&quot;technews-2026-W29&quot;/&gt;

&lt;bdi lang=&quot;en&quot; dir=&quot;ltr&quot;&gt;[[User:MediaWiki message delivery|MediaWiki message delivery]]&lt;/bdi&gt; 16:11 13 jul 2026 (UTC)
&lt;!-- Mensaje enviado por Usuario:STei (WMF)@metawiki mediante la lista en https://meta.wikimedia.org/w/index.php?title=Global_message_delivery/Targets/Tech_ambassadors&amp;oldid=30804401 --&gt;

== No funciona el buscador de anagramas ==

Desde este viernes el buscador de anagramas lanza, al hacer cualquier búsqueda, el siguiente error:

&lt;code&gt;Lo sentimos, hubo un error en el servidor :(&lt;/code&gt;--[[Usuario:Jemily1|Jemily1]] ([[Usuario discusión:Jemily1|discusión]]) 11:53 18 jul 2026 (UTC)

:Solucionado, por ahora. La tarea se volverá a ejecutar en un mes, así que tendremos que estar atentos si vuelve a fallar. Saludos. [[Usuario:Tmagc|Tmagc]] ([[Usuario discusión:Tmagc|discusión]]) 17:08 18 jul 2026 (UTC)

== Noticias técnicas: 2026-30 ==

&lt;section begin=&quot;technews-2026-W30&quot;/&gt;&lt;div class=&quot;plainlinks&quot;&gt;
Las últimas '''[[m:Special:MyLanguage/Tech/News|noticias técnicas]]''' desde la comunidad técnica de Wikimedia. Por favor, comenta estos cambios con otros usuarios. No todos los cambios te afectarán. [[m:Special:MyLanguage/Tech/News/2026/30|Traducciones en varios idiomas]] están disponibles.

'''Actualizaciones para editores'''
* El [[mw:Special:MyLanguage/Reader/Reader Experience|equipo de Experiencia de Lectores]] incorporó la retroalimentación de la comunidad acerca de la posición de la estrella y los botones de la lista de seguimiento para la [[mw:Special:MyLanguage/Readers/Reader Experience/WE3.3.4 Reading lists|función beta de Listas de Lectura]], la que permite guardar artículos para leerlos más tarde — un elemento de la [[m:Special:MyLanguage/Community Wishlist/W102|lista de deseos]] que lleva la funcionalidad a la web. Los editores están invitados a habilitar esta funcionalidad beta para probarla y [[phab:T426453|compartir sus ideas]].
* El [[mw:Special:MyLanguage/VisualEditor/Suggestion Mode|Modo de Sugerencia]] ofrece sugerencias de edición en el Editor Visual para mejorar los artículos de Wikipedia. [[Special:EditChecks|Todas las sugerencias]] son [[mw:Special:MyLanguage/Help:Suggestion mode#For administrators – local customization|configurables por la comunidad]]. La función [[mw:Special:MyLanguage/Edit check/TextMatch|TextMatch]] es una forma para que los voluntarios puedan crear sugerencias locales. La funcionalidad busca en el artículo cadenas de texto y ahora incluye expresiones regulares. Esto da mayor flexibilidad a los voluntarios sobre los tipos de sugerencias locales que pueden crear. Nota: Las sugerencias [[mw:Special:MyLanguage/Edit check/Configuration#:~:text=maximumEditcount|pueden ser dirigidas]] a usuarios basados en el contador de ediciones, así como a aspectos de la página. Pueden [[mw:Special:MyLanguage/Help:Suggestion mode#Create custom local types of Suggestions|encontrar ejemplos de otras comunidades]] para inspirarse que incluyen el uso de TextMatch: errores de tipeo, errores gramaticales, potenciales anuncios, clichés, usos incorrectos de guiones, palabras poco específicas en ciertos contextos temporales, nombres desactualizados y más. Cualquier [[mw:Special:MyLanguage/Talk:VisualEditor/Suggestion Mode|retroalimentación]] es apreciada.
* [[File:Reload icon with two arrows.svg|12px|link=|class=skin-invert|Elemento recurrente]] Revisa las {{formatnum:27}} {{PLURAL:27|tarea enviada|tareas enviadas}} por la comunidad que fueron [[m:Special:MyLanguage/Tech/News/Recently resolved community tasks|resueltas la semana pasada]]. Por ejemplo, se solucionó un error por el cual la herramienta de traducción de SVG (SVG Translate) podía utilizar una versión desactualizada de un archivo, lo que provocaba que las traducciones existentes se sobrescribieran al subir nuevas versiones; esto ahora [[phab:T430577|ha sido corregido]]. En general, durante el último trimestre (de abril a junio de 2026), la Fundación Wikimedia resolvió cerca de 337 tareas comunitarias.

'''Actualizaciones para los colaboradores técnicos'''
* En las wikis con Parsoid habilitado, Parsoid ahora procesa un máximo de 1250 imágenes por página. Pronto estará disponible una nueva categoría de seguimiento, «media-limit-reached», para identificar las páginas donde se alcance este límite, lo que facilitará la localización de contenidos cuyo despliegue de archivos multimedia haya sido restringido durante el renderizado. Consulta [[phab:T430854]] para obtener más información y dejar sus comentarios.
* [[File:Reload icon with two arrows.svg|12px|link=|class=skin-invert|Elemento recurrente]] Actualizaciones detalladas de código de esta semana: [[mw:MediaWiki 1.47/wmf.12|MediaWiki]]

''Las '''[[m:Special:MyLanguage/Tech/News|Noticias Técnicas]]''' son preparadas por [[m:Special:MyLanguage/Tech/News/Writers|los escritores de Noticias Técnicas]] y publicadas con un [[m:Special:MyLanguage/User:MediaWiki message delivery|bot]]&amp;nbsp;• [[m:Special:MyLanguage/Tech/News#contribute|Colabore]]&amp;nbsp;• [[m:Special:MyLanguage/Tech/News/2026/30|traduzca]]&amp;nbsp;• [[m:Tech|obtenga ayuda]]&amp;nbsp;• [[m:Talk:Tech/News|denos su opinión]]&amp;nbsp;• [[m:Global message delivery/Targets/Tech ambassadors|suscríbase o cancele su suscripción]].''
&lt;/div&gt;&lt;section end=&quot;technews-2026-W30&quot;/&gt;

&lt;bdi lang=&quot;en&quot; dir=&quot;ltr&quot;&gt;[[User:MediaWiki message delivery|MediaWiki message delivery]]&lt;/bdi&gt; 05:46 21 jul 2026 (UTC)
&lt;!-- Mensaje enviado por Usuario:STei (WMF)@metawiki mediante la lista en https://meta.wikimedia.org/w/index.php?title=Global_message_delivery/Targets/Tech_ambassadors&amp;oldid=30836091 --&gt;

== Request for comment (the future of Abstract Wikipedia) ==

&lt;bdi lang=&quot;en&quot; dir=&quot;ltr&quot; class=&quot;mw-content-ltr&quot;&gt;
Apologies if this has not yet been translated into your wiki's language. {{int:Please-translate}}
You are invited to voice your opinions in a [[:m:Requests for comment/The future of Abstract Wikipedia|request for comment about the future of Abstract Wikipedia]]. {{Int:Feedback-thanks-title}}
[[:m:User:Kowal2701|Kowal2701]] ([[:m:User talk:Kowal2701|talk]])  12:25 24 jul 2026 (UTC)
&lt;/bdi&gt;
&lt;!-- Mensaje enviado por Usuario:DreamRimmer@metawiki mediante la lista en https://meta.wikimedia.org/w/index.php?title=Distribution_list/Global_message_delivery&amp;oldid=30513860 --&gt;</text>
      <sha1>si88td5n9z7s7iyz3mdvjtce98rxvlr</sha1>
    </revision>
  </page>
  <page>
    <title>haber</title>
    <ns>0</ns>
    <id>2515</id>
    <revision>
      <id>6123554</id>
      <parentid>5916598</parentid>
      <timestamp>2026-07-25T05:01:15Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* {{sustantivo masculino|es}} */</comment>
      <origin>6123554</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="7420" sha1="klcy3hjbymp47w29nzhx3nwvmi38d7t" xml:space="preserve">{{desambiguación|Haber|håber}}

== {{lengua|es}} ==
{{pron-graf}}
{{definición}}

=== Etimología 1 ===
{{etimología|osp|aver|haber}}, y este  {{etim|la|habeo}}. Compárense el aragonés {{l+|an|aber}} y el asturiano {{l+|ast|haber}}.

==== {{verbo auxiliar|es}} ====
;1: {{impropia|Se combina con el [[participio]] de otros verbos para conjugarlos en los [[tiempo]]s [[compuesto]]s}}.
{{uso|va ante participio}}
{{ejemplo|Ya ''hemos'' llegado.}}
;2: {{impropia|Se utiliza con el [[infinitivo]] para expresar una acción futura o la necesidad, obligación o conveniencia de hacer algo}}.
{{uso|se une al verbo en infinitivo con la conjunción ''que'' o con la preposición ''de''|en este sentido es terciopersonal  y en presente de indicativo toma la forma especial ''hay''}}
{{ejemplo|''Has'' de saber que la vida está llena de sorpresas. No ''habré'' de negarte eso. ''Hay'' que tolerar las diferencias. ''Hubo'' que mandar el coche al taller.}}

==== {{verbo impersonal|es}} ====
;3: {{impropia|Indica la existencia de algo}}. {{plm|estar}} o [[existir]] en alguna parte.
{{uso|funciona como terciopersonal|es decir|solamente se conjuga en tercera persona del singular|en presente de indicativo toma la forma especial ''hay''|es también impersonal|es decir|carece de sujeto explícito|siendo el sustantivo un complemento directo|razón por la cual en todos los tiempos se utiliza únicamente la conjugación de la tercera persona en singular}}
{{ejemplo|''habrá'' comidas y bebidas (decir &quot;''*habrán'' comidas y bebidas&quot; se considera incorrecto, porque &quot;comidas y bebidas&quot; no es el sujeto, sino el objeto directo). ''Hay'' mucha gente en la reunión.}}
;4: Tener lugar, [[ocurrir]], [[suceder]], [[hacer]]se, [[realizar]]se o [[ejecutar]]se un [[hecho]] o [[evento]].
{{uso|funciona como terciopersonal|siempre en singular}}
{{ejemplo|Mañana ''habrá'' una reunión para clarificar los desórdenes que ''hubo'' en la plaza del pueblo.}}
;5: {{impropia|Indica la acumulación o cumplimiento de una medida de tiempo}}.
{{uso|infrecuente}}. Funciona como [[terciopersonal]], siempre en singular.
{{relacionado|hacer}}.
{{ejemplo|Hoy ''ha'' diez años que murió la abuela. En octubre ''habrá'' un año que comenzó sus estudios universitarios.}}

==== {{verbo transitivo|es}} ====
;6: {{plm|poseer}}, tener propiedad o llegar a tener algo en poder de uno.
{{sinónimo|poseer|tener}}.
{{uso|obsoleto|literario|defectivo}}, casi nunca [[conjugar|conjugado]].
{{ejemplo|Jorgito coleccionaba cuantas piedras pudiera ''haber''.}}

==== {{sustantivo masculino|es}} ====
{{es.sust}}
;7: {{plm|conjunto}} de [[bien]]es, [[posesión|posesiones]] o [[derecho]]s que [[poseer|posee]] alguien.&lt;ref name=&quot;drae&quot;&gt;{{DRAE2001}}&lt;/ref&gt;
{{uso|se emplea con más frecuencia en plural}}
{{relacionado|caudal|hacienda|patrimonio}}.
{{ejemplo|Tiene una fortuna en su ''haber''.}}
;8: {{plm|cantidad}} que se [[recibir|recibe]] en [[retribución]] o [[pago]] por [[servicio]]s prestados.&lt;ref name=&quot;drae&quot; /&gt;
{{uso|infrecuente}}, se emplea más en plural.
{{relacionado|estipendio|ingreso|salario|sueldo}}.
{{ejemplo|Sus ''haberes'' son suficientes para cubrir sus gastos mensuales.}}
;9 {{csem|finanzas}}: {{plm|columna}} o [[sección]] en que se [[anotar|anotan]] las [[entrada]]s, [[ingreso]]s o [[crédito]]s.&lt;ref name=&quot;drae&quot; /&gt;
{{antónimo|debe}}
;10: Conjunto de [[mérito]]s o [[cualidad]]es, en contraste con los [[defecto]]s o [[desventaja]]s de alguien o algo.&lt;ref name=&quot;drae&quot; /&gt;
{{antónimo|debe}}

==== Conjugación ====
{{es.v|impersonal=umc3|nota=El modo imperativo es aplicable solo con el ya obsoleto sentido transitivo de ''[http://lema.rae.es/dpd/apéndice/apéndice1.html#n35 tener]''. Las formas ''habe'' y ''habed'' heredadas del latín no tienen ningún uso en la actualidad. La forma ''he'' en imperativo se emplea en expresiones literarias o arcaicas como &quot;''He'' aquí al hombre&quot; (aquí tienes/tenés/tienen/tenéis al hombre).}}

==== Locuciones ====
{{trad-arriba|Locuciones con ''haber''}}
* [[haber que]]: Manera de conminar imperativamente a hacer algo. Se acompaña siempre de un verbo en infinitivo.
* [[lo habido y por haber]]: De todo, toda clase de cosas o asuntos posibles.
* [[no haber de qué]]: No existir causa o motivo para algo, carecer de dinero. Se emplea como expresión de cortesía como equivalente a ''[[de nada]]''.
* [[no haber más que]] (más infinitivo): Lo único que hace falta es; una vez hecho lo indicado en infinitivo, ocurrirá.
* [[no haber más que pedir]]: Basta con pedir, y el deseo se cumplirá.
* [[no haber por dónde agarrar]], o [[no haber por dónde coger]] algo o a alguien: Ser de características extremas (mala calidad, ningún defecto, excesivos melindres, etc.); [[no tener por dónde agarrar]] o [[no tener por dónde coger]] algo o a alguien.
* [[no haber tal]]: ser falso, no tener base o fundamento.
* [[no haya más]]: expresión para dar fin a una disputa o discusión.
* [[si los hay]]: expresión para dar énfasis a una calificación: Es muy generoso, ''si los hay''.
* [[haberes pasivos]] (Derecho): Dinero destinado a la [[pensión]] de empleados públicos.
* [[haber monedado]]: conjunto del dinero o caudal que posee alguien.
* [[soldado de haber]]: persona que sirve en el [[ejército]], en categoría de [[soldado]], de manera [[fijo|fija]], en oposición a quien sirve temporalmente (soldado de cuota).
* [[esto es lo que hay]]: no tener opción.
* [[ser lo que hay]]
{{trad-abajo}}
{{trad-arriba|Refranes con ''haber''}}
* [[de todo hay en la viña del Señor]]
{{trad-abajo}}

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{t|ain|a1=3|t1=アン|t2=アㇴ|t3=オカィ}}
{{t|de|a1=1|t1=haben|a2=3|t2=es gibt|a3=2|t3=man muss}}
{{t|an|a1=1|t1=aber}}
{{t|co|a1=1|t1=avè}}
{{t|sl|a1=1|t1=imeti}}
{{t|ext|a1=1-5|t1=avel/vel}}
{{t|fr|a1=1|t1=avoir|a2=2|t2=y avoir}}
{{t|gl|a1=1|t1=haber}}
{{t|la|a1=1|t1=habere}}
{{t|en|a1=1,3|t1=have|a2=2|t2=there is}}
{{t|it|a1=1|t1=avere|a2=2|t2=c'è}}
{{t|ja|i1=s|t1=ある}}
{{t|arn|a1=2|t1=nge}}
{{t|nl|a1=1|t1=hebben}}
{{t|pt|a1=1|t1=haver}}
{{t|scn|a1=1|t1=aviri}}
{{t|sa|a1=3-4|t1=अस्ति}}
{{trad-abajo}}

=== Etimología 2 ===
{{etimología|la|debet habere|glos=debe tener}}.

==== {{sustantivo masculino|es}} ====
;1 {{csem|contabilidad}}: {{plm|erogación}} de una empresa ó disminución del activo de la empresa.

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== {{lengua|ast}} ==
{{pron-graf|leng=ast}}

=== Etimología 1 ===
{{etimología|leng=ast|roa-ole|aver|haber}}, y este {{etim|leng=ast|la|habeo}}.

==== {{verbo auxiliar|ast}} ====
;1: {{plm}}.

==== {{verbo impersonal|ast}} ====
;2: {{plm}}.

==== Conjugación ====
{{ast.v}}

== {{lengua|gl}} ==
{{pron-graf|leng=gl}}

=== Etimología 1 ===
{{etimología|leng=gl|roa-opt|aver|haber}}, y este  {{etim|leng=gl|la|habeo}}.

==== {{verbo auxiliar|gl}} ====
;1: {{plm}}.

==== Conjugación ====
{{gl.v}}

== {{lengua|ia}} ==
{{pron-graf|leng=ia|1fone1=ha.ˈbɛr}}

=== Etimología 1 ===
{{etimología|leng=ia|es|haber}}.

==== {{verbo|ia}} ====
;1: {{plm}}.

== {{lengua|lad}} ==
{{pron-graf|leng=lad|g1=חאביר}}

=== Etimología 1 ===
{{etimología|leng=lad|ota|خبر|tr=haber|noticias}} (comparése el turco {{l+|tr|haber}}),  {{etim|leng=lad|ar|خبر}}.

==== {{sustantivo masculino|lad}} ====
;1: {{plm|noticia}}s (nueva {{l|es|información}}).

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>klcy3hjbymp47w29nzhx3nwvmi38d7t</sha1>
    </revision>
  </page>
  <page>
    <title>mañana</title>
    <ns>0</ns>
    <id>9030</id>
    <revision>
      <id>6123463</id>
      <parentid>6078132</parentid>
      <timestamp>2026-07-24T20:12:32Z</timestamp>
      <contributor>
        <username>Charlyfar</username>
        <id>7832</id>
      </contributor>
      <comment>/* Locuciones */</comment>
      <origin>6123463</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="3869" sha1="3y6a9woow0rcwbi1luzs5ltkte1x7pt" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología 1 ===
{{etimología|osp|mannana}}, {{etim|la-vul|*hora māneāna|por la mañana}}, {{etim|la|mane|alt=māne||la|-anum|-ānum}}. Desplazó al clásico [[cras]].

==== {{sustantivo femenino|es}} ====
{{es.sust}}
;1: {{plm|lapso}} que transcurre desde la [[salida]] del [[sol]] hasta el [[mediodía]].
{{ejemplo|por la '''mañana'''.}}
{{ejemplo|mañana por la '''mañana'''.}}
{{ejemplo|Estudia en las '''mañanas'''.}}
{{ejemplo|A ver...el museo abre a las nueve de la '''mañana'''.}}
;2: Más generalmente, tiempo que transcurre desde la [[medianoche]] hasta el mediodía.
{{hipónimo|madrugada}}
{{ejemplo|Estoy despierto desde las tres de la '''mañana'''.}}

==== {{sustantivo masculino|es}} ====
;3: {{plm|período}} [[futuro]] en general.
{{sinónimos|porvenir}}.
{{ejemplo|Nadie sabe lo que el ''[[mañana]]'' prepara para la vida de las personas.}}

==== {{adverbio de tiempo|es}} ====
;4: {{plm|día}} que sigue al de [[hoy]].
{{ejemplo|Tengo que trabajar '''mañana'''.}}
{{ejemplo|'''mañana''' por la mañana.}}
{{ejemplo|'''mañana''' por la noche.}}

==== Locuciones ====
* [[hasta mañana]]: frase de despedida común y de trato familiar entre dos personas que pueden encontrarse nuevamente al día siguiente.
* [[mañana o pasado]] o [[el día de mañana]]: en el futuro.
* [[pasado mañana]]: día que sigue inmediatamente al día de mañana. Dentro de dos días.

==== Refranes ====
* [[no dejes para mañana lo que puedes hacer hoy]]

==== Véase también ====
{{w}}
{{Wikiquote}}

==== Traducciones ====
{{trad-arriba|Sustantivo femenino}}
{{t|ar|t1=صباح|tl1=sabaj}}
{{t|de|t1=Morgen|g1=m}}
{{t|ast|t1=mañana|g1=f}}
{{t|br|t1=mintin|g1=m}}
{{t|br|t1=beure}}
{{t|ca|t1=matí|g1=m}}
{{t|sai-chn|t1=huelcaimár|t2=uelcaimár}}
{{t|zh|t1=早晨}}
{{t|zh|t1=上午}}
{{t|sl|t1=jutro|g1=n}}
{{t|eu|a1=1,2|t1=goiz}}
{{t|fo|t1=morgun}}
{{t|fi|t1=aamu}}
{{t|fr|t1=matin|g1=m}}
{{t|gl|t1=mañá|g1=f}}
{{t|el|t1=πρωί|g1=n|t2=αύριο}}
{{t|he|t1=בוקר}}
{{t|id|t1=pagi}}
{{t|en|t1=morning}}
{{t|ia|t1=matino}}
{{t|it|t1=mattina|g1=m}}
{{t|yua|t1=jaʼatskab kʼiin}}
{{t|ja|a1=1-2|t1=朝}}
{{t|nl|t1=morgen|g1=m|t2=ochtend|g2=m}}
{{t|nb|g1=m|t1=morgen}}
{{t|nn|t1=morgen|g1=m}}
{{t|pt|t1=manhã|g1=f}}
{{t|ru|t1=утро}}
{{t|sv|t1=morgon|g1=c}}
{{t|tr|t1=sabah}}
{{trad-abajo}}
{{trad-arriba|Sustantivo masculino}}
{{t|fr|t1=avenir|g1=m|t2=endemain|g2=m}}
{{t|he|t1=עתיד|g1=m}}
{{t|en|t1=future}}
{{t|it|t1=avvenire|g1=m|t2=futuro|g2=m}}
{{t|ja|a1=3|t1=明日}}
{{trad-abajo}}
{{trad-arriba|Adverbio}}
{{t|ain|t1=ニサッタ|t2=ニシャッタ}}
{{t|de|t1=morgen}}
{{t|ar|t1=غدًا}}
{{t|ast|t1=mañana}}
{{t|br|t1=arc'hoazh|t2=warc'hoazh}}
{{t|bg|t1=утре}}
{{t|cs|t1=zítra}}
{{t|ko|t1=내일}}
{{t|da|t1=imorgen}}
{{t|sh|t1=sutra сутра}}
{{t|sk|t1=zajtra}}
{{t|sl|t1=jutri}}
{{t|eo|t1=morgaŭ}}
{{t|eu|t1=bihar}}
{{t|fi|t1=huominen}}
{{t|fr|t1=demain|g1=m}}
{{t|el|t1=αύριο}}
{{t|ha|t1=gobe}}
{{t|haw|t1=ʻapōpō}}
{{t|he|a1=4|t1=מחר|tl1=majar}}
{{t|hu|t1=holnap}}
{{t|id|t1=besok|t2=esok}}
{{t|en|t1=tomorrow}}
{{t|ia|t1=deman}}
{{t|it|t1=domani}}
{{t|ja|t1=明日}}
{{t|ja|t1=あした}}
{{t|ja|t1=あす}}
{{t|kzg|a1=4|t1=明日|t2=あちゃ}}
{{t|la|t1=cras}}
{{t|lt|t1=rytojus|g1=m|t2=rytdiena|g2=f}}
{{t|lt|t1=rytoj}}
{{t|mt|a1=4|t1=għada}}
{{t|zh|t1=明天}}
{{t|yua|t1=sáamal}}
{{t|nci|t1=moztlah}}
{{t|nch|t1=mostla}}
{{t|nhe|t1=mostlah}}
{{t|nlv|t1=mostla}}
{{t|nl|t1=morgen}}
{{t|nb|t1=imorgen}}
{{t|nb|t1=i morgen}}
{{t|nn|t1=i morgen}}
{{t|pl|t1=jutro}}
{{t|pt|t1=amanhã|g1=m}}
{{t|ro|t1=mâine|g1=n}}
{{t|ru|t1=завтра}}
{{t|so|a1=4|t1=aroor}}
{{t|sv|t1=i morgon}}
{{t|sw|a1=4|t1=kesho}}
{{t|th|t1=พรุ่งนี้}}
{{t|tt|t1=irtege}}
{{t|tr|t1=yarın}}
{{t|uk|t1=завтра}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>3y6a9woow0rcwbi1luzs5ltkte1x7pt</sha1>
    </revision>
  </page>
  <page>
    <title>paloma</title>
    <ns>0</ns>
    <id>22579</id>
    <revision>
      <id>6123439</id>
      <parentid>6058468</parentid>
      <timestamp>2026-07-24T15:52:56Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* Etimología 1 */</comment>
      <origin>6123439</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="10804" sha1="kigbz2ira3vkaa38k0jt7e5f5758p1c" xml:space="preserve">{{desambiguación|Paloma}}

== {{lengua|es}} ==
{{pron-graf|h1=Paloma}}
[[Archivo:Patagioenas maculosa -Argentina-8.jpg|thumb|[1]]]
[[Archivo:Check_mark.svg|right|thumb|150px|[6]]]

=== Etimología 1 ===
{{etimología|la|palumba}}, y este de {{l+|la|palumbus}}, {{l+|la|palumbres|alt=palumbēs}}, modificado por analogía con {{l+|la|columba}}. Compárese el griego antiguo {{l+|grc|πέλεια|tl=péleia|glosa=paloma bravia}}. La correspondiente raíz indoeuropea sería probablemente {{l+|ine-pro|*peh₁l-}}.&lt;ref&gt;{{referencia|p=442|f=2008|c=libro|a=de Vaan, Michiel|t=Etymological Dictionary of Latin and the Other Italic Languages|l=Leiden|editorial=Brill}}&lt;/ref&gt;

==== {{sustantivo femenino|es}} ====
{{es.sust}}
;1 {{csem|aves}}: (familia ''Columbiformes'') Cualquiera de unas trescientas especies de [[ave]]s [[columbiforme]]s distribuidas por todo el [[globo]], de [[cuerpo]] y [[cuello]] robustos y [[pico]] [[delgado]] y [[corto]], con [[cera]]s carnosas, [[combado]] en la [[punta]] [[superior]] y adaptado a su [[hábito]] [[frugívoro]]. Son [[domesticable]]s y muchas veces [[comensal]]es del [[ser humano]].
{{hipónimo|cucule|pichón|torcaza|tórtola|zurita}}
;2 {{csem|aves}}: (''Columba livia'' f. ''domestica'') En particular, la paloma doméstica, criada desde la remota [[Antigüedad]] por su [[carne]], como [[mensajero|mensajera]] y como [[ornamental]], existiendo numerosas [[variedad]]es de [[vistoso]] [[plumaje]].
;3: Figuradamente, [[persona]] [[pacífico|pacífica]] y [[mesurado|mesurada]].
;4: En especial, [[pacifista]] [[militante]].
{{antónimo|halcón}}
;5: {{plm|petardo}} [[triangular]] de [[papel]] y [[pólvora]].
{{ámbito|México}}
;6: {{plm|signo}} [[gráfico]] que indica [[aprobación]] o [[verificación]].
{{ámbito|México}}
{{sinónimo|cotejo|tic|visto|visto bueno}}
;7 {{csem|bebida}}: {{plm|bebida}} [[refrescante]] hecha de [[agua de selz]] y [[anís]].
{{ámbito|?}}
;8: {{plm|órgano}} [[eréctil]] que presenta el macho de los [[mamífero]]s, homólogo del [[clítoris]] femenino, en el que desembocan los conductos del [[tracto]] [[genitourinario]]. En algunos animales se retrae en la ingle, y sólo se extiende durante la [[excreción]] y la [[cópula]]; en el ser humano no es retráctil. Está compuesto en su mayor parte por tejidos esponjosos, llamados [[cuerpo cavernoso|cuerpos cavernosos]], que al saturarse de [[sangre]] producen la [[erección]].
{{ámbito|América Central|Venezuela}}
{{uso|coloquial}}
{{wikisauro|pene}}
;9: {{plm|genital}} [[interno]]s y [[externo]]s &amp;mdash;es decir, [[vagina]] y [[vulva]]&amp;mdash; de la [[mujer]].
{{ámbito|Guatemala}}
{{uso|coloquial}}
{{wikisauro|vagina}}
;10 {{csem|insectos}}: (''Plodia interpunctella'') {{plm|lepidóptero}} [[ditrisio]] de la familia de los [[pirálido]]s, de [[ala]]s [[gris]] [[cobrizo]] y unos 2 cm de [[envergadura]], que habita en todo el [[mundo]], [[infestar|infestando]] [[alimento]]s [[seco]]s de origen [[vegetal]].
{{ámbito|Costa Rica}}
{{sinónimo|palomilla|polilla india de la harina|polilla de la fruta seca}}
;11: Cierto canto típico mexicano {{cita requerida}}.
;12: {{plm|cuerpo}} [[celeste]], formado por [[hielo]] y [[roca]], que sigue una [[órbita]] muy [[excéntrico|excéntrica]] alrededor del [[sol]], formando una [[coma]] [[alargado|alargada]] al aproximarse al [[perihelio]].
{{ámbito|Honduras}}
{{sinónimo|cometa}}
;13: Cierto [[baile]] popular argentino {{cita requerida}}.
;14: {{plm|lienzo}} grande de [[algodón]], [[lino]] o material sintético con el que se viste la [[cama]].
{{ámbito|España}}
{{uso|germanía}}
{{sinónimo|sábana}}
;15 {{csem|náutica}}: El medio o [[cruz]] de una [[verga]] entre los [[galápago]]s, donde se fijan los [[cuadernal]]es o [[motón|motones]] de las [[driza]]s.&lt;ref name=mar&gt;{{DME1864}}&lt;/ref&gt;
;16 {{csem|náutica}}: Sobrenombre que toma cualquiera de dichos [[motón|motones]] o [[cuadernal]]es, y en algunos buques la [[gaza]] donde se engancha la [[ostaga]].&lt;ref name=mar /&gt;

==== Locuciones ====
{{trad-arriba|Locuciones con «paloma»}}
* [[paloma brava]] o [[paloma bravía|bravía]]
* [[paloma buchona]]
* [[paloma calzada]]: Variedad de la paloma silvestre, que se distingue en tener las piernas y los pies vestidos de pluma. Por lo común es de color blanco. Columba dasypus.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma de alas blancas]]
* [[paloma de Castilla]]
* [[paloma de la paz]]
* [[paloma del racamento mayor]], [[paloma del trinquete]]: Náut. Son dos gazas que se pasan por la verga, donde se hacen firmes las ostagas para izar.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma de moño]]: Variedad de la paloma silvestre, oue ss distingue en tener un fleco de plumas sobre la cabeza, y las piernas y pies calzados de plumas. Columba cristata.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma de toca]]: Variedad de la paloma silvestre, de color regularmente blanco, que tiene sobre la caheza una porción de plumas largas que se caen por los lados de ella. Columba cuculata.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma duenda]]
* [[paloma mensajera]]
* [[paloma monjil]]: paloma de toca
* [[paloma moñuda]]: paloma de moño
* [[paloma palomariega]]
* [[paloma real]]: Es la mayor de todas las castas que hay entre las palomas domésticas, de las cuales se diferencia en tener él arranque del pico de un hernioso color de azufre. Columba hispánica.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma rizada]]: Variedad de la paloma silvestre , que se distingue por tener las Diurnas rizadas. Columba hispida.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma silvestre]]: Es la especie de paloma que ha dado origen a todas las diversas castas o variedades de la doméstica. Es cenicienta, con cambiantes verdes en el cuello, y una mancha negra en medio de cada remera, y otra al extremo de cada timonera. Colamba anas.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma torcaz]]: Especie de paloma que tiene la cabeza, el lomo y las cobijas de las alas de color ceniciento , que tira á azul, la cola negra, la; alai pardo oscuras, manchadas de blanco; el cuello verdoso, el pecho rojo y el vientre blanco. Es de cerca de pie y medio de largo; se alimenta de semillas, habita en los bosques y anida en la copa de los árboles. Palumbes.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma tripolina]]: Especie de paloma casera , pequeña de cuerpo, los pies calzados de pluma , y en la cabeza tiene una como diadema da plumas levantadas. Columba anglica.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma zorita]]
* [[paloma zura]]: paloma torcaz
* [[paloma zurana]]
* [[paloma zurita]]
* [[pie de paloma]]
{{trad-abajo}}

==== Información adicional ====
{{derivad|palomar|palomariego|palomear|palomero|palometa|palomilla|palomina|palomino|palomita|palomo}}.

==== Véase también ====
{{Wikipedia}}
* [[palomas]]

==== Traducciones ====
{{trad-arriba}}
{{t|ach|a1=1|t1=akuri}}
{{t|af|a1=1|t1=duif}}
{{t|ay|a1=1|t1=huturunku}}
{{t|sh|t1=golub golubica golub голу|g1=f|a1=1}}
{{t|sq|a1=1|t1=pëllumb|g1=m}}
{{t|de|a1=1|t1=Taube|g1=f}}
{{t|hsb|a1=1|t1=hołb|g1=m}}
{{t|ar|a1=1|t1=حمام|t2=حمامة}}
{{t|arc|a1=1|t1=יונא|g1=c}}
{{t|hy|a1=1|t1=աղավնի}}
{{t|ast|a1=1|t1=palombu}}
{{t|az|a1=1|t1=göyərçin}}
{{t|nds-de|a1=1|t1=duuv’|g1=m}}
{{t|dsb|a1=1|t1=gołub|g1=m}}
{{t|be|a1=1|t1=голуб|g1=m}}
{{t|br|a1=1|t1=dube}}
{{t|bg|a1=1|t1=гълъб|g1=m}}
{{t|csb|a1=1|t1=gòłąbk|g1=m}}
{{t|ca|a1=1|t1=colom|g1=m}}
{{t|cak|t1=üt}}
{{t|ceb|a1=1|t1=pati}}
{{t|ccc|a1=1|t1=pujtuku}}
{{t|cs|a1=1|t1=holub|g1=m}}
{{t|chr|a1=1|t1=ꮼᏹ}}
{{t|zh|a1=1|t1=鴿子|t2=鸽子}}
{{t|ko|a1=1|t1=비둘기}}
{{t|cr|a1=1|t1=mîmêw}}
{{t|da|a1=1|t1=due|g1=c}}
{{t|sco|a1=1|t1=calman}}
{{t|cu|a1=1|t1=голѫбь|g1=m}}
{{t|sk|a1=1|t1=holub|g1=m}}
{{t|sl|a1=1|t1=golob|g1=m}}
{{t|eo|a1=1|t1=kolombo|t2=palumbo}}
{{t|et|a1=1|t1=tuvi}}
{{t|eu|a1=1|t1=urzo|t2=uso}}
{{t|fi|t1=kyyhky|t2=kyyhkynen|t3=pulu}}
{{t|fo|t1=dúgva}}
{{t|fr|a1=1|t1=colombe|g1=f|t2=pigeon}}
{{t|fy|a1=1|t1=do}}
{{t|fur|a1=1|t1=colomp}}
{{t|gd|a1=1|t1=calman|g1=m|t2=smùdan|g2=m}}
{{t|cy|a1=1|t1=colomen}}
{{t|gl|a1=1|t1=pomba|g1=f}}
{{t|ka|a1=1|t1=მტრედი}}
{{t|el|a1=1|t1=περιστέρι|g1=n}}
{{t|gn|a1=1|t1=pykasu|t2=jeruti}}
{{t|haw|a1=1|t1=nūnū}}
{{t|he|a1=1|t1=יונה|g1=f}}
{{t|hbo|a1=1|t1=גוזל|g1=m}}
{{t|hi|a1=1|t1=कपोत|t2=कबूतर}}
{{t|hu|a1=1|t1=galamb}}
{{t|io|a1=1|t1=kolombo}}
{{t|id|a1=1|t1=merpati|t2=burung merpati|t3=dara|t4=burung dara|t5=ketitiran}}
{{t|en|a1=1|t1=dove|t2=pigeon|t3=culver}}
{{t|ang|a1=1|t1=dūfe|t2=culfer}}
{{t|ia|a1=1|t1=columba|t2=pipion}}
{{t|ga|a1=1|t1=colm|t2=colmán|t3=colúr}}
{{t|is|a1=1|t1=dúfa|g1=f}}
{{t|it|a1=1|t1=colombo|g1=m|a2=1|t2=piccione|g2=m}}
{{t|ja|a1=1|t1=鳩|t2=はと|t3=土鳩|t4=どばと}}
{{t|lad|a1=1|t1=palomba|g1=f|t2=palumba|g2=f}}
{{t|ku|a1=1|t1=کۆتر}}
{{t|lld|a1=1|t1=colomba}}
{{t|la|a1=1|t1=columba|g1=f}}
{{t|lv|a1=1|t1=balodis}}
{{t|lt|a1=1|t1=balandis|g1=m|t2=karvelis|g2=m}}
{{t|mk|a1=1|t1=гулаб|g1=m}}
{{t|ms|a1=1|t1=burung merpati}}
{{t|mt|a1=1|t1=beċċun|a2=1|t2=ħamiema|g2=f}}
{{t|mi|a1=1|t1=karoro tangi harau}}
{{t|arn|a1=1|t1=conulaf}}
{{t|yua|a1=1|t1=úukum}}
{{t|maz|a1=1|t1=mbaro}}
{{t|mmc|a1=1|t1=mbaro}}
{{t|mn|a1=1|t1=тагтаа}}
{{t|nhn|a1=1|t1=huilotl}}
{{t|nci|a1=1|t1=huilotl}}
{{t|nch|t1=uilotl}}
{{t|nhw|t1=uilotl}}
{{t|nhe|t1=wilotl}}
{{t|nhg|a1=1|t1=palumax}}
{{t|nv|a1=1|t1=hasbídí}}
{{t|nl|a1=1|t1=duif|g1=f}}
{{t|nb|a1=1|g1=c|t1=due}}
{{t|oc|a1=1|t1=colomb|g1=m}}
{{t|ona|a1=1|t1=hèuşàʔt'en}}
{{t|pap|t1=paloma|t2=palombra|t3=palomba}}
{{t|fa|a1=1|t1=کبوتر|t2=کفتر|t3=فاخته}}
{{t|ppl|t1=wilut}}
{{t|pox|a1=1|t1=ďölǫb|g1=m}}
{{t|pl|a1=1|t1=gołąb|g1=m}}
{{t|pt|a1=1|t1=pombo|g1=m}}
{{t|quz|a1=1|t1=irpa}}
{{t|rm|t1=columba}}
{{t|rom|a1=1|t1=golumbo|g1=m|t2=golumbaika|g2=f}}
{{t|ro|a1=1|t1=porumbel|g1=m}}
{{t|ru|a1=1|t1=голубь|g1=m}}
{{t|se|t1=duvvá|t2=dielkoduvvá}}
{{t|sm|a1=1|t1=lupe}}
{{t|sc|t1=piccioni aresti|t2=caombu|t3=palumba|t4=columbu}}
{{t|sh|a1=1|t1=golub|g1=m}}
{{t|scn|a1=1|t1=palumma|g1=f}}
{{t|syc|a1=1|t1=ܝܘܢܐ}}
{{t|ses|t1=tuzun}}
{{t|srn|t1=doyfi}}
{{t|sv|a1=1|t1=duva|g1=c}}
{{t|sw|a1=1|t1=njiwa|t2=hua}}
{{t|tg|a1=1|t1=кабӯтар}}
{{t|th|a1=1|t1=นกพิราบ}}
{{t|tl|a1=1|t1=kalapati}}
{{t|te|a1=1|t1=పావురం}}
{{t|tpn|a1=1|t1=pykasu}}
{{t|tr|a1=1|t1=güvercin}}
{{t|uk|a1=1|t1=голуб|g1=m}}
{{t|ur|a1=1|t1=کبوتر|g1=m}}
{{t|vi|a1=1|t1=chim bồ câu}}
{{t|vo|a1=1|t1=pijun}}
{{t|yi|a1=1|t1=טױב}}
{{trad-abajo}}

== {{lengua|pap}} ==
{{pron-graf|leng=pap}}

=== Etimología 1 ===
{{etimología|leng=pap|es|paloma|significado=no}} y este  {{etim|leng=pap|la|palumba}}, a su vez {{etim|leng=pap|la|*pales}}, modificado por analogía con {{l+|la|columba}}.

==== {{sustantivo|pap}} ====
;1 {{csem|aves|leng=pap}}: (familia ''Columbiformes'') {{plm}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>kigbz2ira3vkaa38k0jt7e5f5758p1c</sha1>
    </revision>
    <revision>
      <id>6123440</id>
      <parentid>6123439</parentid>
      <timestamp>2026-07-24T15:53:18Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* Etimología 1 */</comment>
      <origin>6123440</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="10803" sha1="b0ps3xbdo8wczfmctj01lwycpy7tu99" xml:space="preserve">{{desambiguación|Paloma}}

== {{lengua|es}} ==
{{pron-graf|h1=Paloma}}
[[Archivo:Patagioenas maculosa -Argentina-8.jpg|thumb|[1]]]
[[Archivo:Check_mark.svg|right|thumb|150px|[6]]]

=== Etimología 1 ===
{{etimología|la|palumba}}, y este de {{l+|la|palumbus}}, {{l+|la|palumbes|alt=palumbēs}}, modificado por analogía con {{l+|la|columba}}. Compárese el griego antiguo {{l+|grc|πέλεια|tl=péleia|glosa=paloma bravia}}. La correspondiente raíz indoeuropea sería probablemente {{l+|ine-pro|*peh₁l-}}.&lt;ref&gt;{{referencia|p=442|f=2008|c=libro|a=de Vaan, Michiel|t=Etymological Dictionary of Latin and the Other Italic Languages|l=Leiden|editorial=Brill}}&lt;/ref&gt;

==== {{sustantivo femenino|es}} ====
{{es.sust}}
;1 {{csem|aves}}: (familia ''Columbiformes'') Cualquiera de unas trescientas especies de [[ave]]s [[columbiforme]]s distribuidas por todo el [[globo]], de [[cuerpo]] y [[cuello]] robustos y [[pico]] [[delgado]] y [[corto]], con [[cera]]s carnosas, [[combado]] en la [[punta]] [[superior]] y adaptado a su [[hábito]] [[frugívoro]]. Son [[domesticable]]s y muchas veces [[comensal]]es del [[ser humano]].
{{hipónimo|cucule|pichón|torcaza|tórtola|zurita}}
;2 {{csem|aves}}: (''Columba livia'' f. ''domestica'') En particular, la paloma doméstica, criada desde la remota [[Antigüedad]] por su [[carne]], como [[mensajero|mensajera]] y como [[ornamental]], existiendo numerosas [[variedad]]es de [[vistoso]] [[plumaje]].
;3: Figuradamente, [[persona]] [[pacífico|pacífica]] y [[mesurado|mesurada]].
;4: En especial, [[pacifista]] [[militante]].
{{antónimo|halcón}}
;5: {{plm|petardo}} [[triangular]] de [[papel]] y [[pólvora]].
{{ámbito|México}}
;6: {{plm|signo}} [[gráfico]] que indica [[aprobación]] o [[verificación]].
{{ámbito|México}}
{{sinónimo|cotejo|tic|visto|visto bueno}}
;7 {{csem|bebida}}: {{plm|bebida}} [[refrescante]] hecha de [[agua de selz]] y [[anís]].
{{ámbito|?}}
;8: {{plm|órgano}} [[eréctil]] que presenta el macho de los [[mamífero]]s, homólogo del [[clítoris]] femenino, en el que desembocan los conductos del [[tracto]] [[genitourinario]]. En algunos animales se retrae en la ingle, y sólo se extiende durante la [[excreción]] y la [[cópula]]; en el ser humano no es retráctil. Está compuesto en su mayor parte por tejidos esponjosos, llamados [[cuerpo cavernoso|cuerpos cavernosos]], que al saturarse de [[sangre]] producen la [[erección]].
{{ámbito|América Central|Venezuela}}
{{uso|coloquial}}
{{wikisauro|pene}}
;9: {{plm|genital}} [[interno]]s y [[externo]]s &amp;mdash;es decir, [[vagina]] y [[vulva]]&amp;mdash; de la [[mujer]].
{{ámbito|Guatemala}}
{{uso|coloquial}}
{{wikisauro|vagina}}
;10 {{csem|insectos}}: (''Plodia interpunctella'') {{plm|lepidóptero}} [[ditrisio]] de la familia de los [[pirálido]]s, de [[ala]]s [[gris]] [[cobrizo]] y unos 2 cm de [[envergadura]], que habita en todo el [[mundo]], [[infestar|infestando]] [[alimento]]s [[seco]]s de origen [[vegetal]].
{{ámbito|Costa Rica}}
{{sinónimo|palomilla|polilla india de la harina|polilla de la fruta seca}}
;11: Cierto canto típico mexicano {{cita requerida}}.
;12: {{plm|cuerpo}} [[celeste]], formado por [[hielo]] y [[roca]], que sigue una [[órbita]] muy [[excéntrico|excéntrica]] alrededor del [[sol]], formando una [[coma]] [[alargado|alargada]] al aproximarse al [[perihelio]].
{{ámbito|Honduras}}
{{sinónimo|cometa}}
;13: Cierto [[baile]] popular argentino {{cita requerida}}.
;14: {{plm|lienzo}} grande de [[algodón]], [[lino]] o material sintético con el que se viste la [[cama]].
{{ámbito|España}}
{{uso|germanía}}
{{sinónimo|sábana}}
;15 {{csem|náutica}}: El medio o [[cruz]] de una [[verga]] entre los [[galápago]]s, donde se fijan los [[cuadernal]]es o [[motón|motones]] de las [[driza]]s.&lt;ref name=mar&gt;{{DME1864}}&lt;/ref&gt;
;16 {{csem|náutica}}: Sobrenombre que toma cualquiera de dichos [[motón|motones]] o [[cuadernal]]es, y en algunos buques la [[gaza]] donde se engancha la [[ostaga]].&lt;ref name=mar /&gt;

==== Locuciones ====
{{trad-arriba|Locuciones con «paloma»}}
* [[paloma brava]] o [[paloma bravía|bravía]]
* [[paloma buchona]]
* [[paloma calzada]]: Variedad de la paloma silvestre, que se distingue en tener las piernas y los pies vestidos de pluma. Por lo común es de color blanco. Columba dasypus.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma de alas blancas]]
* [[paloma de Castilla]]
* [[paloma de la paz]]
* [[paloma del racamento mayor]], [[paloma del trinquete]]: Náut. Son dos gazas que se pasan por la verga, donde se hacen firmes las ostagas para izar.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma de moño]]: Variedad de la paloma silvestre, oue ss distingue en tener un fleco de plumas sobre la cabeza, y las piernas y pies calzados de plumas. Columba cristata.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma de toca]]: Variedad de la paloma silvestre, de color regularmente blanco, que tiene sobre la caheza una porción de plumas largas que se caen por los lados de ella. Columba cuculata.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma duenda]]
* [[paloma mensajera]]
* [[paloma monjil]]: paloma de toca
* [[paloma moñuda]]: paloma de moño
* [[paloma palomariega]]
* [[paloma real]]: Es la mayor de todas las castas que hay entre las palomas domésticas, de las cuales se diferencia en tener él arranque del pico de un hernioso color de azufre. Columba hispánica.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma rizada]]: Variedad de la paloma silvestre , que se distingue por tener las Diurnas rizadas. Columba hispida.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma silvestre]]: Es la especie de paloma que ha dado origen a todas las diversas castas o variedades de la doméstica. Es cenicienta, con cambiantes verdes en el cuello, y una mancha negra en medio de cada remera, y otra al extremo de cada timonera. Colamba anas.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma torcaz]]: Especie de paloma que tiene la cabeza, el lomo y las cobijas de las alas de color ceniciento , que tira á azul, la cola negra, la; alai pardo oscuras, manchadas de blanco; el cuello verdoso, el pecho rojo y el vientre blanco. Es de cerca de pie y medio de largo; se alimenta de semillas, habita en los bosques y anida en la copa de los árboles. Palumbes.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma tripolina]]: Especie de paloma casera , pequeña de cuerpo, los pies calzados de pluma , y en la cabeza tiene una como diadema da plumas levantadas. Columba anglica.&lt;ref&gt;{{DLC1842}}&lt;/ref&gt;
* [[paloma zorita]]
* [[paloma zura]]: paloma torcaz
* [[paloma zurana]]
* [[paloma zurita]]
* [[pie de paloma]]
{{trad-abajo}}

==== Información adicional ====
{{derivad|palomar|palomariego|palomear|palomero|palometa|palomilla|palomina|palomino|palomita|palomo}}.

==== Véase también ====
{{Wikipedia}}
* [[palomas]]

==== Traducciones ====
{{trad-arriba}}
{{t|ach|a1=1|t1=akuri}}
{{t|af|a1=1|t1=duif}}
{{t|ay|a1=1|t1=huturunku}}
{{t|sh|t1=golub golubica golub голу|g1=f|a1=1}}
{{t|sq|a1=1|t1=pëllumb|g1=m}}
{{t|de|a1=1|t1=Taube|g1=f}}
{{t|hsb|a1=1|t1=hołb|g1=m}}
{{t|ar|a1=1|t1=حمام|t2=حمامة}}
{{t|arc|a1=1|t1=יונא|g1=c}}
{{t|hy|a1=1|t1=աղավնի}}
{{t|ast|a1=1|t1=palombu}}
{{t|az|a1=1|t1=göyərçin}}
{{t|nds-de|a1=1|t1=duuv’|g1=m}}
{{t|dsb|a1=1|t1=gołub|g1=m}}
{{t|be|a1=1|t1=голуб|g1=m}}
{{t|br|a1=1|t1=dube}}
{{t|bg|a1=1|t1=гълъб|g1=m}}
{{t|csb|a1=1|t1=gòłąbk|g1=m}}
{{t|ca|a1=1|t1=colom|g1=m}}
{{t|cak|t1=üt}}
{{t|ceb|a1=1|t1=pati}}
{{t|ccc|a1=1|t1=pujtuku}}
{{t|cs|a1=1|t1=holub|g1=m}}
{{t|chr|a1=1|t1=ꮼᏹ}}
{{t|zh|a1=1|t1=鴿子|t2=鸽子}}
{{t|ko|a1=1|t1=비둘기}}
{{t|cr|a1=1|t1=mîmêw}}
{{t|da|a1=1|t1=due|g1=c}}
{{t|sco|a1=1|t1=calman}}
{{t|cu|a1=1|t1=голѫбь|g1=m}}
{{t|sk|a1=1|t1=holub|g1=m}}
{{t|sl|a1=1|t1=golob|g1=m}}
{{t|eo|a1=1|t1=kolombo|t2=palumbo}}
{{t|et|a1=1|t1=tuvi}}
{{t|eu|a1=1|t1=urzo|t2=uso}}
{{t|fi|t1=kyyhky|t2=kyyhkynen|t3=pulu}}
{{t|fo|t1=dúgva}}
{{t|fr|a1=1|t1=colombe|g1=f|t2=pigeon}}
{{t|fy|a1=1|t1=do}}
{{t|fur|a1=1|t1=colomp}}
{{t|gd|a1=1|t1=calman|g1=m|t2=smùdan|g2=m}}
{{t|cy|a1=1|t1=colomen}}
{{t|gl|a1=1|t1=pomba|g1=f}}
{{t|ka|a1=1|t1=მტრედი}}
{{t|el|a1=1|t1=περιστέρι|g1=n}}
{{t|gn|a1=1|t1=pykasu|t2=jeruti}}
{{t|haw|a1=1|t1=nūnū}}
{{t|he|a1=1|t1=יונה|g1=f}}
{{t|hbo|a1=1|t1=גוזל|g1=m}}
{{t|hi|a1=1|t1=कपोत|t2=कबूतर}}
{{t|hu|a1=1|t1=galamb}}
{{t|io|a1=1|t1=kolombo}}
{{t|id|a1=1|t1=merpati|t2=burung merpati|t3=dara|t4=burung dara|t5=ketitiran}}
{{t|en|a1=1|t1=dove|t2=pigeon|t3=culver}}
{{t|ang|a1=1|t1=dūfe|t2=culfer}}
{{t|ia|a1=1|t1=columba|t2=pipion}}
{{t|ga|a1=1|t1=colm|t2=colmán|t3=colúr}}
{{t|is|a1=1|t1=dúfa|g1=f}}
{{t|it|a1=1|t1=colombo|g1=m|a2=1|t2=piccione|g2=m}}
{{t|ja|a1=1|t1=鳩|t2=はと|t3=土鳩|t4=どばと}}
{{t|lad|a1=1|t1=palomba|g1=f|t2=palumba|g2=f}}
{{t|ku|a1=1|t1=کۆتر}}
{{t|lld|a1=1|t1=colomba}}
{{t|la|a1=1|t1=columba|g1=f}}
{{t|lv|a1=1|t1=balodis}}
{{t|lt|a1=1|t1=balandis|g1=m|t2=karvelis|g2=m}}
{{t|mk|a1=1|t1=гулаб|g1=m}}
{{t|ms|a1=1|t1=burung merpati}}
{{t|mt|a1=1|t1=beċċun|a2=1|t2=ħamiema|g2=f}}
{{t|mi|a1=1|t1=karoro tangi harau}}
{{t|arn|a1=1|t1=conulaf}}
{{t|yua|a1=1|t1=úukum}}
{{t|maz|a1=1|t1=mbaro}}
{{t|mmc|a1=1|t1=mbaro}}
{{t|mn|a1=1|t1=тагтаа}}
{{t|nhn|a1=1|t1=huilotl}}
{{t|nci|a1=1|t1=huilotl}}
{{t|nch|t1=uilotl}}
{{t|nhw|t1=uilotl}}
{{t|nhe|t1=wilotl}}
{{t|nhg|a1=1|t1=palumax}}
{{t|nv|a1=1|t1=hasbídí}}
{{t|nl|a1=1|t1=duif|g1=f}}
{{t|nb|a1=1|g1=c|t1=due}}
{{t|oc|a1=1|t1=colomb|g1=m}}
{{t|ona|a1=1|t1=hèuşàʔt'en}}
{{t|pap|t1=paloma|t2=palombra|t3=palomba}}
{{t|fa|a1=1|t1=کبوتر|t2=کفتر|t3=فاخته}}
{{t|ppl|t1=wilut}}
{{t|pox|a1=1|t1=ďölǫb|g1=m}}
{{t|pl|a1=1|t1=gołąb|g1=m}}
{{t|pt|a1=1|t1=pombo|g1=m}}
{{t|quz|a1=1|t1=irpa}}
{{t|rm|t1=columba}}
{{t|rom|a1=1|t1=golumbo|g1=m|t2=golumbaika|g2=f}}
{{t|ro|a1=1|t1=porumbel|g1=m}}
{{t|ru|a1=1|t1=голубь|g1=m}}
{{t|se|t1=duvvá|t2=dielkoduvvá}}
{{t|sm|a1=1|t1=lupe}}
{{t|sc|t1=piccioni aresti|t2=caombu|t3=palumba|t4=columbu}}
{{t|sh|a1=1|t1=golub|g1=m}}
{{t|scn|a1=1|t1=palumma|g1=f}}
{{t|syc|a1=1|t1=ܝܘܢܐ}}
{{t|ses|t1=tuzun}}
{{t|srn|t1=doyfi}}
{{t|sv|a1=1|t1=duva|g1=c}}
{{t|sw|a1=1|t1=njiwa|t2=hua}}
{{t|tg|a1=1|t1=кабӯтар}}
{{t|th|a1=1|t1=นกพิราบ}}
{{t|tl|a1=1|t1=kalapati}}
{{t|te|a1=1|t1=పావురం}}
{{t|tpn|a1=1|t1=pykasu}}
{{t|tr|a1=1|t1=güvercin}}
{{t|uk|a1=1|t1=голуб|g1=m}}
{{t|ur|a1=1|t1=کبوتر|g1=m}}
{{t|vi|a1=1|t1=chim bồ câu}}
{{t|vo|a1=1|t1=pijun}}
{{t|yi|a1=1|t1=טױב}}
{{trad-abajo}}

== {{lengua|pap}} ==
{{pron-graf|leng=pap}}

=== Etimología 1 ===
{{etimología|leng=pap|es|paloma|significado=no}} y este  {{etim|leng=pap|la|palumba}}, a su vez {{etim|leng=pap|la|*pales}}, modificado por analogía con {{l+|la|columba}}.

==== {{sustantivo|pap}} ====
;1 {{csem|aves|leng=pap}}: (familia ''Columbiformes'') {{plm}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>b0ps3xbdo8wczfmctj01lwycpy7tu99</sha1>
    </revision>
  </page>
  <page>
    <title>bors</title>
    <ns>0</ns>
    <id>27822</id>
    <revision>
      <id>6123459</id>
      <parentid>5701424</parentid>
      <timestamp>2026-07-24T19:23:43Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <origin>6123459</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1293" sha1="eqvifn3q7hkam43fxw8kjhv6ezeh382" xml:space="preserve">== {{lengua|af}} ==
{{pron-graf|leng=af}}

=== Etimología ===
{{etimología|leng=af|nl|borst}}.

=== {{sustantivo|af}} ===
{{inflect.af.sust|bors|borste|borsie|borsies}}
;1 {{csem|anatomía|leng=af}}: {{plm|pecho}}, [[seno]], [[teta]] (malsonante).

=== Véase también ===
{{w|leng=af}}

== {{lengua|xib}} ==
{{pron-graf|leng=xib|v=borste}}

=== Etimología ===
{{etimología|leng=xib|incierta}}, pero probablemente relacionado con el vasco ''[[bost#Vasco|bost]]'' ('cinco').&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 170}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Orduña Aznar, Eduardo | fecha = 2011 | url = https://ojs.ehu.eus/index.php/Veleia/article/view/6301/8075 | título = Los numerales ibéricos y el protovasco | cat=artículo}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Ferrer i Jané, Joan | fecha = 2009 | url = https://ifc.dpz.es/recursos/publicaciones/29/54/32ferrer.pdf | título = El sistema de numerales ibérico: avances en su conocimiento | cat=artículo}}&lt;/ref&gt;

=== {{numeral|xib}} ===
{{xib.esc|bors}}
;1 {{csem|leng=xib|números}}: {{variante|leng=xib|borste|glosa=cinco}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>eqvifn3q7hkam43fxw8kjhv6ezeh382</sha1>
    </revision>
  </page>
  <page>
    <title>Brooklyn</title>
    <ns>0</ns>
    <id>28910</id>
    <revision>
      <id>6123510</id>
      <parentid>6024820</parentid>
      <timestamp>2026-07-25T02:02:14Z</timestamp>
      <contributor>
        <username>CitationsFreak</username>
        <id>149699</id>
      </contributor>
      <minor />
      <comment>/* {{lengua|en}} */ -- es no sustantivo como &quot;perro&quot; o &quot;computadora&quot;, es un sustantivo propio.</comment>
      <origin>6123510</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="778" sha1="7q76s7ptx0p83qi1349iwwtkd4zfj0n" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|nl|Breuckelen}}.

=== {{sustantivo propio|es}} ===
;1: Uno de los cinco [[borough]]s de la ciudad de [[Nueva York]].

=== Véase también ===
{{w}}

=== Traducciones ===
{{trad-arriba}}
{{t|en|t1=Brooklyn}}
{{trad-abajo}}

[[Categoría:ES:Barrios]]

== {{lengua|en}} ==
{{pron-graf|leng=en
|pron=Received Pronunciation, General American|fono=ˈbɹʊk.lən|audio=En-us-brooklyn.ogg|aunota=EE. UU.
|2pron=ciudad de Nueva York|2fone=ˈbɹʷʊk.ɫɪn|2audio=En-NYC Brooklyn.ogg|2fone2=ˈbɹ̠ʷʊ̠kɫ̪ɪ̈n
}}

=== Etimología ===
{{etimología|leng=en|nl|Breuckelen}}.

=== {{sustantivo propio|en}} ===
;1: Uno de los cinco [[borough]]s de la ciudad de [[Nueva York]].

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>7q76s7ptx0p83qi1349iwwtkd4zfj0n</sha1>
    </revision>
  </page>
  <page>
    <title>gagá</title>
    <ns>0</ns>
    <id>29318</id>
    <revision>
      <id>6123553</id>
      <parentid>5716861</parentid>
      <timestamp>2026-07-25T04:28:54Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123553</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1120" sha1="dumsob15paflgudgco21p2nq0k6yu10" xml:space="preserve">{{desambiguación|gaga}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|fr|gaga}}.

==== {{adjetivo|es}} ====
{{es.adj|ng}}
;1: Que ha perdido por la [[senectud]] el correcto [[uso]] de sus [[facultad]]es [[mental]]es.
{{uso|se usa también como sustantivo}}
{{sinónimo|chocho|senil}}.
;2: Dicho de una persona que es de clase alta.&lt;ref&gt;{{Damer}}&lt;/ref&gt;
{{ámbito|Perú}}
{{sinónimo|cheto|concheto}}

==== Traducciones ====
{{trad-arriba}}
{{t|de|a1=1|t1=tatterig|a2=1|t2=zittrig}}
{{t|bg|a1=1|t1=старчески|a2=1|t2=слабоумен}}
{{t|bg|t1=немощен|a1=1}}
{{t|zh|a1=1|t1=遲鈍的|a2=1|t2=顫抖的}}
{{t|ko|a1=1|t1=비틀거리는}}
{{t|da|a1=1|t1=affældig}}
{{t|fr|a1=1|t1=gâteux|a2=1|t2=gaga}}
{{t|fr|t1=branlant|a1=1}}
{{t|el|a1=1|t1=τρεμουλιάρης}}
{{t|he|a1=1|t1=רועד}}
{{t|en|a1=1|t1=doddering}}
{{t|it|a1=1|t1=barcollante}}
{{t|ja|a1=1|t1=揺れる}}
{{t|nl|a1=1|t1=beverig}}
{{t|pt|a1=1|t1=senil}}
{{t|ru|t1=дрожащий|a1=1|t2=дрожащий|a2=1}}
{{t|sv|a1=1|t1=gaggig|a2=1|t2=svag}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>dumsob15paflgudgco21p2nq0k6yu10</sha1>
    </revision>
  </page>
  <page>
    <title>ciclópeo</title>
    <ns>0</ns>
    <id>30052</id>
    <revision>
      <id>6123450</id>
      <parentid>5586842</parentid>
      <timestamp>2026-07-24T17:00:49Z</timestamp>
      <contributor>
        <username>~2026-34597-22</username>
        <id>183061</id>
      </contributor>
      <comment>iamgen</comment>
      <origin>6123450</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="673" sha1="67h2yli1p7rg84cpsqoudg3xzig294i" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología2|}}

=== {{adjetivo|es}} ===
[[File:Sacsahuaman wall3.jpg|thumb|[3] una construcción ciclópea]]
;1: Que tiene relación con los [[cíclope]]s, unos [[gigante]]s de la [[mitología]].
;2: {{plm|enorme}}, gigante.
;3: Referido a una [[construcción]] de la antigüedad, que está formada por grandes [[piedra]]s una encima de otra que no tienen materiales de [[unión]] tales como la [[argamasa]].

=== Traducciones ===
{{trad-arriba}}
{{t|el|a1=1|t1=κυκλώπειος|a2=2|t2=κυκλώπειος}}
{{t|pl|a1=1|t1=cyklopowy|a2=2|t2=cyklopowy}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>67h2yli1p7rg84cpsqoudg3xzig294i</sha1>
    </revision>
  </page>
  <page>
    <title>ari</title>
    <ns>0</ns>
    <id>32522</id>
    <revision>
      <id>6123424</id>
      <parentid>5832942</parentid>
      <timestamp>2026-07-24T15:24:43Z</timestamp>
      <contributor>
        <username>~2026-41134-51</username>
        <id>183681</id>
      </contributor>
      <origin>6123424</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="3467" sha1="4e34yzvkc5rsxuydngh8hq0p894cr7j" deleted="deleted" />
      <sha1 />
    </revision>
    <revision>
      <id>6123425</id>
      <parentid>6123424</parentid>
      <timestamp>2026-07-24T15:26:14Z</timestamp>
      <contributor>
        <username>~2026-41284-60</username>
        <id>183682</id>
      </contributor>
      <comment>/* */</comment>
      <origin>6123425</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="3483" sha1="jl8rgf0kxcde8sjv4wg75fbe9yq9mly" deleted="deleted" />
      <sha1 />
    </revision>
    <revision>
      <id>6123426</id>
      <parentid>6123425</parentid>
      <timestamp>2026-07-24T15:28:00Z</timestamp>
      <contributor>
        <username>~2026-41284-60</username>
        <id>183682</id>
      </contributor>
      <comment>/* Guna de San Blas */</comment>
      <origin>6123426</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="3498" sha1="c9rslnxcuidj3jlxlh3l6h1z35pfpk8" deleted="deleted" />
      <sha1 />
    </revision>
    <revision>
      <id>6123428</id>
      <parentid>6123426</parentid>
      <timestamp>2026-07-24T15:37:58Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <minor />
      <comment>Revertidos los cambios de [[Special:Contributions/~2026-41284-60|~2026-41284-60]] ([[User talk:~2026-41284-60|disc.]]) a la última edición de [[User:~2026-41134-51|~2026-41134-51]]</comment>
      <origin>6123424</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="3467" sha1="4e34yzvkc5rsxuydngh8hq0p894cr7j" deleted="deleted" />
      <sha1 />
    </revision>
    <revision>
      <id>6123429</id>
      <parentid>6123428</parentid>
      <timestamp>2026-07-24T15:38:22Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123429</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="3453" sha1="0d6nlfiga8bf2xkkd06gd8af0e649eo" xml:space="preserve">{{desambiguación|Ari|arī|arı}}

== {{lengua|sq}} ==
{{pron-graf|leng=sq|1fone1=aˈɾi}}

=== Etimología 1 ===
{{etimología|leng=sq|ine-pro|*h₂ŕ̥tḱos}}.

==== {{sustantivo masculino|sq}} ====
;1 {{csem|mamíferos|leng=sq}}: (familia Ursidae) {{plm|oso}}.

=== Forma flexiva ===
==== Forma sustantiva ====
;1: {{forma sustantivo|leng=sq|ar|nominativo definido|singular}}; &quot;[[el]] [[oro]]&quot;.

== {{lengua|ca}} ==
{{pron-graf|leng=ca|1fone1=ˈa.ɾi}}

=== Etimología 1 ===
{{etimología|leng=ca|sa|आर्य|transcripción=ā́rya}}, endónimo de los pueblos indoiranios, de etimología ulterior incierta.

==== {{adjetivo|ca}} ====
{{ca.adj}}
;1: {{plm|ario}}.
{{uso|utcs|leng=ca}}
;2: Por extensión, [[indoiranio]].
{{uso|utcs|leng=ca}}
;3 {{csem|lingüística|leng=ca}}: {{plm|indoeuropeo}}.
{{uso|anticuado|leng=ca}}

== {{lengua|eu}} ==
{{pron-graf|leng=eu}}

=== Etimología 1 ===
{{etimología|leng=eu}}.

==== {{partícula|eu}} ====
;1: {{plm|estar}} [[hacer|haciendo]], [[-ndo]].
{{ejemplo|Metro bat hartzen '''ari''' naiz etxera joateko.}}

== {{lengua|ilo}} ==
{{pron-graf|leng=ilo}}

=== Etimología 1 ===
{{etimología|leng=ilo|poz-pro|*qari}}. Compárese el maorí {{l+|mi|ariki|glosa=jefe}} o el tagalog {{l+|tl|hari|glosa=rey}}.

==== {{sustantivo|ilo}} ====
;1: {{plm|rey}}.

== {{lengua|is}} ==
{{pron-graf|leng=is}}

=== Etimología 1 ===
{{etimología|leng=is|non|ari}}, y este del protogermánico {{l+|gem-pro|*arô}}, del protoindoeuropeo {{l+|ine-pro|*or-}}. Compárese el doblete {{l+|is|örn}}, el alemán {{l+|de|Aar}}, el gótico {{l+|got|𐌰𐍂𐌰|tr=ara}} o el inglés {{l+|en|erne}}.

==== {{sustantivo masculino|is}} ====
;1 {{csem|aves|leng=is}}: (familia Accipitridae) {{plm|águila}} [[macho]].

== {{lengua|ja|e1=romaji}} ==
{{pron-graf|leng=ja|1fone1= a̠ɾʲi |e1=蟻|enota1=[[kanji]]|e2=あり|enota2=[[hiragana]]|e3=アリり|enota3=[[katakana]]|2fone1= a̠ɾʲi |e4=あり|enota4=[[hiragana]]|e5=有り|enota5=forma mixta}}

=== Etimología 1 ===
{{etimología|leng=ja}}.

==== {{sustantivo|ja}} ====
;1 {{csem|insectos|leng=ja}}: (familia Formicidae) {{plm|hormiga}}.
{{etimología|leng=ja}}

==== Véase también ====
{{W|idioma=ja|アリ|ari}}

==== {{sustantivo|ja}} ====
;2: {{plm|existencia}}.
;3: {{plm|comercio}}.

== {{lengua|cuk}} ==
{{pron-graf|leng=cuk}}

=== Etimología 1 ===
{{etimología}}.

==== {{sustantivo|cuk}} ====
;1 {{csem|reptiles|leng=cuk}}: {{plm|iguana}}.

== {{lengua|lmo}} ==
{{pron-graf|leng=lmo|1fone1=ˈa.ri}}

=== Etimología 1 ===
{{etimología|leng=lmo|la|aer}}, y este del griego antiguo {{l+|grc|ἀήρ|tr=aér}}, del preclásico {{l+|grc|*ἀϝήρ|tr=*avér}}, del protoindoeuropeo {{l+|ine-pro|*h₂weh₁-}}. Compárese el italiano {{l+|it|aria}}.

==== {{sustantivo femenino|lmo}} ====
;1: {{plm|aire}}.

== {{lengua|quz}} ==
{{pron-graf|leng=quz|1fone1=ˈa.ri}}

=== Etimología 1 ===
{{etimología|leng=quz}}.

==== {{adverbio de modo|quz}} ====
;1: {{plm|sí}}.

== {{lengua|sw}} ==
{{pron-graf|leng=sw}}

=== Etimología 1 ===
{{etimología|leng=sw}}.

==== {{sustantivo|sw}} ====
;1: {{plm|entusiasmo}}, [[avidez]].

== {{lengua|tl}} ==
{{pron-graf|leng=tl}}

=== Etimología 1 ===
{{etimología|leng=tl}}.

==== {{sustantivo|tl}} ====
;1: {{plm|posesión}}, [[propiedad]].
;2: {{plm|genitales}}.
{{uso|jerga|malsonante|leng=tl}}

==== {{verbo transitivo|tl}} ====
;3: {{plm|poseer}}, [[tener]] en propiedad.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>0d6nlfiga8bf2xkkd06gd8af0e649eo</sha1>
    </revision>
  </page>
  <page>
    <title>narciso</title>
    <ns>0</ns>
    <id>38728</id>
    <revision>
      <id>6123433</id>
      <parentid>5728693</parentid>
      <timestamp>2026-07-24T15:43:30Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123433</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="992" sha1="elbuscoofp9vhbpvoh3es7cntg982x0" xml:space="preserve">{{desambiguación|Narciso}}

== {{lengua|es}} ==
{{pron-graf}}

=== Etimología 1 ===
{{etimología|la|narcissus}}, {{etim|grc|νάρκισσος}}.

==== {{sustantivo masculino|es}} ====
[[Archivo:Narcissus side.jpg|right|thumb|narciso [1]]]
{{es.sust}}

;1: Una [[planta]] con bulbo, ''Narcissus pseudonarcissus'', con flores amarillas.
;2: Una [[flor]] nacional de País de Gales.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{t|de|g1=f|t1=Osterglocke}}
{{t|hsb|t1=Narcisa}}
{{t|br|a1=1|t1=rozenn-gamm|g1=f}}
{{t|ca|t1=narcís}}
{{t|fr|g1=f|t1=jonquille}}
{{t|cy|g1=f|t1=cenhinen Bedr}}
{{t|en|t1=daffodil}}
{{t|it|g1=m|t1=narciso}}
{{t|ja|t1=ラッパズイセン|t2=水仙|t3=スイセン}}
{{t|pl|g1=m|t1=żonkil}}
{{trad-abajo}}

=== Etimología 2 ===
{{etimología|EPON|Narciso}}, personaje mitológico.

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1: Hombre [[narcisista]].
{{sinónimo|narcisista|ninfo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>elbuscoofp9vhbpvoh3es7cntg982x0</sha1>
    </revision>
    <revision>
      <id>6123435</id>
      <parentid>6123433</parentid>
      <timestamp>2026-07-24T15:45:34Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123435</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1084" sha1="l6vuerhbtm27b1k9b2a8c86g5ka96vb" xml:space="preserve">{{desambiguación|Narciso}}

== {{lengua|es}} ==
{{pron-graf}}

=== Etimología 1 ===
{{etimología|la|narcissus}}, {{etim|grc|νάρκισσος}}.

==== {{sustantivo masculino|es}} ====
[[Archivo:Narcissus side.jpg|right|thumb|narciso [1]]]
{{es.sust}}

;1: Una [[planta]] con bulbo, ''Narcissus pseudonarcissus'', con flores amarillas.
;2: Una [[flor]] nacional de País de Gales.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{t|de|g1=f|t1=Osterglocke}}
{{t|hsb|t1=Narcisa}}
{{t|br|a1=1|t1=rozenn-gamm|g1=f}}
{{t|ca|t1=narcís}}
{{t|fr|g1=f|t1=jonquille}}
{{t|cy|g1=f|t1=cenhinen Bedr}}
{{t|en|t1=daffodil}}
{{t|it|g1=m|t1=narciso}}
{{t|ja|t1=ラッパズイセン|t2=水仙|t3=スイセン}}
{{t|pl|g1=m|t1=żonkil}}
{{trad-abajo}}

=== Etimología 2 ===
{{etimología|EPON|Narciso}}, personaje mitológico. {{etimología|grc|Νάρκισσος|tr=Nárkissos}}, de {{l+|grc|νάρκη|glosa=sopor}}.

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1: Hombre [[narcisista]].
{{sinónimo|narcisista|ninfo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>l6vuerhbtm27b1k9b2a8c86g5ka96vb</sha1>
    </revision>
  </page>
  <page>
    <title>elogio</title>
    <ns>0</ns>
    <id>49376</id>
    <revision>
      <id>6123411</id>
      <parentid>5947799</parentid>
      <timestamp>2026-07-24T12:56:45Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación añadida</comment>
      <origin>6123411</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="636" sha1="h2rpyjmlaor2ss503g3r7tzqcg0m9yc" xml:space="preserve">{{desambiguación|elogió}}

== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|la|elogium|epitafio}}

=== {{sustantivo masculino|es}} ===
{{es.sust}}

;1: {{plm|expresión}} [[verbal]] o escrita que se hace de las [[cualidad]]es y [[bondad]]es de algo.
{{sinónimo|alabanza|loa|loor}}

=== Traducciones ===
{{trad-arriba}}
{{t|de|a1=1|t1=Lob}}
{{t|eo|a1=1|t1=laŭdo}}
{{t|fr|a1=1|t1=louange}}
{{t|he|a1=1|t1=שבח}}
{{t|en|a1=1|t1=praise}}
{{t|it|a1=1|t1=elogio}}
{{t|la|a1=1|t1=laus}}
{{t|nl|a1=1|t1=lof|g1=m|a2=1|t2=loftuiting|g2=f}}
{{t|pt|a1=1|t1=elogio}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>h2rpyjmlaor2ss503g3r7tzqcg0m9yc</sha1>
    </revision>
  </page>
  <page>
    <title>borste</title>
    <ns>0</ns>
    <id>50978</id>
    <revision>
      <id>6123457</id>
      <parentid>5913739</parentid>
      <timestamp>2026-07-24T19:14:14Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <origin>6123457</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1352" sha1="3mg4l40qsx0i2y5qmvuz9zhy9f6nq8b" xml:space="preserve">== {{lengua|xib}} ==
{{pron-graf|leng=xib|v=bors}}

=== Etimología ===
{{etimología|leng=xib|incierta}}, pero probablemente relacionado con el vasco ''[[bost#Vasco|bost]]'' ('cinco').&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 171 | obs = Ullastret, plomo, M.L.H. C.2.3a; Siles: 1985, nº 538.}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Orduña Aznar, Eduardo | fecha = 2011 | url = https://ojs.ehu.eus/index.php/Veleia/article/view/6301/8075 | título = Los numerales ibéricos y el protovasco | cat=artículo}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Ferrer i Jané, Joan | fecha = 2009 | url = https://ifc.dpz.es/recursos/publicaciones/29/54/32ferrer.pdf | título = El sistema de numerales ibérico: avances en su conocimiento | cat=artículo}}&lt;/ref&gt;

=== {{numeral|xib}} ===
{{xib.esc|borste}}
;1 {{csem|leng=xib|números}}: {{plm|cinco}}.

== {{lengua|sv}} ==
{{pron-graf|leng=sv|fone=`bɔʂʈə}}

=== Etimología ===
{{etimología2|leng=sv|Derivado de {{l+|sv|borst}}, &quot;[[cerda]]&quot;}}

=== {{sustantivo neutro|sv}} ===
;1 {{csem|leng=sv|utensilios}}: {{plm|cepillo}}.

=== Véase también ===
{{w|leng=sv}}

=== Declinación ===
{{sv.sust|c-ar|borst}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>3mg4l40qsx0i2y5qmvuz9zhy9f6nq8b</sha1>
    </revision>
    <revision>
      <id>6123458</id>
      <parentid>6123457</parentid>
      <timestamp>2026-07-24T19:17:37Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <minor />
      <origin>6123458</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1355" sha1="001kbt7es0bht2s7s5g25xpgnn8z0zr" xml:space="preserve">== {{lengua|xib}} ==
{{pron-graf|leng=xib|v=bors}}

=== Etimología ===
{{etimología|leng=xib|incierta}}, pero probablemente relacionado con el vasco ''[[bost#Vasco|bost]]'' ('cinco').&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 171 | obs = Ullastret, plomo, M.L.H. C.2.3a; Siles: 1985, nº 538.}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Orduña Aznar, Eduardo | fecha = 2011 | url = https://ojs.ehu.eus/index.php/Veleia/article/view/6301/8075 | título = Los numerales ibéricos y el protovasco | cat=artículo}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Ferrer i Jané, Joan | fecha = 2009 | url = https://ifc.dpz.es/recursos/publicaciones/29/54/32ferrer.pdf | título = El sistema de numerales ibérico: avances en su conocimiento | cat=artículo}}&lt;/ref&gt;

=== {{numeral|xib}} ===
{{xib.esc|borste}}
;1 {{csem|leng=xib|números}}: {{plm|cinco}}.

== {{lengua|sv}} ==
{{pron-graf|leng=sv|fone=`bɔʂʈə}}

=== Etimología ===
{{etimología2|leng=sv|Derivado de {{l+|sv|borst}}, ('[[cerda]]')}}.

=== {{sustantivo neutro|sv}} ===
;1 {{csem|leng=sv|utensilios}}: {{plm|cepillo}}.

=== Véase también ===
{{w|leng=sv}}

=== Declinación ===
{{sv.sust|c-ar|borst}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>001kbt7es0bht2s7s5g25xpgnn8z0zr</sha1>
    </revision>
  </page>
  <page>
    <title>Wikcionario:Solicitudes/EN</title>
    <ns>4</ns>
    <id>53167</id>
    <revision>
      <id>6123565</id>
      <parentid>6115820</parentid>
      <timestamp>2026-07-25T10:04:07Z</timestamp>
      <contributor>
        <username>CitationsFreak</username>
        <id>149699</id>
      </contributor>
      <comment>palabras</comment>
      <origin>6123565</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1839" sha1="ph3kgrl2rrf7891evmbo16pbyvz0zgf" xml:space="preserve">{{solicitudes|inglés}}

{{solicitudesotros}}

{{abecedario}}

== A ==
*[[aboard]]
*[[accommodate]]
*[[adorn]]
*[[affirm]]
*[[antidote]]
*[[antidisestablishmentarianism]]
*[[Australian]]

== B ==
*[[baggage]]
*[[beverage]]
*[[bounce]]
*[[breach]]
*[[buggy]]

== C ==
*[[capacious]]
*[[compilation]]
*[[contamination]]
*[[contour]]
*[[Czech]]

== D ==
*[[decimate]]
*[[defiance]]
*[[desperation]]
*[[divisive]]

== E ==
*[[eligible]]
*[[emit]]
*[[entail]]
*[[experimental]]
*[[explosive]]
*[[extinct]]
*[[extract]]

== F ==
*[[feudal]]
*[[finite]]
*[[firefighter]]
*[[flourish]]
*[[forceful]]
*[[freshly]]
*[[fuse]]
*[[fusion]]

== G ==
*[[gauge]]
*[[genie]]
*[[gist]]
*[[goblet]]
*[[graphic]]
*[[grease]]
*[[guidance]]

== H ==
*[[Haitian]]
*[[hamburger]]
*[[hamster]]
*[[harass]]
*[[hedgehog]]
*[[housewife]]

== I ==
*[[imprison]]
*[[insight]]
*[[insure]]
*[[invest]]
*[[Iranian]]
*[[ironic]]

== J ==
*[[jeer]]
*[[jinx]]
*[[jog]]

== K ==
*[[kettle]]

== L ==
*[[leverage]]
*[[loosely]]

== M ==
*[[messy]]
*[[milk of human kindness]]
*[[missile]]
*[[monstrous]]

== N ==
*[[normative]]
*[[Norwegian]]

== O ==
*[[obese]]
*[[octagon]]
*[[oddly]]
*[[optimist]]
*[[orchestra]]
*[[oxidation]]

== P ==
*[[particle]]
*[[partnership]]
*[[pathway]]
*[[pertain]]
*[[prevalent]]
*[[prominence]]
*[[psychiatric]]

== Q ==
*[[quail]]
*[[query]]

== R ==
*[[recur]]
*[[relatable]]
*[[relay]]
*[[rooster]]
*[[rouse]]

== S ==
*[[salty]]
*[[shiny]]
*[[shiver]]
*[[shrew]]
*[[simplify]]

== T ==
*[[tariff]]
*[[tint]]
*[[tonal]]
*[[torrent]]
*[[traction]]
*[[trustworthy]]
*[[Turkish]]

== U ==
*[[ultimatum]]
*[[undo]]
*[[unify]]
*[[undertake]]
*[[unlock]]

== V ==
*[[vaporize]]
*[[venue]]
*[[vestige]]
*[[vile]]
*[[villain]]
*[[Volga German]]

== W ==
*[[warmly]]
*[[wean]]
*[[wedge]]
*[[withhold]]
*[[wring]]

== X ==

== Y ==
*[[yikes]]

== Z ==</text>
      <sha1>ph3kgrl2rrf7891evmbo16pbyvz0zgf</sha1>
    </revision>
  </page>
  <page>
    <title>ortopédico</title>
    <ns>0</ns>
    <id>55687</id>
    <revision>
      <id>6123441</id>
      <parentid>5750401</parentid>
      <timestamp>2026-07-24T15:56:11Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123441</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="625" sha1="22wmb0zg6uef1pjtjhwzbs5hnyp5fie" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|sufijo|ortopedia|ico}}.

=== {{adjetivo|es}} ===
{{es.adj}}

;1: Que ejerce la [[ortopedia]] o relativo a ella.
;2 {{csem|medicina}}: Dicho de un miembro del cuerpo: que fue implantado o reconstruido artificialmente tras haberlo perdido.
{{ejemplo|Una pierna '''ortopédica'''.}}

=== {{sustantivo masculino y femenino|es}} ===
{{es.sust|mf}}

;3: {{variante|ortopedista}}.

=== Traducciones ===
{{trad-arriba}}
&lt;!-- formato: {{t+|idioma|&lt;acepción#&gt;|palabra|género}} p. ej. {{t+|fr|1|chose|f}} --&gt;
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>22wmb0zg6uef1pjtjhwzbs5hnyp5fie</sha1>
    </revision>
    <revision>
      <id>6123442</id>
      <parentid>6123441</parentid>
      <timestamp>2026-07-24T15:56:25Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* {{adjetivo|es}} */</comment>
      <origin>6123442</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="625" sha1="pxi70fvg1g4tzwacdzareio0g43ukup" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|sufijo|ortopedia|ico}}.

=== {{adjetivo|es}} ===
{{es.adj}}

;1: Que ejerce la [[ortopedia]] o relativo a ella.
;2 {{csem|medicina}}: Dicho de un miembro del cuerpo: que fue implantado o reconstruido artificialmente tras haberse perdido.
{{ejemplo|Una pierna '''ortopédica'''.}}

=== {{sustantivo masculino y femenino|es}} ===
{{es.sust|mf}}

;3: {{variante|ortopedista}}.

=== Traducciones ===
{{trad-arriba}}
&lt;!-- formato: {{t+|idioma|&lt;acepción#&gt;|palabra|género}} p. ej. {{t+|fr|1|chose|f}} --&gt;
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>pxi70fvg1g4tzwacdzareio0g43ukup</sha1>
    </revision>
  </page>
  <page>
    <title>pindonga</title>
    <ns>0</ns>
    <id>56367</id>
    <revision>
      <id>6123518</id>
      <parentid>5730139</parentid>
      <timestamp>2026-07-25T02:39:28Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123518</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="977" sha1="hzyjjjrhvr1b60fl85l1i4atc90wlmw" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología 1 ===
{{etimología|sufijo|pender|onga}}.

==== {{sustantivo femenino|es}} ====
{{es.sust}}
;1: {{plm|mujer}} [[aficionado|aficionada]] a [[salir]] y [[divertir]]se.
{{ámbito|España}}
{{uso|coloquial|despectivo}}
{{wikisauro|noctámbulo}}

==== {{adjetivo|es}} ====
{{es.adj}}

;2: De segunda marca.
{{uso|coloquial|malsonante}}
{{ámbito|Argentina}}
{{sinónimo|berreta}}

==== {{interjección|es}} ====
;3: {{impropia|Úsase para expresar vehemente rechazo}}.
{{ámbito|Rioplatense}}
{{uso|coloquial|malsonante}}
{{ejemplo|'No den pelota a los que dicen 'qué horrible que está el mundo' y que estamos poco menos que postrados. ¡''Pindonga''!', exclamó Mujica.|c=pagina|t=&quot;Necesitamos un sacudón ético y moral&quot;, afirmó Mujica en el Cerro|f=2009-06-01|u=http://www.larepublica.com.uy/larepublica/2009/06/01/nota/366832}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>hzyjjjrhvr1b60fl85l1i4atc90wlmw</sha1>
    </revision>
  </page>
  <page>
    <title>espiga</title>
    <ns>0</ns>
    <id>66302</id>
    <revision>
      <id>6123536</id>
      <parentid>6093562</parentid>
      <timestamp>2026-07-25T03:09:32Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123536</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="2602" sha1="7k8uxsowdllht3edh9v1defbtlastzd" xml:space="preserve">{{definición}}

== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|la|spica}}.

=== {{sustantivo femenino|es}} ===
{{es.sust}}
[[Archivo:Inflorescence diagram.jpg|thumb|[1] Diagrama de una ''espiga'']]
[[Archivo:Mortise_and_tenon_joint.svg|thumb|(5) Mortaja (izquierda) y espiga (derecha)]]
;1 {{csem|botánica}}: Tipo de [[inflorescencia]] [[racemoso|racemosa]] en la cual el [[eje]] es [[alargado]], con [[cabillo]]s muy cortos o sin ninguno, como en el trigo y el [[espliego]]; sus flores más jóvenes se ubican en el [[ápice]] del mismo.&lt;ref name=&quot;dlc1914&quot; /&gt;&lt;ref name=esp&gt;{{tomoespasa|Tomo=22}}&lt;/ref&gt;

;2: Parte de un [[arma blanca]] que se extiende dentro de su [[empuñadura]] o, de una herramienta en su mango.&lt;ref name=esp /&gt;

;3: {{plm|parte}} [[superior]] de la [[espada]] en donde se asegura la [[guarnición]].&lt;ref name=&quot;dlc1914&quot;&gt;{{DLC1914|441}}&lt;/ref&gt;

;4: {{plm|hilo}} o [[aguja]] de [[metal precioso]] que servía para sujetar los [[alfiler]]es, [[imperdible]]s y [[medallón|medallones]] a las [[vestidura]]s de las [[menina]]s.

;5 {{csem|carpintería}}: {{plm|protuberancia}} que encaja en la cavidad de la [[mortaja]] para unir dos tablas o maderos. Se suelen encolar.
{{sinónimo|tesillo}}

;6 {{csem|náutica}}: {{plm|trozo}} comprendido entre el [[nervio]] del [[foque]] y el [[extremo]] de fuera de un [[botalón]]; trozo que en este [[caso]] sustituye al botalón de [[petifoque]] y sirve para [[alargar]] esta [[vela]].
{{sinónimo|galope}}.

;7 {{csem|náutica}}: {{plm|remate}} superior del [[calcés]] de un [[palo]] o [[mastelero]], en el cual se [[encajar|encaja]] el [[agujero]] [[cuadrado]] del [[tamborete]].

;8 {{csem|náutica}}: {{plm|cualquier}} remate cuadrado, labrado en la parte superior de una percha o asta, para encajar en él una perilla o tamborete.

;9 {{csem|náutica}}: {{plm|punta}} [[más]] [[alto|alta]] de una [[vela de cuchillo]].

;10 {{csem|escultura}}: {{plm|porción}} de [[piedra]] o [[mármol]] que se [[respetar|respeta]] al [[ejecutar]] una [[estatua]], para asegurar las partes [[demasiado]] [[débil]]es que por el [[peso]] se [[poder|podrían]] [[quebrar]].

=== Locuciones ===
* [[quedarse a la espiga]]: Permanecer hasta el final para recoger o hacer uso de lo no aprovechado o desechado por los demás
* [[en espiga]]: a [[punto]] de [[echar]] espigas.

=== Véase también ===
{{W}}

=== Traducciones ===
{{trad-arriba}}
{{t|ca|t1=espiga}}
{{t|en|t1=ear}}
{{t|eo|t1=spiko}}
{{t|fr|a1=1|t1=épi}}
{{t|en|a1=1|t1=spike}}
{{t|it|t1=spiga}}
{{t|pt|t1=espiga}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>7k8uxsowdllht3edh9v1defbtlastzd</sha1>
    </revision>
  </page>
  <page>
    <title>taught</title>
    <ns>0</ns>
    <id>73918</id>
    <revision>
      <id>6123500</id>
      <parentid>5912322</parentid>
      <timestamp>2026-07-25T00:33:19Z</timestamp>
      <contributor>
        <username>Adelpine</username>
        <id>34679</id>
      </contributor>
      <comment>Agrega una transcripción AFI tomada de [[en:taught]] y precisa los hablantes de otras</comment>
      <origin>6123500</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="880" sha1="q60nwiyayk1otiou7dopk6sdxrxj2b6" xml:space="preserve">== {{lengua|en}} ==
{{pron-graf|leng=en
|pron=Received Pronunciation|fono=tɔːt|audio=en-uk-taught.ogg|aunota=Gloucestershire
|2pron=General American y dialectos de los EE. UU., sin la fusión cot-caught|2fono=tɔt|2audio=LL-Q1860 (eng)-Assorted-Interests-taught.wav|2aunota=Nueva York
|3pron=General American, Atlantic Canadian, dialecto de los Grandes Lagos|3fono=tɑt|3audio=en-us-taught.ogg|3aunota=California|3audio2=LL-Q1860 (eng)-Semperosculto-taught.wav|3aunota2=EE. UU.|3audio3=LL-Q1860 (eng)-Wodencafe-taught.wav|3aunota3=Texas|3audio4=LL-Q1860 (eng)-Grendelkhan-taught.wav|3aunota4=Connecticut
|4pron=Standard Canadian, Boston, Maine|4fono=tɒt
|5pron=Australia, Nueva Zelanda|5fono=toːt
|6pron=Escocia|6fono=tɔt
|7pron=Irlanda|7fono=t̪ɒːt
|ls=1
}}

=== Forma verbal ===
;1: {{fv-en|teach|pas}}.
;2: {{fv-en|teach|part}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>q60nwiyayk1otiou7dopk6sdxrxj2b6</sha1>
    </revision>
  </page>
  <page>
    <title>hiru</title>
    <ns>0</ns>
    <id>78868</id>
    <revision>
      <id>6123487</id>
      <parentid>6123197</parentid>
      <timestamp>2026-07-24T23:12:08Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <origin>6123487</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="892" sha1="jb846zun495arjms5wwnrni0394x1z8" xml:space="preserve">== {{lengua|eu}} ==
{{pron-graf|leng=eu|v=hirur}}

=== Etimología ===
{{etimología|leng=eu|euq-pro|*(h)irur}}.&lt;ref&gt;{{referencia | autor = Trask, Robert Lawrence | fecha = 2008 | url = https://www.sussex.ac.uk/webteam/gateway/file.php?name=lxwp23-08-edb.pdf | título = Etymological Dictionary of Basque | cat=libro | p = 389 | inst = Universidad de Sussex | editor = Wheeler, Max}}&lt;/ref&gt;

=== {{adjetivo cardinal|eu}} ===
;1: {{plm|tres}}.

[[Categoría:EU:Números]]

=== Véase también ===
{{W|idioma=eu}}

== {{lengua|ja|escritura=romaji}} ==
{{pron-graf|leng=ja|fone=çiɾɯ̟ᵝ}}

=== Etimología ===
{{etimología|leng=ja}}

=== {{sustantivo|ja}} ===
'''hiru''': [[昼]] ([[ひる]])

;1: {{plm|día}}

== {{lengua|zai}} ==
{{pron-graf|leng=zai}}

=== Etimología ===
{{etimología|leng=zai}}

=== {{adverbio|zai}} ===
;1: {{plm|adelante}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>jb846zun495arjms5wwnrni0394x1z8</sha1>
    </revision>
  </page>
  <page>
    <title>sei</title>
    <ns>0</ns>
    <id>78870</id>
    <revision>
      <id>6123484</id>
      <parentid>5873892</parentid>
      <timestamp>2026-07-24T23:05:28Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <origin>6123484</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1110" sha1="cqmv9aktsw9jvgf0i4ntej5pw98wgf2" xml:space="preserve">== {{lengua|eu}} ==
{{pron-graf|leng=eu}}

=== Etimología ===
{{etimología|leng=eu|euq-pro|*sei}}. No relacionado con el latín ''[[sex#Latín|sex]]'' ni prestado de lenguas romances vecinas.&lt;ref&gt;{{referencia | autor = Trask, Robert Lawrence | fecha = 2008 | url = https://www.sussex.ac.uk/webteam/gateway/file.php?name=lxwp23-08-edb.pdf | título = Etymological Dictionary of Basque | cat=libro | p = 338 | inst = Universidad de Sussex | editor = Wheeler, Max | obs = Todas las variedades romances vecinas tienen una sibilante final en su palabra para 'seis', y por lo tanto un préstamo debería haber producido un ''*seits'' o ''*seis'', en el mejor de los casos.}}&lt;/ref&gt;

=== {{adjetivo cardinal|eu}} ===
;1: {{plm|seis}}.

[[Categoría:EU:Números]]

=== Véase también ===
{{W|idioma=eu}}

== {{lengua|it}} ==
{{pron-graf|leng=it}}

=== Etimología ===
{{etimología|leng=it}}

=== {{adjetivo cardinal|it}} ===
;1: {{plm|seis}}

=== {{adjetivo ordinal|it}} ===
;2: {{plm|seis}}

=== {{sustantivo masculino|it}} ===
;3: {{plm|seis}}

[[Categoría:IT:Números]]

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>cqmv9aktsw9jvgf0i4ntej5pw98wgf2</sha1>
    </revision>
    <revision>
      <id>6123485</id>
      <parentid>6123484</parentid>
      <timestamp>2026-07-24T23:07:06Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <origin>6123485</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1387" sha1="85tkr08t1p0creech4bbcg5eoybb8fe" xml:space="preserve">== {{lengua|eu}} ==
{{pron-graf|leng=eu}}

=== Etimología ===
{{etimología|leng=eu|euq-pro|*sei}}.&lt;ref&gt;{{referencia | autor = Trask, Robert Lawrence | fecha = 2008 | url = https://www.sussex.ac.uk/webteam/gateway/file.php?name=lxwp23-08-edb.pdf | título = Etymological Dictionary of Basque | cat=libro | p = 388 | inst = Universidad de Sussex | editor = Wheeler, Max}}&lt;/ref&gt; No relacionado con el latín ''[[sex#Latín|sex]]'' ni prestado de lenguas romances vecinas.&lt;ref&gt;{{referencia | autor = Trask, Robert Lawrence | fecha = 2008 | url = https://www.sussex.ac.uk/webteam/gateway/file.php?name=lxwp23-08-edb.pdf | título = Etymological Dictionary of Basque | cat=libro | p = 338 | inst = Universidad de Sussex | editor = Wheeler, Max | obs = Todas las variedades romances vecinas tienen una sibilante final en su palabra para 'seis', y por lo tanto un préstamo debería haber producido un ''*seits'' o ''*seis'', en el mejor de los casos.}}&lt;/ref&gt;

=== {{adjetivo cardinal|eu}} ===
;1: {{plm|seis}}.

[[Categoría:EU:Números]]

=== Véase también ===
{{W|idioma=eu}}

== {{lengua|it}} ==
{{pron-graf|leng=it}}

=== Etimología ===
{{etimología|leng=it}}

=== {{adjetivo cardinal|it}} ===
;1: {{plm|seis}}

=== {{adjetivo ordinal|it}} ===
;2: {{plm|seis}}

=== {{sustantivo masculino|it}} ===
;3: {{plm|seis}}

[[Categoría:IT:Números]]

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>85tkr08t1p0creech4bbcg5eoybb8fe</sha1>
    </revision>
    <revision>
      <id>6123486</id>
      <parentid>6123485</parentid>
      <timestamp>2026-07-24T23:10:40Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <origin>6123486</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1395" sha1="q1u63a3so7p5n3bo5n1bblzpjxtvdtc" xml:space="preserve">== {{lengua|eu}} ==
{{pron-graf|leng=eu}}

=== Etimología ===
{{etimología|leng=eu|euq-pro|*sei}}.&lt;ref&gt;{{referencia | autor = Trask, Robert Lawrence | fecha = 2008 | url = https://www.sussex.ac.uk/webteam/gateway/file.php?name=lxwp23-08-edb.pdf | título = Etymological Dictionary of Basque | cat=libro | p = 388 | inst = Universidad de Sussex | editor = Wheeler, Max}}&lt;/ref&gt; No relacionado con el latín ''[[sex#Latín|sex]]'' ni prestado de lenguas romances vecinas.&lt;ref&gt;{{referencia | autor = Trask, Robert Lawrence | fecha = 2008 | url = https://www.sussex.ac.uk/webteam/gateway/file.php?name=lxwp23-08-edb.pdf | título = Etymological Dictionary of Basque | cat=libro | p = 338 | inst = Universidad de Sussex | editor = Wheeler, Max | obs = Todas las variedades romances vecinas tienen una sibilante final en su palabra para 'seis', y por lo tanto un préstamo debería haber producido un ''*seits'' o ''*seis'', en el mejor de los casos.}}&lt;/ref&gt;

=== {{adjetivo cardinal|eu}} ===
;1: {{plm|seis}}.

[[Categoría:EU:Números]]

=== Véase también ===
{{W|idioma=eu}}

== {{lengua|it}} ==
{{pron-graf|leng=it}}

=== Etimología ===
{{etimología|leng=it|la|sex}}.

=== {{adjetivo cardinal|it}} ===
;1: {{plm|seis}}

=== {{adjetivo ordinal|it}} ===
;2: {{plm|seis}}

=== {{sustantivo masculino|it}} ===
;3: {{plm|seis}}

[[Categoría:IT:Números]]

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>q1u63a3so7p5n3bo5n1bblzpjxtvdtc</sha1>
    </revision>
  </page>
  <page>
    <title>zazpi</title>
    <ns>0</ns>
    <id>78871</id>
    <revision>
      <id>6123491</id>
      <parentid>4682957</parentid>
      <timestamp>2026-07-24T23:41:21Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <origin>6123491</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="543" sha1="lqctk2fvs46rphrfpp3tscsq5o6ez0b" xml:space="preserve">== {{lengua|eu}} ==
{{pron-graf|leng=eu}}

=== Etimología ===
{{etimología|leng=eu|euq-pro|*zazpi}}.&lt;ref&gt;{{referencia | autor = Trask, Robert Lawrence | fecha = 2008 | url = https://www.sussex.ac.uk/webteam/gateway/file.php?name=lxwp23-08-edb.pdf | título = Etymological Dictionary of Basque | cat=libro | p = 388 | inst = Universidad de Sussex | editor = Wheeler, Max}}&lt;/ref&gt;

=== {{adjetivo cardinal|eu}} ===
;1: {{plm|siete}}.

[[Categoría:EU:Números]]

=== Véase también ===
{{W|idioma=eu}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>lqctk2fvs46rphrfpp3tscsq5o6ez0b</sha1>
    </revision>
    <revision>
      <id>6123492</id>
      <parentid>6123491</parentid>
      <timestamp>2026-07-24T23:53:17Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <origin>6123492</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1516" sha1="oz7lzcn8p5f2srb08bkdvbz2ecluba1" xml:space="preserve">== {{lengua|eu}} ==
{{pron-graf|leng=eu}}

=== Etimología ===
{{etimología|leng=eu|euq-pro|*zazpi}}.&lt;ref&gt;{{referencia | autor = Trask, Robert Lawrence | fecha = 2008 | url = https://www.sussex.ac.uk/webteam/gateway/file.php?name=lxwp23-08-edb.pdf | título = Etymological Dictionary of Basque | cat=libro | p = 388 | inst = Universidad de Sussex | editor = Wheeler, Max}}&lt;/ref&gt; Mitxelena sugiere ''*bortza-z-bi'' ('cinco y dos'), pero es altamente improbable.&lt;ref&gt;{{referencia | autor = Trask, Robert Lawrence | fecha = 2008 | url = https://www.sussex.ac.uk/webteam/gateway/file.php?name=lxwp23-08-edb.pdf | título = Etymological Dictionary of Basque | cat=libro | p = 369 | inst = Universidad de Sussex | editor = Wheeler, Max | obs = Requiere que se haya perdido la primera sílaba original (cuestionable).}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 543 | obs = Orduña (2011a, p. 134) replica que esto es muy improbable ya que la presencia del artículo implica una forma tardía, medieval, para la formación ''ex novo'' de un numeral bajo, ''zazpi'' es vasco común por lo que debe ser anterior a la fragmentación dialectal vasca y no muestra variación alguna.}}&lt;/ref&gt;

=== {{adjetivo cardinal|eu}} ===
;1: {{plm|siete}}.

[[Categoría:EU:Números]]

=== Véase también ===
{{W|idioma=eu}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>oz7lzcn8p5f2srb08bkdvbz2ecluba1</sha1>
    </revision>
  </page>
  <page>
    <title>zortzi</title>
    <ns>0</ns>
    <id>78873</id>
    <revision>
      <id>6123497</id>
      <parentid>5814676</parentid>
      <timestamp>2026-07-25T00:18:42Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <origin>6123497</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="588" sha1="g8wbr4zy2bqh9591xc9up077y3dq3vn" xml:space="preserve">== {{lengua|eu}} ==
{{pron-graf|leng=eu|audio=Eus-zortzi.ogg|aunota=San Sebastián}}

=== Etimología ===
{{etimología|leng=eu|euq-pro|*zortzi}}.&lt;ref&gt;{{referencia | autor = Trask, Robert Lawrence | fecha = 2008 | url = https://www.sussex.ac.uk/webteam/gateway/file.php?name=lxwp23-08-edb.pdf | título = Etymological Dictionary of Basque | cat=libro | p = 386 | inst = Universidad de Sussex | editor = Wheeler, Max}}&lt;/ref&gt;

==== {{adjetivo cardinal|eu}} ====
;1 {{csem|leng=eu|números}}: {{plm|ocho}}.

==== Véase también ====
{{W|idioma=eu}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>g8wbr4zy2bqh9591xc9up077y3dq3vn</sha1>
    </revision>
  </page>
  <page>
    <title>WTF</title>
    <ns>0</ns>
    <id>86008</id>
    <revision>
      <id>6123474</id>
      <parentid>5883499</parentid>
      <timestamp>2026-07-24T22:05:11Z</timestamp>
      <contributor>
        <username>Jh38</username>
        <id>175577</id>
      </contributor>
      <comment>/* {{sigla|en}} */</comment>
      <origin>6123474</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="885" sha1="06oxr3aolpbkk2zsdqtsnpoejw18fi6" xml:space="preserve">== {{lengua|en}} ==
{{pron-graf|leng=en}}

=== Etimología 1 ===
{{etimología2|Siglas del inglés &quot;[[what|What]] the [[fuck]]&quot; o &quot;[[who]] the fuck&quot;.|leng=en}}

==== {{sigla|en}} ====
;1: ¿Pero qué coño?, ¿Pero qué demonios? , ¿Pero qué cojones? ([[España]]), ¿Qué chucha? ([[Chile]], [[Perú]]), ¿Qué mierda?, ¿Qué concha? ([[Chile]], [[Argentina]]), ¿Qué paso aquí?, ¿Qué diantres?, ¿Qué carajos?, ¿Qué chingados?, ¿Pero qué chingados?, ¿Pero qué verga?, ¿Pero qué verga esta pasando? ([[México]]), ¿Qué puñeta? ([[Puerto Rico]]), ¿Cómo es la verga? ([Maracaibo-Venezuela])
{{uso|leng=en|malsonante|jerga|internet}}

=== Etimología 2 ===
{{etimología2|Siglas del inglés &quot;[[World]] [[Taekwondo]] [[Federation]]&quot;.|leng=en}}

==== {{sigla|en}} ====
;1: Iniciales de la Federación Mundial de [[Taekwondo]].

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>06oxr3aolpbkk2zsdqtsnpoejw18fi6</sha1>
    </revision>
  </page>
  <page>
    <title>mortaja</title>
    <ns>0</ns>
    <id>94449</id>
    <revision>
      <id>6123535</id>
      <parentid>5738632</parentid>
      <timestamp>2026-07-25T03:07:29Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* {{sustantivo femenino|es}} */</comment>
      <origin>6123535</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="2000" sha1="e0e1kg5yy96swwaojse0pk9gvqca5lc" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología 1 ===
{{etimología|la|mortualia|significado=no}}, &quot;[[vestidura]]s [[fúnebre]]s&quot;, y esta sustantivación  {{etim|la|mortualis}},  {{etim|la|mortuarius}}, {{etim|la|mortuus}}, participio {{etim|la|mori}}, &quot;[[morir]]&quot;, en última instancia  {{etim|ine-pro|*mr̥-}} o {{l+|ine-pro|*mr̥-to-}}.

==== {{sustantivo femenino|es}} ====
{{es.sust}}
;1: {{plm|vestidura}} [[simple]] con que se [[envolver|envuelve]] a los [[difunto]]s para su [[entierro]].
{{sinónimo|sudario}}.
;2: {{plm|hoja}} de [[papel]] con que se enrolla el contenido de un [[cigarrillo]].
{{ámbito|' América cita requerida}}

==== Locuciones ====
* [[mortaja de esparto]]: esterilla

==== Traducciones ====
{{trad-arriba}}
{{t|de|a1=1|t1=Totenhemd}}
{{t|ar|a1=1|t1=كفن}}
{{t|hy|a1=1|t1=սավան}}
{{t|ca|a1=1|t1=mortalla|g1=f}}
{{t|yue|a1=1|t1=壽衣}}
{{t|fa|a1=1|t1=کفن}}
{{t|fi|a1=1|t1=käärinliina|t2=kuolinvaate}}
{{t|fr|a1=1|t1=linceul|g1=m|t2=suaire|g2=m}}
{{t|gd|a1=1|t1=anart-bàis|g1=m}}
{{t|el|a1=1|t1=σάβανο|g1=n}}
{{t|hu|a1=1|t1=halotti lepel}}
{{t|io|a1=1|t1=sepulto-tuko}}
{{t|en|a1=1|t1=shroud|t2=winding sheet}}
{{t|ku|a1=1|t1=kefen}}
{{t|nl|a1=1|t1=lijkgewaad|t2=lijkwade|g2=c}}
{{t|pl|a1=1|t1=całun}}
{{t|pt|a1=1|t1=sudário}}
{{t|ru|a1=1|t1=плащаница|t2=саван|g2=m}}
{{t|sv|a1=1|t1=svepning|g1=c}}
{{t|tr|a1=1|t1=kefen}}
{{t|uk|a1=1|t1=плащаниця}}
{{t|ur|a1=1|t1=کفن}}
{{trad-abajo}}

=== Etimología 2 ===
{{etimología|fro|mortaige}}, y este de origen incierto, quizá {{etim|ar|رز}} (rázza), &quot;[[encajar]]&quot;. Compárese el moderno {{l+|fr|mortaise}} o el inglés {{l+|en|mortise}}.

==== {{sustantivo femenino|es}} ====
{{es.sust}}
;1 {{csem|carpintería}}: {{plm|depresión}} o [[calado]] que se [[practicar|practica]] en una [[superficie]] para hacer encajar la [[espiga]].
{{sinónimo|muesca}}
{{antónimo|espiga}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>e0e1kg5yy96swwaojse0pk9gvqca5lc</sha1>
    </revision>
    <revision>
      <id>6123537</id>
      <parentid>6123535</parentid>
      <timestamp>2026-07-25T03:09:52Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123537</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="2089" sha1="2j27h4hat5gp0s1aecwd9xfqx3s0dmg" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología 1 ===
{{etimología|la|mortualia|significado=no}}, &quot;[[vestidura]]s [[fúnebre]]s&quot;, y esta sustantivación  {{etim|la|mortualis}},  {{etim|la|mortuarius}}, {{etim|la|mortuus}}, participio {{etim|la|mori}}, &quot;[[morir]]&quot;, en última instancia  {{etim|ine-pro|*mr̥-}} o {{l+|ine-pro|*mr̥-to-}}.

==== {{sustantivo femenino|es}} ====
{{es.sust}}
;1: {{plm|vestidura}} [[simple]] con que se [[envolver|envuelve]] a los [[difunto]]s para su [[entierro]].
{{sinónimo|sudario}}.
;2: {{plm|hoja}} de [[papel]] con que se enrolla el contenido de un [[cigarrillo]].
{{ámbito|' América cita requerida}}

==== Locuciones ====
* [[mortaja de esparto]]: esterilla

==== Traducciones ====
{{trad-arriba}}
{{t|de|a1=1|t1=Totenhemd}}
{{t|ar|a1=1|t1=كفن}}
{{t|hy|a1=1|t1=սավան}}
{{t|ca|a1=1|t1=mortalla|g1=f}}
{{t|yue|a1=1|t1=壽衣}}
{{t|fa|a1=1|t1=کفن}}
{{t|fi|a1=1|t1=käärinliina|t2=kuolinvaate}}
{{t|fr|a1=1|t1=linceul|g1=m|t2=suaire|g2=m}}
{{t|gd|a1=1|t1=anart-bàis|g1=m}}
{{t|el|a1=1|t1=σάβανο|g1=n}}
{{t|hu|a1=1|t1=halotti lepel}}
{{t|io|a1=1|t1=sepulto-tuko}}
{{t|en|a1=1|t1=shroud|t2=winding sheet}}
{{t|ku|a1=1|t1=kefen}}
{{t|nl|a1=1|t1=lijkgewaad|t2=lijkwade|g2=c}}
{{t|pl|a1=1|t1=całun}}
{{t|pt|a1=1|t1=sudário}}
{{t|ru|a1=1|t1=плащаница|t2=саван|g2=m}}
{{t|sv|a1=1|t1=svepning|g1=c}}
{{t|tr|a1=1|t1=kefen}}
{{t|uk|a1=1|t1=плащаниця}}
{{t|ur|a1=1|t1=کفن}}
{{trad-abajo}}

=== Etimología 2 ===
{{etimología|fro|mortaige}}, y este de origen incierto, quizá {{etim|ar|رز}} (rázza), &quot;[[encajar]]&quot;. Compárese el moderno {{l+|fr|mortaise}} o el inglés {{l+|en|mortise}}.
[[Archivo:Mortise_and_tenon_joint.svg|thumb|(1) Mortaja (izquierda) y espiga (derecha)]]

==== {{sustantivo femenino|es}} ====
{{es.sust}}
;1 {{csem|carpintería}}: {{plm|depresión}} o [[calado]] que se [[practicar|practica]] en una [[superficie]] para hacer encajar la [[espiga]].
{{sinónimo|muesca}}
{{antónimo|espiga}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>2j27h4hat5gp0s1aecwd9xfqx3s0dmg</sha1>
    </revision>
  </page>
  <page>
    <title>estancar</title>
    <ns>0</ns>
    <id>100497</id>
    <revision>
      <id>6123477</id>
      <parentid>6117841</parentid>
      <timestamp>2026-07-24T22:10:40Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>ítems</comment>
      <origin>6123477</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="978" sha1="ovm87ozhd4877zg4lk6bqccj5j2fmpw" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|incierta}}:
* Del latín vulgar {{l+|la-vul|*stānticāre}}, del latín {{l+|la|stans|stāntis}}.
* Del latín vulgar {{l+|la-vul|*extankāre}}, del galo {{l+|cel-gau|*tankos|glosa=quietud}}.

=== {{verbo transitivo|es}} ===
;1: {{plm|detener}} o [[impedir]] el curso de un [[líquido]].&lt;ref&gt;{{DRAE2001}}&lt;/ref&gt;
{{uso|utcp}}.
;2: {{plm|parar}}, suspender o interrumpir la [[marcha]] de un [[proceso]].
{{uso|utcp}}.
;3: {{plm|impedir}} o evitar la venta libre de alguna mercancía o materia prima por establecerse el [[monopolio]] de esta.
;4: {{plm|impedir}} que algún objeto o asunto en particular se actualice, hacer que permanezca en un mismo estado a pesar del paso del tiempo.
{{uso|por extensión|utcp}}

=== Conjugación ===
{{es.v}}

=== Traducciones ===
{{trad-arriba}}
{{t|fr|a1=1|a2=3|t1=retenir|t2=monopoliser}}
{{t|pt|a1=1-2|t1=estancar}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>ovm87ozhd4877zg4lk6bqccj5j2fmpw</sha1>
    </revision>
  </page>
  <page>
    <title>opportunities</title>
    <ns>0</ns>
    <id>102872</id>
    <revision>
      <id>6123397</id>
      <parentid>6044944</parentid>
      <timestamp>2026-07-24T12:44:43Z</timestamp>
      <contributor>
        <username>Adelpine</username>
        <id>34679</id>
      </contributor>
      <comment>Agrega algunas transcripciones AFI elaboradas a partir de las de [[opportunity]] + /z/</comment>
      <origin>6123397</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1188" sha1="qbu75hjeklrbq66k6g2wetw8giiblch" xml:space="preserve">== {{lengua|en}} ==
{{pron-graf|leng=en
|pron=Received Pronunciation|fono=ˌɒp.əˈtjuː.nɪ.tɪz|fono2=ˌɒp.əˈt͡ʃuː.nɪ.tɪz|fono2=ˌɒp.əˈt͡ʃuː.nɪ.tɪz|fone3=ˌɒp.əˈt͡ʃʉː.nɪ.tɪz|fnota3=goose fronting|fone4=ˌɒp.əˈt͡ʃy̯ː.nɪ.tɪz|fnota4=goose fronting|audio4=|aunota4=Gran Bretaña,  [ˌɒp.əˈt͡ʃɪy̯.nɪ.tɪz]
|2pron=General American, Canadá|2fono=ˌɑ.pɚˈtu.nə.tiz|2fone2=ˌɑ.pɚˈtu.nə.ɾiz|2fone3=ˌɑ.pɚˈtʉ.nə.ɾiz|2fnota3=goose fronting|2fone4=ˌɑ.pɚˈty.nɪ.tiz|2fnota4=goose fronting|2fone5=ˌɑ.pɚˈty.nɪ.ɾiz|2fnota5=goose fronting|2audio5=en-us-opportunities.ogg|2aunota5=California|2fone6=ˌɑ.pɚˈt͡ʃu.nɪ.ɾiz|2fone7=ˌɑ.pɚˈt͡ʃʉ.nɪ.ɾiz|2fnota7=goose fronting|2audio7=|2aunota7=Texas, [ˌɑ.pɚˈt͡ʃɪʉ̯.nɪ.ɾiz]|2fone8=ˌɑ.pɚˈt͡ʃɪ.nɪ.ɾiz|2fnota8=goose fronting|2audio8=|2aunota8=Connecticut
|3pron=Australia|3fono=ˌɔp.əˈtjʉː.nə.tiz|3fnota1=culto|3fone2=ˌɔp.əˈtjʉː.nə.ɾiz|3fnota2=culto|3fono3=ˌɔp.əˈt͡ʃʉː.nə.tiz|3fone4=ˌɔp.əˈt͡ʃʉː.nə.ɾiz
|ls=5
}}

=== Forma sustantiva ===

;1: {{forma sustantivo plural|leng=en|opportunity}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>qbu75hjeklrbq66k6g2wetw8giiblch</sha1>
    </revision>
  </page>
  <page>
    <title>indar</title>
    <ns>0</ns>
    <id>117996</id>
    <revision>
      <id>6123488</id>
      <parentid>5903398</parentid>
      <timestamp>2026-07-24T23:17:19Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <origin>6123488</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="556" sha1="s1663j0mvmujvmfofpqigpcydjaciq3" xml:space="preserve">== {{lengua|eu}} ==
{{pron-graf|leng=eu}}

=== Etimología ===
{{etimología|leng=eu|euq-pro|*indar}}.&lt;ref&gt;{{referencia | autor = Trask, Robert Lawrence | fecha = 2008 | url = https://www.sussex.ac.uk/webteam/gateway/file.php?name=lxwp23-08-edb.pdf | título = Etymological Dictionary of Basque | cat=libro | p = 20 | inst = Universidad de Sussex | editor = Wheeler, Max}}&lt;/ref&gt;

=== {{sustantivo inanimado|eu}} ===
;1: {{plm|fuerza}}

=== Véase también ===
{{W|idioma=eu}}

=== Declinación ===
{{eu.sust|inan}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>s1663j0mvmujvmfofpqigpcydjaciq3</sha1>
    </revision>
  </page>
  <page>
    <title>Antumalén</title>
    <ns>0</ns>
    <id>131154</id>
    <revision>
      <id>6123455</id>
      <parentid>5191356</parentid>
      <timestamp>2026-07-24T18:28:59Z</timestamp>
      <contributor>
        <username>InternetArchiveBot</username>
        <id>128971</id>
      </contributor>
      <comment>Rescuing 1 sources and tagging 0 as dead.) #IABot (v2.0.9.5</comment>
      <origin>6123455</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="545" sha1="5y7lykgg62j8v3qxto004ckdrrlk1k6" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología}} &lt;!-- niña del sol --&gt;

=== {{sustantivo propio|es}} ===
;1: {{antropónimo femenino}}&lt;ref&gt;(Asistente Educacional NOMBRES MAPUCHES [https://web.archive.org/web/20160305003158/http://asistenteeducacional.bligoo.com/content/view/244349/NOMBRES-MAPUCHES.html%26page%3D3%26reverse%3Dtrue])&lt;/ref&gt;

=== Traducciones ===
{{trad-arriba}}
&lt;!-- formato: {{t+|idioma|&lt;acepción#&gt;|palabra|género}} p. ej. {{t+|fr|1|chose|f}} --&gt;
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>5y7lykgg62j8v3qxto004ckdrrlk1k6</sha1>
    </revision>
  </page>
  <page>
    <title>ciclo</title>
    <ns>0</ns>
    <id>145502</id>
    <revision>
      <id>6123400</id>
      <parentid>5859173</parentid>
      <timestamp>2026-07-24T12:48:00Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación añadida</comment>
      <origin>6123400</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="759" sha1="6weblqx6a741x8g3cpszsmzj11xtf8e" xml:space="preserve">{{desambiguación|cicló}}

== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|la|cyclus}}, {{etim|grc|κυκλός}}, {{etim|ine-pro|*kuklo|ciclo}}, *[[kweklo]]. El grado pleno de esta raíz está preservado en el inglés [[wheel]]&lt; inglés antiguo [[hweol]] &lt; proto-germánico *[[hwehol]].

=== {{sustantivo masculino|es}} ===
{{es.sust}}

;1: {{plm|periodo}} de tiempo con unas características comunes, en contraposición al periodo anterior o posterior, que tendrá unas características diferentes.

;2 {{csem|ciclismo}}: {{plm|bicicleta}}.

=== Véase también ===
{{w}}

=== Traducciones ===
{{trad-arriba}}
{{t|gl|a1=1|t1=ciclo}}
{{t|en|a1=1|t1=cycle}}
{{t|it|a1=1|t1=ciclo}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>6weblqx6a741x8g3cpszsmzj11xtf8e</sha1>
    </revision>
  </page>
  <page>
    <title>Palomo</title>
    <ns>0</ns>
    <id>153254</id>
    <revision>
      <id>6123436</id>
      <parentid>5779043</parentid>
      <timestamp>2026-07-24T15:46:15Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123436</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="257" sha1="mplmphzqfzxn6t7gzq196xx8msrwnf1" xml:space="preserve">{{desambiguación|palomo}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología}}

=== {{sustantivo propio|es}} ===

;1: {{apellido}}.

=== Véase también ===
{{w}}
&lt;!-- http://www.heraldica.es/ --&gt;

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>mplmphzqfzxn6t7gzq196xx8msrwnf1</sha1>
    </revision>
  </page>
  <page>
    <title>Conor</title>
    <ns>0</ns>
    <id>162190</id>
    <revision>
      <id>6123503</id>
      <parentid>5474668</parentid>
      <timestamp>2026-07-25T01:06:18Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123503</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="366" sha1="8utl0zxsir3tabterrv527mz6x5jtdg" xml:space="preserve">{{desambiguación|conor}}
== {{lengua|en}} ==
{{pron-graf|leng=en|v1=Connor}}

=== Etimología 1 ===
{{etimología|leng=en|ga|Conchúr}}, variante moderna del nombre {{l+|sga|Conchobar}}, significando este &quot;{{l+|es|amante}} de los {{l+|es|lobos}}&quot;.

==== {{sustantivo propio|en}} ====
;1: {{antropónimo masculino|leng=en}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>8utl0zxsir3tabterrv527mz6x5jtdg</sha1>
    </revision>
  </page>
  <page>
    <title>gelatina</title>
    <ns>0</ns>
    <id>168792</id>
    <revision>
      <id>6123447</id>
      <parentid>5727505</parentid>
      <timestamp>2026-07-24T16:19:54Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* Etimología 1 */</comment>
      <origin>6123447</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="820" sha1="byh0ax0hbsv3esyxixvmlrmlx8obq0i" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología 1 ===
{{etimología|it|gelatina}}. Doblete de [[gel]] y [[helado]].

==== {{sustantivo femenino|es}} ====
{{es.sust}}
;1: {{plm|sustancia}} [[coloidal]], [[sólida]] y [[transparente]] obtenida a partir de la [[cocción]] de algunas partes de los [[animal]]es como [[tejido]] [[conjuntivo]], [[hueso]]s y [[cartílagos]].
;2 {{csem|alimentos}}: {{plm|alimento}} obtenido con una [[sustancia]] sólida, gelatinosa y transparente mezclada con [[zumo]] de [[fruta]]s.
{{ejemplo|Para preparar ''gelatina'' de fresa necesitamos las fresas, el azúcar y el licor de almendra amarga.}}
{{sinónimo|jalea}}.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{t|pl|a1=1|t1=żelatyna|t2=galaretka}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>byh0ax0hbsv3esyxixvmlrmlx8obq0i</sha1>
    </revision>
    <revision>
      <id>6123448</id>
      <parentid>6123447</parentid>
      <timestamp>2026-07-24T16:37:36Z</timestamp>
      <contributor>
        <username>~2026-34597-22</username>
        <id>183061</id>
      </contributor>
      <comment>imagen</comment>
      <origin>6123448</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="882" sha1="5ja2c6kv5mg1c6bmsjzk5fcm6i22mby" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología 1 ===
{{etimología|it|gelatina}}. Doblete de [[gel]] y [[helado]].

==== {{sustantivo femenino|es}} ====
{{es.sust}}
[[File:Small orange jelly.jpg|thumb|[2] gelatina de naranja]]
;1: {{plm|sustancia}} [[coloidal]], [[sólida]] y [[transparente]] obtenida a partir de la [[cocción]] de algunas partes de los [[animal]]es como [[tejido]] [[conjuntivo]], [[hueso]]s y [[cartílagos]].
;2 {{csem|alimentos}}: {{plm|alimento}} obtenido con una [[sustancia]] sólida, gelatinosa y transparente mezclada con [[zumo]] de [[fruta]]s.
{{ejemplo|Para preparar ''gelatina'' de fresa necesitamos las fresas, el azúcar y el licor de almendra amarga.}}
{{sinónimo|jalea}}.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{t|pl|a1=1|t1=żelatyna|t2=galaretka}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>5ja2c6kv5mg1c6bmsjzk5fcm6i22mby</sha1>
    </revision>
  </page>
  <page>
    <title>sequor</title>
    <ns>0</ns>
    <id>172445</id>
    <revision>
      <id>6123505</id>
      <parentid>5904632</parentid>
      <timestamp>2026-07-25T01:35:32Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* Conjugación */</comment>
      <origin>6123505</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="3483" sha1="9xjyleo12zbu8qw39ufemetylrefeyz" xml:space="preserve">== {{lengua|la}} ==
{{pron-graf|leng=la|pron=clásico|fone=ˈsɛ.kʷɔr}}

=== Etimología ===
{{etimología|leng=la|itc-pro|*sekʷ-}}e/o-, y este del protoindoeuropeo {{l+|ine-pro|ine=x|*sekʷ-}} (&quot;[[seguir]]&quot;, &quot;[[acompañar]]&quot;).&lt;ref name=&quot;vaan&quot;&gt;{{DeVaan|555-556}}&lt;/ref&gt; Compárese el sánscrito {{l+|sa|सचते}} (sácate &quot;[[seguir]]&quot;, &quot;[[perseguir]]&quot;), el griego antiguo {{l+|grc|ἕπομαι|tr=hepomai|glosa=seguir}}, el lituano {{l+|lt|sèkti}} (&quot;[[seguir]]&quot;, &quot;[[perseguir]]&quot;) y el gótico {{l+|got|𐍃𐌰𐌹𐍈𐌰𐌽|tr=saihwan|glosa=ver}}.&lt;ref name=&quot;vaan&quot; /&gt; → {{l+|la|insece|īnsece}}, {{l+|la|secus}}, {{l+|la|socius}}

=== {{verbo transitivo|la}} ===

;1: {{plm|ir}} detrás, [[seguir]].&lt;ref name=&quot;ol&quot;&gt;{{Oxf-lat}}&lt;/ref&gt;

;2: {{plm|perseguir}}, [[intentar]] [[alcanzar]].&lt;ref name=&quot;ol&quot; /&gt;

;3: {{plm|suceder}}.&lt;ref name=&quot;ol&quot; /&gt;

;4: {{plm|corresponder}}.
{{uso|leng=la|dícese especialmente de premios o castigos}}.&lt;ref name=&quot;ol&quot; /&gt;

;5: {{plm|corresponder}} en [[herencia]] (u otros procesos legales).
{{uso|leng=la|dícese de propiedades, responsabilidades, etc.}}&lt;ref name=&quot;ol&quot; /&gt;

;6: {{plm|ser}} el [[siguiente]], [[seguir]], [[venir]] después.
{{uso|leng=la|en sucesiones de cosas, eventos, etc.}}&lt;ref name=&quot;ol&quot; /&gt;

;7: {{plm|proseguir}}, [[continuar]].&lt;ref name=&quot;ol&quot; /&gt;

;8: {{plm|seguir}} [[orden|órdenes]], [[obedecer]].&lt;ref name=&quot;ol&quot; /&gt;

;9: {{plm|seguir}} el [[ejemplo]].&lt;ref name=&quot;ol&quot; /&gt;

;10: {{plm|tomar}} por [[guía]].&lt;ref name=&quot;ol&quot; /&gt;

;11: {{plm|actuar}} [[acorde]] con.&lt;ref name=&quot;ol&quot; /&gt;

;12: {{plm|acompañar}}, [[escoltar]].&lt;ref name=&quot;ol&quot; /&gt;

;13: {{plm|seguir}}, [[aliar]]se.
{{uso|leng=la|política, guerra}}.&lt;ref name=&quot;ol&quot; /&gt;

;14: {{plm|unir}}se, [[adherir]]se.
{{uso|leng=la|a partidos, causas, doctrinas, filosofías, etc.}}&lt;ref name=&quot;ol&quot; /&gt;

;15: {{plm|intentar}} [[llegar]] a.&lt;ref name=&quot;ol&quot; /&gt;

;16: {{plm|tratar}} de [[obtener]], [[buscar]].&lt;ref name=&quot;ol&quot; /&gt;

;17: {{plm|obtener}}, [[alcanzar]].&lt;ref name=&quot;ol&quot; /&gt;

;18: {{plm|seguir}}, [[recorrer]].
{{uso|leng=la|una línea, un camino, etc., físicamente, con la vista, con la mano, etc.}}&lt;ref name=&quot;ol&quot; /&gt;

;19: {{plm|seguir}} con el [[oído]].&lt;ref name=&quot;ol&quot; /&gt;

;20: {{plm|recorrer}} una [[narrativa]], [[hacer]] un [[recuento]] de una [[narrativa]].&lt;ref name=&quot;ol&quot; /&gt;

;21: {{plm|examinar}}.
{{uso|leng=la|documentos, textos, etc.}}&lt;ref name=&quot;ol&quot; /&gt;

==== Información adicional ====
{{derivad|assequor|assecue|assecula|consequor|consectarius|consecutio|conseque|consequens|consequenter|consequentia|consequius|exsequor|exsecutio|exsecutor|exsequens|exsequiae|insequor|insecundus|insecutio|insecutor|obsequor|obsecula|obsequella|obsequens|obsequenter|obsequentia|obsequibilis|obsequium|obsequiosus|pedisequus|pedisequa|pedisequarius|pedisecuaria|persequor|persecutio|persequens|prosequor|prosecutor|prosequium|secta|sector|assector|consector|consectatio|insector|insectator|persector|sectarius|sectator|secundus|secundani|secundarius|subsecundarius|secunde|secundo|obsecundo|obsecundanter|secundum|secutorius|secutor|secutuleius|sequax|persequax|sequella|sequens|sequentia|subsequor|subsequens}}

==== Descendientes ====
{{trad-arriba|Descendientes}}
{{d|ca|niv=1|d1=seguir}}
{{d|es|niv=1|d1=seguir}}
{{d|eo|niv=1|d1=sekvi}}
{{d|fr|niv=1|d1=suivre}}
{{d|it|niv=1|d1=seguire}}
{{d|oc|niv=1|d1=seguir}}
{{d|pt|niv=1|d1=seguir}}
{{trad-abajo}}

=== Conjugación ===
{{la.v|3|sequor|secūt|nucleoperf2=sequūt|secūt|nucleosup2=sequūt}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>9xjyleo12zbu8qw39ufemetylrefeyz</sha1>
    </revision>
  </page>
  <page>
    <title>confido</title>
    <ns>0</ns>
    <id>176890</id>
    <revision>
      <id>6123502</id>
      <parentid>6060557</parentid>
      <timestamp>2026-07-25T01:04:51Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* Conjugación */</comment>
      <origin>6123502</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="659" sha1="755r810pkvl0jqhdmc2y798okeral14" xml:space="preserve">== {{lengua|la}} ==
{{pron-graf|leng=la|ayuda=cōnfīdō}}

=== Etimología ===
{{etimología|leng=la|prefijo|con|glosa=con|fido|alt2=fīdō, -ere|glosa2=confiar}}.&lt;ref name=&quot;ol&quot;&gt;{{Oxf-lat}}&lt;/ref&gt;

=== {{verbo intransitivo|la}} ===
;1: {{plm|poner}}le su [[confianza]] a, [[tener]] [[confianza]] en.
{{uso|leng=la|con ablativo o dativo}}.&lt;ref name=&quot;ol&quot; /&gt;
{{ejemplo|leng=la|sibi confidere|trad=tenerse confianza, ser seguro de sí mismo.}}
;2: {{plm|confiar}}, [[estar]] [[seguro]].
{{uso|leng=la|con infinitivo y acusativo}}.&lt;ref name=&quot;ol&quot; /&gt;

=== Conjugación ===
{{la.v|3|semidepon=v|cōnfīdō|cōnfīs|cōnfīs}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>755r810pkvl0jqhdmc2y798okeral14</sha1>
    </revision>
  </page>
  <page>
    <title>sak bok</title>
    <ns>0</ns>
    <id>177142</id>
    <revision>
      <id>6123512</id>
      <parentid>6040414</parentid>
      <timestamp>2026-07-25T02:16:20Z</timestamp>
      <contributor>
        <username>26agcp</username>
        <id>138617</id>
      </contributor>
      <comment>/* {{lengua|yua}} */ amplío información, agrego imagen y referencias</comment>
      <origin>6123512</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1028" sha1="92scwqy5fm8j2diro2020mihivgnken" xml:space="preserve">== {{lengua|yua}} ==
{{pron-graf|leng=yua}}

=== Etimología ===
{{etimología|leng=yua}}.
[[Archivo:Garceta nivea, Humedal Batuco.jpg|thumb|(1)]]

==== {{locución|yua|sustantiva}} ====
{{yua.sust}}
;1 {{csem|aves|leng=yua}}:  {{impropia|(nombre de varias especies, en particular [[w:Egretta thula|Egretta thula]])}} {{plm|garza}} de color {{l|es|blanco}}.&lt;ref&gt;{{Cordemex|p=711|cita=SAK BOK}}&lt;/ref&gt;&lt;ref&gt;{{referencia|c=libro|a1=Alfredo Dorantes Euan|a2=Ingrid A. Tello López|a3=Aldo I. Echeverría Caro|a4=Gerardo I. Linares Hernández|a5=Ariadna Ibarra Morales|a6=Davira Y. Palma Cancino|a7=Darleny R. Sanmiguel Caamal|a8=Sebastián Gay Escalante|a9=Richard E. Feldman|u=https://www.cicy.mx/Documentos/CICY/sitios/CircuitoEtnobiologico/Repositorio/Etapa4/Acceso-Universal/2024_Catalogo-aves-CICY.pdf|t=Guía de aves del Jardín Botánico Regional “Roger Orellana”|f=2024|editorial=Centro de Investigación Científica de Yucatán|edición=2|formato=PDF|lugar=México|p=145}}&lt;/ref&gt;

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>92scwqy5fm8j2diro2020mihivgnken</sha1>
    </revision>
  </page>
  <page>
    <title>beechʼ</title>
    <ns>0</ns>
    <id>203219</id>
    <revision>
      <id>6123528</id>
      <parentid>5318101</parentid>
      <timestamp>2026-07-25T02:55:29Z</timestamp>
      <contributor>
        <username>26agcp</username>
        <id>138617</id>
      </contributor>
      <comment>/* {{lengua|yua}} */</comment>
      <origin>6123528</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="331" sha1="gy1ineo4hel5bchi3uwp10qjnraumsh" xml:space="preserve">== {{lengua|yua}} ==
{{pron-graf|leng=yua|g=beech'}}

=== Etimología ===
{{etimología|leng=yua}}.
[[Archivo:Colinus nigrogularis 1 (cropped).jpg|thumb|(1)]]

==== {{sustantivo|yua}} ====
{{yua.sust}}
;1 {{csem|aves|leng=yua}}: {{plm|codorniz}}.&lt;ref&gt;{{ALMY 2007|p=24|cita=BEECH’}}&lt;/ref&gt;

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>gy1ineo4hel5bchi3uwp10qjnraumsh</sha1>
    </revision>
  </page>
  <page>
    <title>exclamares</title>
    <ns>0</ns>
    <id>242546</id>
    <revision>
      <id>6123415</id>
      <parentid>5544270</parentid>
      <timestamp>2026-07-24T13:41:31Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>quito desambiguación</comment>
      <origin>6123415</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="174" sha1="cap4k9hqewt6anjo158xu8yzvkbem5c" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|exclamar|p=2stv|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>cap4k9hqewt6anjo158xu8yzvkbem5c</sha1>
    </revision>
  </page>
  <page>
    <title>rescoldare</title>
    <ns>0</ns>
    <id>255293</id>
    <revision>
      <id>6123408</id>
      <parentid>5551539</parentid>
      <timestamp>2026-07-24T12:54:10Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación corregida</comment>
      <origin>6123408</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="282" sha1="9s9pezm69rflrr614j113fd51tjhjn9" xml:space="preserve">{{desambiguación|rescoldaré}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|rescoldar|p=1s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}
;2: {{forma verbo|rescoldar|p=3s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>9s9pezm69rflrr614j113fd51tjhjn9</sha1>
    </revision>
  </page>
  <page>
    <title>orzareis</title>
    <ns>0</ns>
    <id>306699</id>
    <revision>
      <id>6123406</id>
      <parentid>5550049</parentid>
      <timestamp>2026-07-24T12:52:25Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación corregida</comment>
      <origin>6123406</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="200" sha1="5ozbwpb4n0fafr2t5pa7vyt973cqbk7" xml:space="preserve">{{desambiguación|orzaréis}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|orzar|p=2p|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>5ozbwpb4n0fafr2t5pa7vyt973cqbk7</sha1>
    </revision>
  </page>
  <page>
    <title>orzare</title>
    <ns>0</ns>
    <id>306701</id>
    <revision>
      <id>6123405</id>
      <parentid>5527099</parentid>
      <timestamp>2026-07-24T12:51:38Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación corregida</comment>
      <origin>6123405</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="270" sha1="5t0eivaegwo8zqby6n8wgvbzsh4memv" xml:space="preserve">{{desambiguación|orzaré}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|orzar|p=1s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}
;2: {{forma verbo|orzar|p=3s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>5t0eivaegwo8zqby6n8wgvbzsh4memv</sha1>
    </revision>
  </page>
  <page>
    <title>orzares</title>
    <ns>0</ns>
    <id>306790</id>
    <revision>
      <id>6123404</id>
      <parentid>5523790</parentid>
      <timestamp>2026-07-24T12:50:57Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación eliminada</comment>
      <origin>6123404</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="171" sha1="fx7m33f2f8fmey8bgxi4yflgvwlx8ea" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|orzar|p=2stv|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>fx7m33f2f8fmey8bgxi4yflgvwlx8ea</sha1>
    </revision>
  </page>
  <page>
    <title>critiquizaras</title>
    <ns>0</ns>
    <id>327045</id>
    <revision>
      <id>6123398</id>
      <parentid>5957410</parentid>
      <timestamp>2026-07-24T12:46:02Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación añadida</comment>
      <origin>6123398</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="216" sha1="i17pdc6az81xymex2cjv8yg5um9ttc4" xml:space="preserve">{{desambiguación|critiquizarás}}

== {{lengua|es}} ==
{{pron-graf|v1=critiquizases}}

=== Forma verbal ===
;1: {{forma verbo|critiquizar|m=subjuntivo|p=2stv|t=imperfecto}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>i17pdc6az81xymex2cjv8yg5um9ttc4</sha1>
    </revision>
  </page>
  <page>
    <title>critiquizare</title>
    <ns>0</ns>
    <id>327058</id>
    <revision>
      <id>6123399</id>
      <parentid>5529651</parentid>
      <timestamp>2026-07-24T12:46:51Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación corregida</comment>
      <origin>6123399</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="288" sha1="mnnbm8692j1zpyljabde5nbocnfirx5" xml:space="preserve">{{desambiguación|critiquizaré}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|critiquizar|p=1s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}
;2: {{forma verbo|critiquizar|p=3s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>mnnbm8692j1zpyljabde5nbocnfirx5</sha1>
    </revision>
  </page>
  <page>
    <title>caballereáremos</title>
    <ns>0</ns>
    <id>327458</id>
    <revision>
      <id>6123414</id>
      <parentid>5531906</parentid>
      <timestamp>2026-07-24T12:59:27Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación corregida</comment>
      <origin>6123414</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="212" sha1="059z22qqw9w9i5tw95o7yndr4op1eon" xml:space="preserve">{{desambiguación|caballerearemos}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|caballerear|p=1p|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>059z22qqw9w9i5tw95o7yndr4op1eon</sha1>
    </revision>
  </page>
  <page>
    <title>caballereare</title>
    <ns>0</ns>
    <id>327472</id>
    <revision>
      <id>6123413</id>
      <parentid>5546884</parentid>
      <timestamp>2026-07-24T12:58:25Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación corregida</comment>
      <origin>6123413</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="288" sha1="itpf7ttyuxe048sh42m712dtqyv3o5a" xml:space="preserve">{{desambiguación|caballerearé}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|caballerear|p=1s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}
;2: {{forma verbo|caballerear|p=3s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>itpf7ttyuxe048sh42m712dtqyv3o5a</sha1>
    </revision>
  </page>
  <page>
    <title>espurreáremos</title>
    <ns>0</ns>
    <id>343088</id>
    <revision>
      <id>6123407</id>
      <parentid>5550363</parentid>
      <timestamp>2026-07-24T12:52:58Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación corregida</comment>
      <origin>6123407</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="208" sha1="osuc07l6bh4ivencfxxlwj5q16yizx8" xml:space="preserve">{{desambiguación|espurrearemos}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|espurrear|p=1p|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>osuc07l6bh4ivencfxxlwj5q16yizx8</sha1>
    </revision>
  </page>
  <page>
    <title>afufáremos</title>
    <ns>0</ns>
    <id>411147</id>
    <revision>
      <id>6123412</id>
      <parentid>5547987</parentid>
      <timestamp>2026-07-24T12:57:46Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación corregida</comment>
      <origin>6123412</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="202" sha1="g00bwcldk3tosf8udud16vj2506y0a4" xml:space="preserve">{{desambiguación|afufaremos}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|afufar|p=1p|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>g00bwcldk3tosf8udud16vj2506y0a4</sha1>
    </revision>
  </page>
  <page>
    <title>ciclare</title>
    <ns>0</ns>
    <id>457992</id>
    <revision>
      <id>6123402</id>
      <parentid>5549835</parentid>
      <timestamp>2026-07-24T12:49:22Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación corregida</comment>
      <origin>6123402</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="273" sha1="7ee0daernw01zn0dchgnrcr1dtdb3sq" xml:space="preserve">{{desambiguación|ciclaré}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|ciclar|p=1s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}
;2: {{forma verbo|ciclar|p=3s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>7ee0daernw01zn0dchgnrcr1dtdb3sq</sha1>
    </revision>
  </page>
  <page>
    <title>ciclareis</title>
    <ns>0</ns>
    <id>457997</id>
    <revision>
      <id>6123403</id>
      <parentid>5550020</parentid>
      <timestamp>2026-07-24T12:50:14Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación corregida</comment>
      <origin>6123403</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="202" sha1="jvnc8f7fivz9h4c23vvkexyuau72siz" xml:space="preserve">{{desambiguación|ciclaréis}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|ciclar|p=2p|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>jvnc8f7fivz9h4c23vvkexyuau72siz</sha1>
    </revision>
  </page>
  <page>
    <title>ciclá</title>
    <ns>0</ns>
    <id>458000</id>
    <revision>
      <id>6123401</id>
      <parentid>4011176</parentid>
      <timestamp>2026-07-24T12:48:31Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación añadida</comment>
      <origin>6123401</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="303" sha1="b18ph58e2g1j2nfai2hhbcxmjwuefol" xml:space="preserve">{{desambiguación|cicla}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|ciclar|p=vos|t=imperativo|afirmativo=s|enclítico=|pencl=}}.
{{uso}} para el negativo se emplea el presente del [[subjuntivo]].
{{relacionado|cicla|nota1=tú}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>b18ph58e2g1j2nfai2hhbcxmjwuefol</sha1>
    </revision>
  </page>
  <page>
    <title>esfúmate</title>
    <ns>0</ns>
    <id>487823</id>
    <revision>
      <id>6123465</id>
      <parentid>4457153</parentid>
      <timestamp>2026-07-24T20:19:28Z</timestamp>
      <contributor>
        <username>Charlyfar</username>
        <id>7832</id>
      </contributor>
      <comment>/* Forma verbal */</comment>
      <origin>6123465</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="385" sha1="kbtczl0uh2c1uw1p496m2y3rwe89fbs" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|esfumarse|p=tú|t=imperativo|afirmativo=s|enclítico=s|pencl=te}}.
{{uso}} para el negativo se emplea el presente del [[subjuntivo]].
{{relacionado|esfumate|nota1=vos}}.
*:'''Nota''': Se usa mayormente como una manera de decirle a una persona que se marche de un lugar.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>kbtczl0uh2c1uw1p496m2y3rwe89fbs</sha1>
    </revision>
    <revision>
      <id>6123466</id>
      <parentid>6123465</parentid>
      <timestamp>2026-07-24T20:23:11Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <minor />
      <comment>Revertido el cambio de [[Special:Contributions/Charlyfar|Charlyfar]] ([[User talk:Charlyfar|disc.]]) a la última edición de [[User:HydrizBot|HydrizBot]]</comment>
      <origin>4457153</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="285" sha1="az4akkt1veaf870uuls0lb7573bw12j" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|esfumarse|p=tú|t=imperativo|afirmativo=s|enclítico=s|pencl=te}}.
{{uso}} para el negativo se emplea el presente del [[subjuntivo]].
{{relacionado|esfumate|nota1=vos}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>az4akkt1veaf870uuls0lb7573bw12j</sha1>
    </revision>
  </page>
  <page>
    <title>engurruminare</title>
    <ns>0</ns>
    <id>521812</id>
    <revision>
      <id>6123417</id>
      <parentid>5550483</parentid>
      <timestamp>2026-07-24T13:43:14Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación corregida</comment>
      <origin>6123417</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="291" sha1="adf1m2lvr25x7ag7gf5djkr2qcktzn1" xml:space="preserve">{{desambiguación|engurruminaré}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|engurruminar|p=1s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}
;2: {{forma verbo|engurruminar|p=3s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>adf1m2lvr25x7ag7gf5djkr2qcktzn1</sha1>
    </revision>
  </page>
  <page>
    <title>engurrumináremos</title>
    <ns>0</ns>
    <id>521833</id>
    <revision>
      <id>6123418</id>
      <parentid>5550914</parentid>
      <timestamp>2026-07-24T13:43:59Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación corregida</comment>
      <origin>6123418</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="214" sha1="5g6m0nyjsrc0hn3kx7mm6y5g18svm2s" xml:space="preserve">{{desambiguación|engurruminaremos}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|engurruminar|p=1p|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>5g6m0nyjsrc0hn3kx7mm6y5g18svm2s</sha1>
    </revision>
  </page>
  <page>
    <title>engurruminá</title>
    <ns>0</ns>
    <id>521846</id>
    <revision>
      <id>6123416</id>
      <parentid>4019267</parentid>
      <timestamp>2026-07-24T13:42:31Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación añadida</comment>
      <origin>6123416</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="321" sha1="bb0cjjtwjwtgmhbmvjjfh8awxoq23bq" xml:space="preserve">{{desambiguación|engurrumina}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|engurruminar|p=vos|t=imperativo|afirmativo=s|enclítico=|pencl=}}.
{{uso}} para el negativo se emplea el presente del [[subjuntivo]].
{{relacionado|engurrumina|nota1=tú}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>bb0cjjtwjwtgmhbmvjjfh8awxoq23bq</sha1>
    </revision>
  </page>
  <page>
    <title>reabriéremos</title>
    <ns>0</ns>
    <id>557558</id>
    <revision>
      <id>6123563</id>
      <parentid>5519288</parentid>
      <timestamp>2026-07-25T08:50:52Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>quito desambiguación</comment>
      <origin>6123563</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="171" sha1="4fzzwmw2kv956zji5w2ns1bgpna7408" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|reabrir|p=1p|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>4fzzwmw2kv956zji5w2ns1bgpna7408</sha1>
    </revision>
  </page>
  <page>
    <title>reabriere</title>
    <ns>0</ns>
    <id>557568</id>
    <revision>
      <id>6123560</id>
      <parentid>5508230</parentid>
      <timestamp>2026-07-25T08:46:42Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>quito desambiguación</comment>
      <origin>6123560</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="245" sha1="pri4iqqznoawdqhub0zpuwacozmg3iv" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|reabrir|p=1s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}
;2: {{forma verbo|reabrir|p=3s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>pri4iqqznoawdqhub0zpuwacozmg3iv</sha1>
    </revision>
  </page>
  <page>
    <title>reabrieres</title>
    <ns>0</ns>
    <id>557569</id>
    <revision>
      <id>6123561</id>
      <parentid>5510677</parentid>
      <timestamp>2026-07-25T08:47:22Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>quito desambiguación</comment>
      <origin>6123561</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="173" sha1="818262yg1lagyg3hpovcmiu2n4p4tdh" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|reabrir|p=2stv|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>818262yg1lagyg3hpovcmiu2n4p4tdh</sha1>
    </revision>
  </page>
  <page>
    <title>reabriereis</title>
    <ns>0</ns>
    <id>557570</id>
    <revision>
      <id>6123564</id>
      <parentid>5542000</parentid>
      <timestamp>2026-07-25T08:51:20Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>quito desambiguación</comment>
      <origin>6123564</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="171" sha1="nh2rknkexq5kan8r8bub7ne3p1tf4xm" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|reabrir|p=2p|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>nh2rknkexq5kan8r8bub7ne3p1tf4xm</sha1>
    </revision>
  </page>
  <page>
    <title>reabrieren</title>
    <ns>0</ns>
    <id>557572</id>
    <revision>
      <id>6123562</id>
      <parentid>5549246</parentid>
      <timestamp>2026-07-25T08:48:54Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>quito desambiguación</comment>
      <origin>6123562</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="171" sha1="79hmhufje0bjzgb4zd2yn6ezarl9amr" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|reabrir|p=3p|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>79hmhufje0bjzgb4zd2yn6ezarl9amr</sha1>
    </revision>
  </page>
  <page>
    <title>trafulcare</title>
    <ns>0</ns>
    <id>620166</id>
    <revision>
      <id>6123409</id>
      <parentid>5540396</parentid>
      <timestamp>2026-07-24T12:55:06Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación corregida</comment>
      <origin>6123409</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="282" sha1="ghjxyl06vcc6wwuqp52trs2tqii535j" xml:space="preserve">{{desambiguación|trafulcaré}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|trafulcar|p=1s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}
;2: {{forma verbo|trafulcar|p=3s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>ghjxyl06vcc6wwuqp52trs2tqii535j</sha1>
    </revision>
  </page>
  <page>
    <title>trafulcáremos</title>
    <ns>0</ns>
    <id>620169</id>
    <revision>
      <id>6123410</id>
      <parentid>5525367</parentid>
      <timestamp>2026-07-24T12:55:58Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>desambiguación corregida</comment>
      <origin>6123410</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="208" sha1="ohldb2cexsbskkrc2i5vhk4m6xafneb" xml:space="preserve">{{desambiguación|trafulcaremos}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|trafulcar|p=1p|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>ohldb2cexsbskkrc2i5vhk4m6xafneb</sha1>
    </revision>
  </page>
  <page>
    <title>embornare</title>
    <ns>0</ns>
    <id>676361</id>
    <revision>
      <id>6123567</id>
      <parentid>5539750</parentid>
      <timestamp>2026-07-25T10:41:03Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>corrijo desambiguación</comment>
      <origin>6123567</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="279" sha1="7q5fnyeufjbca95kb9yjw0iiie7es8m" xml:space="preserve">{{desambiguación|embornaré}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|embornar|p=1s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}
;2: {{forma verbo|embornar|p=3s|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>7q5fnyeufjbca95kb9yjw0iiie7es8m</sha1>
    </revision>
  </page>
  <page>
    <title>embornáremos</title>
    <ns>0</ns>
    <id>676365</id>
    <revision>
      <id>6123568</id>
      <parentid>5531550</parentid>
      <timestamp>2026-07-25T10:41:40Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>corrijo desambiguación</comment>
      <origin>6123568</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="206" sha1="c3itqfaetmzdq3csogxnbz3zt40hxae" xml:space="preserve">{{desambiguación|embornaremos}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|embornar|p=1p|t=futuro|m=subjuntivo}}.
{{uso|anticuado}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>c3itqfaetmzdq3csogxnbz3zt40hxae</sha1>
    </revision>
  </page>
  <page>
    <title>emborná</title>
    <ns>0</ns>
    <id>676366</id>
    <revision>
      <id>6123566</id>
      <parentid>4017194</parentid>
      <timestamp>2026-07-25T10:40:19Z</timestamp>
      <contributor>
        <username>Jemily1</username>
        <id>121719</id>
      </contributor>
      <minor />
      <comment>añado desambiguación</comment>
      <origin>6123566</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="309" sha1="ics9r7netrkd09w17h0och45hx8lt1c" xml:space="preserve">{{desambiguación|emborna}}

== {{lengua|es}} ==
{{pron-graf}}

=== Forma verbal ===
;1: {{forma verbo|embornar|p=vos|t=imperativo|afirmativo=s|enclítico=|pencl=}}.
{{uso}} para el negativo se emplea el presente del [[subjuntivo]].
{{relacionado|emborna|nota1=tú}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>ics9r7netrkd09w17h0och45hx8lt1c</sha1>
    </revision>
  </page>
  <page>
    <title>gofre</title>
    <ns>0</ns>
    <id>722706</id>
    <revision>
      <id>6123522</id>
      <parentid>5746177</parentid>
      <timestamp>2026-07-25T02:49:31Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123522</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="475" sha1="pquvexbzwp7vrzcjrfqee1he3bn323m" xml:space="preserve">{{desambiguación|gofré}}

== {{lengua|es}} ==
{{pron-graf}}

=== Etimología 1 ===
{{etimología|fr|gaufre}}, y este {{etim|frk|*wafla}}.

==== {{sustantivo masculino|es}} ====
{{es.sust}}
;1 {{csem|gastronomía}}: {{plm|wafle}}.

=== Forma flexiva ===
==== Forma verbal ====
;1: {{forma verbo|gofrar|1s|t=presente|m=subjuntivo}}.
;2: {{forma verbo|gofrar|3s|presente|subjuntivo}}.
;3 : {{forma verbo|gofrar|p=usted|m=imperativo}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>pquvexbzwp7vrzcjrfqee1he3bn323m</sha1>
    </revision>
    <revision>
      <id>6123523</id>
      <parentid>6123522</parentid>
      <timestamp>2026-07-25T02:50:17Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* {{sustantivo masculino|es}} */</comment>
      <origin>6123523</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="495" sha1="31kmjlyscehl1z23hkzpluqleym6vbm" xml:space="preserve">{{desambiguación|gofré}}

== {{lengua|es}} ==
{{pron-graf}}

=== Etimología 1 ===
{{etimología|fr|gaufre}}, y este {{etim|frk|*wafla}}.

==== {{sustantivo masculino|es}} ====
{{es.sust}}
;1 {{csem|gastronomía}}: {{plm|wafle}}.
{{ámbito|España}}

=== Forma flexiva ===
==== Forma verbal ====
;1: {{forma verbo|gofrar|1s|t=presente|m=subjuntivo}}.
;2: {{forma verbo|gofrar|3s|presente|subjuntivo}}.
;3 : {{forma verbo|gofrar|p=usted|m=imperativo}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>31kmjlyscehl1z23hkzpluqleym6vbm</sha1>
    </revision>
  </page>
  <page>
    <title>narcisismo</title>
    <ns>0</ns>
    <id>872636</id>
    <revision>
      <id>6123434</id>
      <parentid>5926882</parentid>
      <timestamp>2026-07-24T15:44:39Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* Etimología */</comment>
      <origin>6123434</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="2292" sha1="olqgxm4eelie612lmpbxp56tvbdorg4" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|sufijo|narciso|ismo}}.

=== {{sustantivo masculino|es}} ===
{{es.sust}}

;1: {{plm|admiración}} o amor excesivo hacia uno mismo.
{{relacionado|narciso}}
;2 {{csem|psicología}}: {{plm|complacimiento}} [[exagerar|exagerado]] [[acerca de]] [[galanura]] de la [[imagen]] y de las [[capacidad]]es de la propia [[persona]].
{{sinónimo|egolatría}}
{{relacionado|autoestima|narciso|presunción|vanidad}}
{{ejemplo|El '''''narcisismo''''' o [[trastorno]] ''narcisista'' es un [[diagnóstico]] dentro de la [[clasificación]] de los trastornos de la [[personalidad]]. La [[rabia]] ''narcisista'' se produce cuando una persona con '''''narcisismo''''' [[percibir|percibe]] que está siendo atacada por otra.|c=pagina|t=¿Cómo influyen tus emociones en tu comportamiento?|u=http://www.ehowenespanol.com/cuales-son-causas-rabia-narcisista-lista_112397/}}

=== Véase también ===
{{w}}
* [[ego]]
* [[egocentrismo]]

=== Traducciones ===
{{trad-arriba}}
{{t|af|t1=narsisme}}
{{t|de|t1=Narzissmus}}
{{t|ar|t1=نرجسية}}
{{t|arz|t1=نرجسيه}}
{{t|be|t1=нарцысізм}}
{{t|bg|t1=нарцисизъм}}
{{t|ca|t1=narcisisme}}
{{t|cs|t1=narcismus}}
{{t|ko|t1=나르시시즘}}
{{t|da|t1=narcissisme}}
{{t|sh|t1=narcizam|t2=нарцисоидност}}
{{t|sk|t1=narcizmus}}
{{t|sl|t1=narcizem}}
{{t|eo|t1=narcisismo}}
{{t|et|t1=nartsissism}}
{{t|fi|t1=narsismi}}
{{t|fr|t1=narcissisme}}
{{t|ka|t1=ნარცისიზმი}}
{{t|el|t1=ναρκισσισμός}}
{{t|he|t1=נרקיסיזם}}
{{t|hi|t1=आत्मरति}}
{{t|hu|t1=nárcizmus}}
{{t|id|t1=narsisisme}}
{{t|en|t1=narcissism}}
{{t|ga|t1=naircisíocht}}
{{t|it|t1=narcisismo}}
{{t|ja|t1=ナルシシズム}}
{{t|kn|t1=ಆತ್ಮರತಿ}}
{{t|kk|t1=нарциссизм}}
{{t|ku|t1=narsîsîzm}}
{{t|lt|t1=narcisizmas}}
{{t|lb|t1=Narzissmus}}
{{t|sq|t1=narzissmus}}
{{t|zh|t1=自戀}}
{{t|nl|t1=narcisme}}
{{t|nb|t1=narsissisme}}
{{t|fa|t1=خودشیفتگی}}
{{t|pl|t1=narcyzm}}
{{t|pt|t1=narcisismo}}
{{t|ro|t1=narcisism}}
{{t|ru|t1=нарциссизм}}
{{t|sh|t1=narcizam}}
{{t|sv|t1=narcissism}}
{{t|ta|t1=தற்காதல்}}
{{t|tr|t1=narsisizm}}
{{t|uk|t1=нарцисизм}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>olqgxm4eelie612lmpbxp56tvbdorg4</sha1>
    </revision>
  </page>
  <page>
    <title>amortajar</title>
    <ns>0</ns>
    <id>873491</id>
    <revision>
      <id>6123549</id>
      <parentid>5800414</parentid>
      <timestamp>2026-07-25T03:24:53Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123549</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="707" sha1="4o4lkiolm5y55touynal1skykqd7bze" xml:space="preserve">{{desambiguación}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|confijo|a|mortaja|ar}}.

=== {{verbo transitivo|es}} ===
;1: Poner la [[mortaja]] al difunto.&lt;ref name=&quot;au&quot;&gt;{{DLC1914|64}}.&lt;/ref&gt;
;2: Por extensión, [[cubrir]], [[envolver]].
;3: Cavar la mortaja en la madera.

=== Conjugación ===
{{es.v}}

=== Véase también ===
* [[amortajado]]

=== Traducciones ===
{{trad-arriba}}
&lt;!--{{t+|de|?|}}--&gt;
&lt;!--{{t+|ar|?|}}--&gt;
&lt;!--{{t+|bg|?|}}--&gt;
&lt;!--{{t+|ca|?|}}--&gt;
&lt;!--{{t+|eo|?|}}--&gt;
&lt;!--{{t+|fr|?|}}--&gt;
&lt;!--{{t+|en|?|}}--&gt;
&lt;!--{{t+|it|?|}}--&gt;
&lt;!--{{t+|ja|?|}}--&gt;
&lt;!--{{t+|nl|?|}}--&gt;
&lt;!--{{t+|pl|?|}}--&gt;
&lt;!--{{t+|pt|?|}}--&gt;
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>4o4lkiolm5y55touynal1skykqd7bze</sha1>
    </revision>
    <revision>
      <id>6123550</id>
      <parentid>6123549</parentid>
      <timestamp>2026-07-25T03:25:23Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* {{verbo transitivo|es}} */</comment>
      <origin>6123550</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="707" sha1="sq0tpe69yn39bmrjls52o1x85fm3vjg" xml:space="preserve">{{desambiguación}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|confijo|a|mortaja|ar}}.

=== {{verbo transitivo|es}} ===
;1: Poner la [[mortaja]] al difunto.&lt;ref name=&quot;au&quot;&gt;{{DLC1914|64}}.&lt;/ref&gt;
;2: Por extensión, [[cubrir]], [[envolver]].
;3: Calar la mortaja en la madera.

=== Conjugación ===
{{es.v}}

=== Véase también ===
* [[amortajado]]

=== Traducciones ===
{{trad-arriba}}
&lt;!--{{t+|de|?|}}--&gt;
&lt;!--{{t+|ar|?|}}--&gt;
&lt;!--{{t+|bg|?|}}--&gt;
&lt;!--{{t+|ca|?|}}--&gt;
&lt;!--{{t+|eo|?|}}--&gt;
&lt;!--{{t+|fr|?|}}--&gt;
&lt;!--{{t+|en|?|}}--&gt;
&lt;!--{{t+|it|?|}}--&gt;
&lt;!--{{t+|ja|?|}}--&gt;
&lt;!--{{t+|nl|?|}}--&gt;
&lt;!--{{t+|pl|?|}}--&gt;
&lt;!--{{t+|pt|?|}}--&gt;
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>sq0tpe69yn39bmrjls52o1x85fm3vjg</sha1>
    </revision>
  </page>
  <page>
    <title>baach</title>
    <ns>0</ns>
    <id>881856</id>
    <revision>
      <id>6123519</id>
      <parentid>5318081</parentid>
      <timestamp>2026-07-25T02:40:09Z</timestamp>
      <contributor>
        <username>26agcp</username>
        <id>138617</id>
      </contributor>
      <comment>/* {{lengua|yua}} */ + imagen y referencia</comment>
      <origin>6123519</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="414" sha1="39e8z19gohe321yosq9yka5ynncu3tb" xml:space="preserve">{{desambiguación|bach|Bach|bách|bạch|bac̱h|}}
== {{lengua|yua}} ==
{{pron-graf|leng=yua}}

=== Etimología ===
{{etimología|leng=yua}}.
[[Archivo:Plain Chachalaca Roadside.png|thumb|(1)]]

==== {{sustantivo|yua}} ====
{{yua.sust}}
;1 {{csem|aves|leng=yua}}: {{taxón|Ortalis}} {{plm|chachalaca}}.&lt;ref&gt;{{ALMY 2007|p=18|cita=BAACH}}&lt;/ref&gt;
{{sinónimo|leng=yua|kobaʼ}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>39e8z19gohe321yosq9yka5ynncu3tb</sha1>
    </revision>
  </page>
  <page>
    <title>pichʼ</title>
    <ns>0</ns>
    <id>946607</id>
    <revision>
      <id>6123571</id>
      <parentid>5615198</parentid>
      <timestamp>2026-07-25T11:16:57Z</timestamp>
      <contributor>
        <username>26agcp</username>
        <id>138617</id>
      </contributor>
      <comment>/* {{lengua|yua}} */</comment>
      <origin>6123571</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="389" sha1="dqx4t6k1ejpdlwlen3zzns0dl9jxt4t" xml:space="preserve">{{desambiguación|pich|piich}}

== {{lengua|yua}} ==
{{pron-graf|leng=yua|g=pich'}}

=== Etimología ===
{{etimología|leng=yua}}.
[[Archivo:Melodious Blackbird (8258746422).jpg|thumb|(1)]]

==== {{sustantivo|yua}} ====
{{yua.sust}}
;1 {{csem|aves|leng=yua}}: {{taxón|Dives dives}} {{plm|tordo}} cantor.&lt;ref&gt;{{ALMY 2007|p=172|cita=PICH’}}&lt;/ref&gt;

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>dqx4t6k1ejpdlwlen3zzns0dl9jxt4t</sha1>
    </revision>
  </page>
  <page>
    <title>lontananza</title>
    <ns>0</ns>
    <id>979279</id>
    <revision>
      <id>6123456</id>
      <parentid>5730127</parentid>
      <timestamp>2026-07-24T18:36:11Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* Etimología */</comment>
      <origin>6123456</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="651" sha1="hp3rpo8d2x3gawxipdmb41fmmnkc3s3" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|it|lontananza}}, de {{l+|it|lontano|glosa=lejos}}.

=== {{sustantivo femenino|es}} ===
{{es.sust}}

;1 {{csem|arte|pintura}}: {{plm|términos}} de un cuadro más distantes del plano principal.&lt;ref&gt;{{DLC1914|627}}&lt;/ref&gt;
{{ejemplo|De cuando en cuando&lt;br&gt;Alguna corazonada&lt;br&gt;Que terminó siendo un viaje a la nada&lt;br&gt;Es la lontananza de la esperanza&lt;br&gt;La ruta más popular|c=canción|t=La Calavera|a=Bersuit Vergarabat|f=2004}}

=== Locuciones ===
* [[en lontananza]]

=== Traducciones ===
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>hp3rpo8d2x3gawxipdmb41fmmnkc3s3</sha1>
    </revision>
  </page>
  <page>
    <title>wafle</title>
    <ns>0</ns>
    <id>1012286</id>
    <revision>
      <id>6123520</id>
      <parentid>6052546</parentid>
      <timestamp>2026-07-25T02:48:54Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123520</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1438" sha1="cuxt74ca8pgvy2vvma67h8hqdclc7uw" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología 1 ===
{{etimología|en|waffle}}, y este {{etim|nl|wafel}}.
[[Archivo:Waffles with Strawberries.jpg|miniaturadeimagen|(1) afles con [[frutilla|frutillas]]]]
[[File:Knitted_Waffle_fabric.jpg|thumb|(2)]]

==== {{sustantivo masculino|es}} ====
{{es.sust}}
;1 {{csem|gastronomía}}: Galleta de harina, huevo y leche, prensada con un patrón cuadriculado. Frecuentemente se come caliente y con algún tipo de aditivo dulce o salado.&lt;ref&gt;{{Damer}}&lt;/ref&gt;
{{ámbito|Latinoamérica}}
{{sinónimo|gofre|guafle|''waffle''}}
{{hiperónimo|comida|postre}}
{{relacionado|waflera}}
{{ejemplo|Disfruta de esta deliciosa receta de ''wafles''.|url=https://cocinamia.com.mx/receta/como-hacer-wafles/|título=¿Cómo hacer wafles?|fecha=2021|c=pagina|fc=2023-1-13}}
{{ejemplo|Nada tiene de malo un ''wafle'' crocante por fuera y esponjoso por dentro, cubierto de mantequilla y jarabe de arce.|url=https://feeds.aarp.org/hogar-familia/casa-jardin/info-2022/recetas-para-waflera.html?_amp=true|título=Recetas ingeniosas para hacer en la waflera (y no son wafles)|autor=Terry Ward|fecha=2022|c=pagina|sitio=AARP|fc=2023-1-13}}

;2 {{csem|textiles}}: Tipo de tela que tiene un relieve cuadriculado que imita la superficie de un wafle.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{t|eo|a1=1|t1=vaflo}}
{{t|en|a1=1|t1=waffle}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>cuxt74ca8pgvy2vvma67h8hqdclc7uw</sha1>
    </revision>
    <revision>
      <id>6123521</id>
      <parentid>6123520</parentid>
      <timestamp>2026-07-25T02:49:07Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123521</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1420" sha1="qeabk1xpol9ci1b88joszxakt3ujwm0" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología 1 ===
{{etimología|en|waffle}}, y este {{etim|nl|wafel}}.
[[Archivo:Waffles with Strawberries.jpg|miniaturadeimagen|(1) afles con [[frutilla|frutillas]]]]
[[File:Knitted_Waffle_fabric.jpg|thumb|(2)]]

==== {{sustantivo masculino|es}} ====
{{es.sust}}
;1 {{csem|gastronomía}}: Galleta de harina, huevo y leche, prensada con un patrón cuadriculado. Frecuentemente se come caliente y con algún tipo de aditivo dulce o salado.&lt;ref&gt;{{Damer}}&lt;/ref&gt;
{{ámbito|Latinoamérica}}
{{sinónimo|gofre}}
{{hiperónimo|comida|postre}}
{{relacionado|waflera}}
{{ejemplo|Disfruta de esta deliciosa receta de ''wafles''.|url=https://cocinamia.com.mx/receta/como-hacer-wafles/|título=¿Cómo hacer wafles?|fecha=2021|c=pagina|fc=2023-1-13}}
{{ejemplo|Nada tiene de malo un ''wafle'' crocante por fuera y esponjoso por dentro, cubierto de mantequilla y jarabe de arce.|url=https://feeds.aarp.org/hogar-familia/casa-jardin/info-2022/recetas-para-waflera.html?_amp=true|título=Recetas ingeniosas para hacer en la waflera (y no son wafles)|autor=Terry Ward|fecha=2022|c=pagina|sitio=AARP|fc=2023-1-13}}

;2 {{csem|textiles}}: Tipo de tela que tiene un relieve cuadriculado que imita la superficie de un wafle.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{t|eo|a1=1|t1=vaflo}}
{{t|en|a1=1|t1=waffle}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>qeabk1xpol9ci1b88joszxakt3ujwm0</sha1>
    </revision>
    <revision>
      <id>6123524</id>
      <parentid>6123521</parentid>
      <timestamp>2026-07-25T02:50:39Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123524</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1421" sha1="tdfgui80eg0sdki93padiwtb40m3w8z" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología 1 ===
{{etimología|en|waffle}}, y este {{etim|nl|wafel}}.
[[Archivo:Waffles with Strawberries.jpg|miniaturadeimagen|(1) Wafles con [[frutilla|frutillas]]]]
[[File:Knitted_Waffle_fabric.jpg|thumb|(2)]]

==== {{sustantivo masculino|es}} ====
{{es.sust}}
;1 {{csem|gastronomía}}: Galleta de harina, huevo y leche, prensada con un patrón cuadriculado. Frecuentemente se come caliente y con algún tipo de aditivo dulce o salado.&lt;ref&gt;{{Damer}}&lt;/ref&gt;
{{ámbito|Latinoamérica}}
{{sinónimo|gofre}}
{{hiperónimo|comida|postre}}
{{relacionado|waflera}}
{{ejemplo|Disfruta de esta deliciosa receta de ''wafles''.|url=https://cocinamia.com.mx/receta/como-hacer-wafles/|título=¿Cómo hacer wafles?|fecha=2021|c=pagina|fc=2023-1-13}}
{{ejemplo|Nada tiene de malo un ''wafle'' crocante por fuera y esponjoso por dentro, cubierto de mantequilla y jarabe de arce.|url=https://feeds.aarp.org/hogar-familia/casa-jardin/info-2022/recetas-para-waflera.html?_amp=true|título=Recetas ingeniosas para hacer en la waflera (y no son wafles)|autor=Terry Ward|fecha=2022|c=pagina|sitio=AARP|fc=2023-1-13}}

;2 {{csem|textiles}}: Tipo de tela que tiene un relieve cuadriculado que imita la superficie de un wafle.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{t|eo|a1=1|t1=vaflo}}
{{t|en|a1=1|t1=waffle}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>tdfgui80eg0sdki93padiwtb40m3w8z</sha1>
    </revision>
  </page>
  <page>
    <title>yúuyum</title>
    <ns>0</ns>
    <id>1017052</id>
    <revision>
      <id>6123570</id>
      <parentid>5928286</parentid>
      <timestamp>2026-07-25T11:05:47Z</timestamp>
      <contributor>
        <username>26agcp</username>
        <id>138617</id>
      </contributor>
      <comment>/* {{lengua|yua}} */ formato</comment>
      <origin>6123570</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="373" sha1="jsrhjubu44jm173k0682pkkc0f524s1" xml:space="preserve">== {{lengua|yua}} ==
{{pron-graf|leng=yua}}

=== Etimología ===
{{etimología|leng=yua}}.
[[Archivo:Icterus auratus 60726713.jpg|thumb|(1)]]

==== {{sustantivo|yua}} ====
{{yua.sust}}
;1 {{csem|aves|leng=yua}}: {{taxón|Icterus auratus|Icterus gularis}} {{plm|bolsero}}, [[oropéndola]].&lt;ref&gt;{{ALMY 2007|p=274|cita=YÚUYUM}}&lt;/ref&gt;

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>jsrhjubu44jm173k0682pkkc0f524s1</sha1>
    </revision>
  </page>
  <page>
    <title>CP</title>
    <ns>0</ns>
    <id>1027882</id>
    <revision>
      <id>6123419</id>
      <parentid>5181206</parentid>
      <timestamp>2026-07-24T15:20:00Z</timestamp>
      <contributor>
        <username>~2026-41134-51</username>
        <id>183681</id>
      </contributor>
      <comment>/* {{sigla|en}} */</comment>
      <origin>6123419</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="327" sha1="5gfecau50e6qu7nj12j1rhj7t1f4t7b" deleted="deleted" />
      <sha1 />
    </revision>
    <revision>
      <id>6123420</id>
      <parentid>6123419</parentid>
      <timestamp>2026-07-24T15:21:21Z</timestamp>
      <contributor>
        <username>~2026-41134-51</username>
        <id>183681</id>
      </contributor>
      <comment>/* {{sigla|en}} */</comment>
      <origin>6123420</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="382" sha1="3y56jmj2pett3sdso5l4s4dr2h4it8w" deleted="deleted" />
      <sha1 />
    </revision>
    <revision>
      <id>6123421</id>
      <parentid>6123420</parentid>
      <timestamp>2026-07-24T15:21:55Z</timestamp>
      <contributor>
        <username>~2026-41134-51</username>
        <id>183681</id>
      </contributor>
      <comment>/* {{lengua|en}} */</comment>
      <origin>6123421</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="330" sha1="9vjvtj67um76zclscah0r23rfjozmvj" deleted="deleted" />
      <sha1 />
    </revision>
    <revision>
      <id>6123422</id>
      <parentid>6123421</parentid>
      <timestamp>2026-07-24T15:22:33Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <minor />
      <comment>Revertidos los cambios de [[Special:Contributions/~2026-41134-51|~2026-41134-51]] ([[User talk:~2026-41134-51|disc.]]) a la última edición de [[User:PFSV-UY|PFSV-UY]]</comment>
      <origin>5181206</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="323" sha1="h3g53p2l7wecui87ncqa5dezvlslrm8" xml:space="preserve">== {{lengua|en}} ==
{{pron-graf|leng=en}}

=== Etimología ===
{{etimología|leng=en}}.

=== {{sigla|en}} ===
;1: {{impropia|{{plm|sigla}} de}} {{l|en|child pornography}}
;2: {{impropia|{{plm|sigla}} de}} {{l|en|cyberpunk}}
;3: {{impropia|{{plm|sigla}} de}} {{l|en|copy-protected}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>h3g53p2l7wecui87ncqa5dezvlslrm8</sha1>
    </revision>
  </page>
  <page>
    <title>Alostibaś</title>
    <ns>0</ns>
    <id>1044030</id>
    <revision>
      <id>6123489</id>
      <parentid>5669957</parentid>
      <timestamp>2026-07-24T23:28:46Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <origin>6123489</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="867" sha1="4uv9ayuveki3e1grr4vmffwn6z7oiqx" xml:space="preserve">== {{lengua|xib}} ==
{{pron-graf|leng=xib}}

=== Etimología ===
{{etimología|leng=xib|confijo|alos|oŕtin}}.&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 34 | obs = Ensérune, pátera campaniense, MLH. B.1.35.}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Velaza, Javier | fecha = 2006 | url = https://ifc.dpz.es/recursos/publicaciones/25/20/13velaza.pdf | título = Tras las huellas del femenino en ibérico | cat=artículo}}&lt;/ref&gt;

==== {{sustantivo propio|xib}} ====
{{xib.esc|alostibaś}}
;1: ''{{plm|nombre de pila}}''.

[[Categoría:XIB:Antropónimos]]

==== Véase también ====
* [http://hesperia.ucm.es/consulta_hesperia/onomastica/corpus.php?id2=5240 Hesperia]

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>4uv9ayuveki3e1grr4vmffwn6z7oiqx</sha1>
    </revision>
    <revision>
      <id>6123494</id>
      <parentid>6123489</parentid>
      <timestamp>2026-07-25T00:07:04Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <origin>6123494</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="867" sha1="f3aihsozoewyemn4yhd7qdb6bq6x0mj" xml:space="preserve">== {{lengua|xib}} ==
{{pron-graf|leng=xib}}

=== Etimología ===
{{etimología|leng=xib|confijo|alos|tibaś}}.&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 34 | obs = Ensérune, pátera campaniense, MLH. B.1.35.}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Velaza, Javier | fecha = 2006 | url = https://ifc.dpz.es/recursos/publicaciones/25/20/13velaza.pdf | título = Tras las huellas del femenino en ibérico | cat=artículo}}&lt;/ref&gt;

==== {{sustantivo propio|xib}} ====
{{xib.esc|alostibaś}}
;1: ''{{plm|nombre de pila}}''.

[[Categoría:XIB:Antropónimos]]

==== Véase también ====
* [http://hesperia.ucm.es/consulta_hesperia/onomastica/corpus.php?id2=5240 Hesperia]

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>f3aihsozoewyemn4yhd7qdb6bq6x0mj</sha1>
    </revision>
  </page>
  <page>
    <title>baŕśkunes</title>
    <ns>0</ns>
    <id>1044031</id>
    <revision>
      <id>6123495</id>
      <parentid>6121987</parentid>
      <timestamp>2026-07-25T00:12:43Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <origin>6123495</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="381" sha1="tkeizqmbq5e4vxmxau782lockfj9ouj" xml:space="preserve">== {{lengua|xib}} ==
{{pron-graf|leng=xib|v=baśkunes}}

=== Etimología ===
{{etimología|leng=xib|incierta}}, pero probablemente relacionado o derivado en última instancia del protovasco ''[[*euskala]]''.

==== {{sustantivo|xib}} ====
{{xib.esc|ba1ŕ3ś1ku2n102e1s1}}
;1: [[vascón|Vascones]].

==== Véase también ====
{{w|Barscunes}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>tkeizqmbq5e4vxmxau782lockfj9ouj</sha1>
    </revision>
  </page>
  <page>
    <title>nigger</title>
    <ns>0</ns>
    <id>1044716</id>
    <revision>
      <id>6123423</id>
      <parentid>6121017</parentid>
      <timestamp>2026-07-24T15:23:23Z</timestamp>
      <contributor>
        <username>~2026-41134-51</username>
        <id>183681</id>
      </contributor>
      <comment>/* {{lengua|en}} */</comment>
      <origin>6123423</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="352" sha1="biyagd3f6k23ilu64tt95wwv5b2kp7b" deleted="deleted" />
      <sha1 />
    </revision>
    <revision>
      <id>6123427</id>
      <parentid>6123423</parentid>
      <timestamp>2026-07-24T15:37:45Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <minor />
      <comment>Revertido el cambio de [[Special:Contributions/~2026-41134-51|~2026-41134-51]] ([[User talk:~2026-41134-51|disc.]]) a la última edición de [[User:Tmagc|Tmagc]]</comment>
      <origin>6121017</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="285" sha1="p9y86h0r90sg7l80l087jvqexqq4vxj" xml:space="preserve">{{desambiguación|}}

== {{lengua|en}} ==
{{pron-graf|leng=en}} 

=== Etimología ===
{{etimología|leng=en|la|niger|negro}}.

==== {{sustantivo|en}} ====
{{en.sust|c}}

;1: {{plm|negro de mierda}}.
{{uso|leng=en|vulgar|malsonante|despectivo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>p9y86h0r90sg7l80l087jvqexqq4vxj</sha1>
    </revision>
  </page>
  <page>
    <title>cíclope</title>
    <ns>0</ns>
    <id>1048016</id>
    <revision>
      <id>6123449</id>
      <parentid>5732671</parentid>
      <timestamp>2026-07-24T16:53:26Z</timestamp>
      <contributor>
        <username>~2026-34597-22</username>
        <id>183061</id>
      </contributor>
      <comment>imagen</comment>
      <origin>6123449</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1247" sha1="f5ny7dn5mezmztsiiqil8m1yhh1ssj8" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|la|cyclops}}, {{etim|grc|κύκλωψ}}. &lt;!-- Para una palabra de otro idioma, utilice {{etimología|(CÓDIGO DE IDIOMA)|(PALABRA)|(SIGNIFICADO)}}. Para elegir otra opción u otro tipo de etimología, consulte la página Plantilla:etimología --&gt; 

==== {{sustantivo masculino|es}} ====
{{es.sust}}
[[File:Guido Reni - Polyphemus - Google Art Project.jpg|thumb|[1] un cíclope]]
;1 {{csem|mitología|historia}}: Cada uno de los [[gigante]]s que, según la mitología griega, eran hijos del Cielo y de la Tierra, y de los cuales se decía que tenían solo un [[ojo]] en medio de la [[frente]]. Se les suponía ocupados en fabricar [[rayo]]s para Júpiter en la fragua de Vulcano, bajo el monte Etna.&lt;ref&gt;{{DLE1925}}&lt;/ref&gt;

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
&lt;!-- formato: {{t|idioma|t1=(traducción1)|t2=(traducción2|...(hay más opciones))}} p. ej. {{t|fr|t1=chose|a1=1|g1=f}} (ver más ejemplos en Plantilla:t/doc) --&gt;
{{trad-abajo}}

&lt;!-- si va a insertar una nueva sección de etimología o de idioma, por favor, hágalo ↑  arriba ↑  de esta línea. NO BORRE LO QUE ESTÁ DEBAJO, GRACIAS. --&gt;
== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>f5ny7dn5mezmztsiiqil8m1yhh1ssj8</sha1>
    </revision>
  </page>
  <page>
    <title>galga</title>
    <ns>0</ns>
    <id>1059566</id>
    <revision>
      <id>6123534</id>
      <parentid>5891391</parentid>
      <timestamp>2026-07-25T03:04:22Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* Etimología 4 */</comment>
      <origin>6123534</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="2373" sha1="jtifgcu0x7v1u0cm8tkaqrnoavs0m4y" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología 1 ===
{{etimología|femenino|galgo}}, según Corominas: &quot;explicable por el rápido movimiento&quot;.&lt;ref&gt;{{DCECH}}&lt;/ref&gt;

==== {{sustantivo femenino|es}} ====
{{es.sust}}

;1: Piedra grande que, arrojada desde lo alto de una cuesta, baja rodando y dando saltos.&lt;ref name=dle1925 /&gt;
;2: Hormiga amarilla que anda muy velozmente.&lt;ref name=dle1925 /&gt;
{{ámbito|Honduras}}

==== Véase también ====
* [[galgo]]

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

=== Etimología 2 ===
{{etimología|la|caliga}}.&lt;ref name=dle1925 /&gt;

==== {{sustantivo femenino|es}} ====
{{es.sust}}

;1 {{csem|ropa}}: Cada una de las cintas cosidas al zapato de las mujeres para sujetarle a la canilla de la pierna.&lt;ref name=dle1925 /&gt;

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

=== Etimología 3 ===
{{etimología|fr|gale}}, [[galle]], {{etim|la|galla}}.&lt;ref name=dle1925&gt;{{DLE1925}}&lt;/ref&gt;

==== {{sustantivo femenino|es}} ====
{{es.sust}}

;1 {{csem|enfermedades}}: Erupción cutánea, parecida a la sarna, que sale frecuentemente en el pescuezo a las personas desaseadas.&lt;ref name=dle1925 /&gt;

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

=== Etimología 4 ===
{{etimología|nl|galg|horca, poste}}.&lt;ref name=dle1925 /&gt;

==== {{sustantivo femenino|es}} ====
{{es.sust}}

;1: Palo grueso y largo atado por los extremos fuertemente a la caja del carro, que sirve de freno, al oprimir el cubo de una de las ruedas.&lt;ref name=dle1925 /&gt;
;2: Féretro o andas en que se lleva a enterrar a los pobres.&lt;ref name=dle1925 /&gt;
;3 {{csem|náutica}}: El orinque o el anclote con que se engalga o refuerza en malos tiempos el ancla fondeada.&lt;ref name=dle1925 /&gt;
;4 {{csem|náutica}}: Por extensión, ayuda que se da al ancla empotrada en tierra, haciendo firme en su cruz un calabrote que se amarra a un noray, para evitar que el esfuerzo del buque pueda arrancarla.&lt;ref name=dle1925 /&gt;
;5 {{csem|mecánica}}: Tira metálica de espesor calibrado que se usa para medir la holgura en espacios estrechos.
;6 {{csem|pesos y medidas}}: Unidad de grosor que equivale a 0,25 micrómetros.

==== Véase también ====
* [[galgas]]

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

=== Forma flexiva ===
==== Forma adjetivo ====
;1: {{forma adjetivo|galgo|femenino|singular}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>jtifgcu0x7v1u0cm8tkaqrnoavs0m4y</sha1>
    </revision>
  </page>
  <page>
    <title>Módulo:flex/la</title>
    <ns>828</ns>
    <id>1059810</id>
    <revision>
      <id>6123478</id>
      <parentid>6121433</parentid>
      <timestamp>2026-07-24T22:16:52Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>test</comment>
      <origin>6123478</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="163066" sha1="3d2xxhhhag5jbndvuqbzewk5f1tcrt5" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local list_to_set = m_table.listToSet
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local append = m_table.append
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local gsubb = m_str.gsubb
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_COND = m_flex.COLOR_COND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
		original = stem
		stem = args[2]
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local L = #palabras
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local L = #palabras
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fax&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;feruntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;inqui&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
    conjinfo.conj = conjinfo.conj
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1
        if not conjinfo.dep then
	    	insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    end
	    if not conjinfo.semidep then
	    	insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    end
	    if not conjinfo.dep then
	    	insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    end
	    if not conjinfo.semidep then
	    	insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    end
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

    if not conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
    end
    if not conjinfo.dep and not conjinfo.semidep then
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
    end
    if mostrar_fut_sig then
        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
    end
    if not conjinfo.semidep then
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
    end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

    if not conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
    end
    if not conjinfo.dep and not conjinfo.semidep then
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
    end
    if mostrar_aor_sig then
        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
    end
    if not conjinfo.semidep then
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
    end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
    	if not conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	    end
	    if not conjinfo.semidep then
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
	    end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>3d2xxhhhag5jbndvuqbzewk5f1tcrt5</sha1>
    </revision>
    <revision>
      <id>6123479</id>
      <parentid>6123478</parentid>
      <timestamp>2026-07-24T22:24:57Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123479</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="163078" sha1="emx1xlu6sus7xlgkat691w961yt3hof" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local list_to_set = m_table.listToSet
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local append = m_table.append
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local gsubb = m_str.gsubb
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_COND = m_flex.COLOR_COND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
		original = stem
		stem = args[2]
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local L = #palabras
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local L = #palabras
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fax&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;feruntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;inqui&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
    conjinfo.conj = conjinfo.conj
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1
        if not conjinfo.dep then
	    	insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    end
	    if not conjinfo.semidep then
	    	insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    end
	    if not conjinfo.dep then
	    	insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    end
	    if not conjinfo.semidep then
	    	insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    end
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

    if not conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
    end
    if not conjinfo.dep and not conjinfo.semidep then
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
    end
    if mostrar_fut_sig then
        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
    end
    if not conjinfo.semidep then
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
    end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

    if not conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
    end
    if not conjinfo.dep and not conjinfo.semidep then
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
    end
    if mostrar_aor_sig then
        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
    end
    if not conjinfo.semidep then
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
    end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
    	if not conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	    end
	    if not conjinfo.semidep then
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
	    end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>emx1xlu6sus7xlgkat691w961yt3hof</sha1>
    </revision>
    <revision>
      <id>6123480</id>
      <parentid>6123479</parentid>
      <timestamp>2026-07-24T22:29:47Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123480</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="162870" sha1="6o8greu4ta9diqo535jhc3p4l1zg6t2" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fax&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;feruntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;inqui&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
    conjinfo.conj = conjinfo.conj
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1
        if not conjinfo.dep then
	    	insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    end
	    if not conjinfo.semidep then
	    	insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    end
	    if not conjinfo.dep then
	    	insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    end
	    if not conjinfo.semidep then
	    	insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    end
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

    if not conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
    end
    if not conjinfo.dep and not conjinfo.semidep then
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
    end
    if mostrar_fut_sig then
        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
    end
    if not conjinfo.semidep then
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
    end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

    if not conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
    end
    if not conjinfo.dep and not conjinfo.semidep then
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
    end
    if mostrar_aor_sig then
        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
    end
    if not conjinfo.semidep then
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
    end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
    	if not conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	    end
	    if not conjinfo.semidep then
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
	    end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>6o8greu4ta9diqo535jhc3p4l1zg6t2</sha1>
    </revision>
    <revision>
      <id>6123481</id>
      <parentid>6123480</parentid>
      <timestamp>2026-07-24T22:38:51Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123481</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="162990" sha1="m90ma7fes57e8htk688znsnne5kfjab" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		inf_act = {&quot;facere&quot;, &quot;fāre&quot;, &quot;fēcisse&quot;},
		inf_pas = {&quot;fierī&quot;},
		part_pas = {&quot;faciendus&quot;, &quot;faciundus&quot;, &quot;factus&quot;},
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fax&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;feruntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;inqui&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
    conjinfo.conj = conjinfo.conj
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1
        if not conjinfo.dep then
	    	insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    end
	    if not conjinfo.semidep then
	    	insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    end
	    if not conjinfo.dep then
	    	insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    end
	    if not conjinfo.semidep then
	    	insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    end
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

    if not conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
    end
    if not conjinfo.dep and not conjinfo.semidep then
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
    end
    if mostrar_fut_sig then
        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
    end
    if not conjinfo.semidep then
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
    end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

    if not conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
    end
    if not conjinfo.dep and not conjinfo.semidep then
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
    end
    if mostrar_aor_sig then
        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
    end
    if not conjinfo.semidep then
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
    end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
    	if not conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	    end
	    if not conjinfo.semidep then
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
	    end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>m90ma7fes57e8htk688znsnne5kfjab</sha1>
    </revision>
    <revision>
      <id>6123482</id>
      <parentid>6123481</parentid>
      <timestamp>2026-07-24T22:39:47Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123482</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="162991" sha1="skhugozj848fgucm5rw2rgb16odkgqr" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		inf_act = {&quot;facere&quot;, &quot;fāre&quot;, &quot;fēcisse&quot;},
		inf_pas = {&quot;fierī&quot;},
		part_pas = {&quot;faciendus&quot;, &quot;faciundus&quot;, &quot;factus&quot;},
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fēc&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;feruntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;inqui&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
    conjinfo.conj = conjinfo.conj
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1
        if not conjinfo.dep then
	    	insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    end
	    if not conjinfo.semidep then
	    	insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    end
	    if not conjinfo.dep then
	    	insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    end
	    if not conjinfo.semidep then
	    	insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    end
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

    if not conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
    end
    if not conjinfo.dep and not conjinfo.semidep then
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
    end
    if mostrar_fut_sig then
        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
    end
    if not conjinfo.semidep then
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
    end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

    if not conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
    end
    if not conjinfo.dep and not conjinfo.semidep then
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
    end
    if mostrar_aor_sig then
        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
    end
    if not conjinfo.semidep then
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
    end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
    	if not conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	    end
	    if not conjinfo.semidep then
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
	    end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>skhugozj848fgucm5rw2rgb16odkgqr</sha1>
    </revision>
    <revision>
      <id>6123483</id>
      <parentid>6123482</parentid>
      <timestamp>2026-07-24T22:46:32Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123483</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="163015" sha1="3cj4pwa6m8gsorqph1hthkygaynhm6z" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		inf_act = {&quot;facere&quot;, &quot;fāre&quot;, &quot;fēcisse&quot;},
		inf_pas = {&quot;fierī&quot;},
		part_pas = {&quot;faciendus&quot;, &quot;faciundus&quot;, &quot;factus&quot;},
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fēc&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		inf_pas = {&quot;fierī&quot;},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;inqui&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
    conjinfo.conj = conjinfo.conj
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1
        if not conjinfo.dep then
	    	insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    end
	    if not conjinfo.semidep then
	    	insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    end
	    if not conjinfo.dep then
	    	insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    end
	    if not conjinfo.semidep then
	    	insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    end
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

    if not conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
    end
    if not conjinfo.dep and not conjinfo.semidep then
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
    end
    if mostrar_fut_sig then
        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
    end
    if not conjinfo.semidep then
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
    end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

    if not conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
    end
    if not conjinfo.dep and not conjinfo.semidep then
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
    end
    if mostrar_aor_sig then
        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
    end
    if not conjinfo.semidep then
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
    end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
    	if not conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	    end
	    if not conjinfo.semidep then
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
	    end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>3cj4pwa6m8gsorqph1hthkygaynhm6z</sha1>
    </revision>
    <revision>
      <id>6123501</id>
      <parentid>6123483</parentid>
      <timestamp>2026-07-25T01:01:31Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123501</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="165128" sha1="08mhrxbdijzadnkfa9gwyeux4vurnjp" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		inf_act = {&quot;facere&quot;, &quot;fāre&quot;, &quot;fēcisse&quot;},
		inf_pas = {&quot;fierī&quot;},
		part_pas = {&quot;faciendus&quot;, &quot;faciundus&quot;, &quot;factus&quot;},
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fēc&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		inf_pas = {&quot;fierī&quot;},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;inqui&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
    conjinfo.conj = conjinfo.conj
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1

		if conjinfo.dep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		elseif conjinfo.semidep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_act})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		else
			insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
			insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		end
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	    insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
		if conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		elseif conjinfo.semidep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
		else
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>08mhrxbdijzadnkfa9gwyeux4vurnjp</sha1>
    </revision>
    <revision>
      <id>6123506</id>
      <parentid>6123501</parentid>
      <timestamp>2026-07-25T01:50:24Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123506</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="165128" sha1="4eaiel3o5jmqv6xwiafnm9wajk6yhes" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		inf_act = {&quot;facere&quot;, &quot;fāre&quot;, &quot;fēcisse&quot;},
		inf_pas = {&quot;fierī&quot;},
		part_pas = {&quot;faciendus&quot;, &quot;faciundus&quot;, &quot;factus&quot;},
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fēc&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		inf_act = {&quot;fierī&quot;},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;inqui&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
    conjinfo.conj = conjinfo.conj
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1

		if conjinfo.dep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		elseif conjinfo.semidep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_act})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		else
			insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
			insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		end
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	    insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
		if conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		elseif conjinfo.semidep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
		else
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>4eaiel3o5jmqv6xwiafnm9wajk6yhes</sha1>
    </revision>
    <revision>
      <id>6123507</id>
      <parentid>6123506</parentid>
      <timestamp>2026-07-25T01:53:56Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123507</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="165131" sha1="pac1rsjrck7xlbn4kw0ajidp65d4m90" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		inf_act = {&quot;facere&quot;, &quot;fāre{L}&quot;, &quot;fēcisse&quot;},
		inf_pas = {&quot;fierī&quot;},
		part_pas = {&quot;faciendus&quot;, &quot;faciundus&quot;, &quot;factus&quot;},
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fēc&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		inf_act = {&quot;fierī&quot;},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;inqui&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
    conjinfo.conj = conjinfo.conj
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1

		if conjinfo.dep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		elseif conjinfo.semidep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_act})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		else
			insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
			insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		end
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	    insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
		if conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		elseif conjinfo.semidep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
		else
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>pac1rsjrck7xlbn4kw0ajidp65d4m90</sha1>
    </revision>
    <revision>
      <id>6123508</id>
      <parentid>6123507</parentid>
      <timestamp>2026-07-25T01:57:16Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123508</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="165182" sha1="cb37xy6h7w6t0cd2pxjgjprl5i74gbh" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		part_pas = {&quot;dīcendus&quot;, &quot;dīcundus&quot;, &quot;dictus&quot;},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		inf_act = {&quot;facere&quot;, &quot;fāre{L}&quot;, &quot;fēcisse&quot;},
		inf_pas = {&quot;fierī&quot;},
		part_pas = {&quot;faciendus&quot;, &quot;faciundus&quot;, &quot;factus&quot;},
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fēc&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		inf_act = {&quot;fierī&quot;},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;inqui&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
    conjinfo.conj = conjinfo.conj
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1

		if conjinfo.dep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		elseif conjinfo.semidep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_act})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		else
			insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
			insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		end
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	    insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
		if conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		elseif conjinfo.semidep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
		else
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>cb37xy6h7w6t0cd2pxjgjprl5i74gbh</sha1>
    </revision>
    <revision>
      <id>6123511</id>
      <parentid>6123508</parentid>
      <timestamp>2026-07-25T02:06:32Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123511</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="165181" sha1="4bm63azilipwh3yw3cozx0n3hl2asaw" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		part_pas = {&quot;dīcendus&quot;, &quot;dīcundus&quot;, &quot;dictus&quot;},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		inf_act = {&quot;facere&quot;, &quot;fāre{L}&quot;, &quot;fēcisse&quot;},
		inf_pas = {&quot;fierī&quot;},
		part_pas = {&quot;faciendus&quot;, &quot;faciundus&quot;, &quot;factus&quot;},
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fēc&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		inf_act = {&quot;fierī&quot;},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;inqu&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
    conjinfo.conj = conjinfo.conj
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1

		if conjinfo.dep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		elseif conjinfo.semidep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_act})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		else
			insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
			insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		end
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	    insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
		if conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		elseif conjinfo.semidep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
		else
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>4bm63azilipwh3yw3cozx0n3hl2asaw</sha1>
    </revision>
    <revision>
      <id>6123513</id>
      <parentid>6123511</parentid>
      <timestamp>2026-07-25T02:22:44Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123513</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="165193" sha1="awvamvqbbkgxz6h3fhouz8i6l0ge6j1" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		part_pas = {&quot;dīcendus&quot;, &quot;dīcundus&quot;, &quot;dictus&quot;},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		inf_act = {&quot;facere&quot;, &quot;fāre{L}&quot;, &quot;fēcisse&quot;},
		inf_pas = {&quot;fierī&quot;},
		part_pas = {&quot;faciendus&quot;, &quot;faciundus&quot;, &quot;factus&quot;},
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fēc&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		inf_act = {&quot;fierī&quot;},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		nucleopres = {&quot;inqu&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
    conjinfo.conj = conjinfo.conj
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1

		if conjinfo.dep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		elseif conjinfo.semidep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_act})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		else
			insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
			insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		end
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	    insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
		if conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		elseif conjinfo.semidep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
		else
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>awvamvqbbkgxz6h3fhouz8i6l0ge6j1</sha1>
    </revision>
    <revision>
      <id>6123555</id>
      <parentid>6123513</parentid>
      <timestamp>2026-07-25T05:16:03Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123555</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="165181" sha1="9u3ava7sifz613yqoo67t4x67gcsemi" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		part_pas = {&quot;dīcendus&quot;, &quot;dīcundus&quot;, &quot;dictus&quot;},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		inf_act = {&quot;facere&quot;, &quot;fāre{L}&quot;, &quot;fēcisse&quot;},
		inf_pas = {&quot;fierī&quot;},
		part_pas = {&quot;faciendus&quot;, &quot;faciundus&quot;, &quot;factus&quot;},
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fēc&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		inf_act = {&quot;fierī&quot;},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		nucleopres = {&quot;inqu&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
	error(conjinfo.conj)
    
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1

		if conjinfo.dep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		elseif conjinfo.semidep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_act})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		else
			insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
			insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		end
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	    insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
		if conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		elseif conjinfo.semidep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
		else
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>9u3ava7sifz613yqoo67t4x67gcsemi</sha1>
    </revision>
    <revision>
      <id>6123556</id>
      <parentid>6123555</parentid>
      <timestamp>2026-07-25T05:18:28Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123556</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="165181" sha1="1iicr2j0pe9qx7uy0lyejhrs13ngicx" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		part_pas = {&quot;dīcendus&quot;, &quot;dīcundus&quot;, &quot;dictus&quot;},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		inf_act = {&quot;facere&quot;, &quot;fāre{L}&quot;, &quot;fēcisse&quot;},
		inf_pas = {&quot;fierī&quot;},
		part_pas = {&quot;faciendus&quot;, &quot;faciundus&quot;, &quot;factus&quot;},
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fēc&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		inf_act = {&quot;fierī&quot;},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		nucleopres = {&quot;inqu&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					error(p[3].conj)
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1

		if conjinfo.dep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		elseif conjinfo.semidep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_act})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		else
			insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
			insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		end
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	    insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
		if conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		elseif conjinfo.semidep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
		else
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>1iicr2j0pe9qx7uy0lyejhrs13ngicx</sha1>
    </revision>
    <revision>
      <id>6123558</id>
      <parentid>6123556</parentid>
      <timestamp>2026-07-25T05:23:56Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123558</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="165159" sha1="t9djmgme519sk7l09nsuqkbpsldgagf" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ed&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		part_pas = {&quot;dīcendus&quot;, &quot;dīcundus&quot;, &quot;dictus&quot;},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		inf_act = {&quot;facere&quot;, &quot;fāre{L}&quot;, &quot;fēcisse&quot;},
		inf_pas = {&quot;fierī&quot;},
		part_pas = {&quot;faciendus&quot;, &quot;faciundus&quot;, &quot;factus&quot;},
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fēc&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		inf_act = {&quot;fierī&quot;},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		nucleopres = {&quot;inqu&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1

		if conjinfo.dep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		elseif conjinfo.semidep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_act})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		else
			insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
			insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		end
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	    insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
		if conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		elseif conjinfo.semidep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
		else
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>t9djmgme519sk7l09nsuqkbpsldgagf</sha1>
    </revision>
    <revision>
      <id>6123559</id>
      <parentid>6123558</parentid>
      <timestamp>2026-07-25T05:25:23Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123559</origin>
      <model>Scribunto</model>
      <format>text/plain</format>
      <text bytes="165160" sha1="kfipttp38zpka9y6njlg8cnny0r05e4" xml:space="preserve">-- FLEXIÓN DEL LATÍN
-- Adaptado desde en.wikt por Tmagc

local export = {}

local unpack = unpack or table.unpack
local insert = table.insert
local concat = table.concat

local m_table = require(&quot;Módulo:tabla&quot;)
local keys_to_list = m_table.keysToList
local insert_if_not = m_table.insertIfNot
local deep_copy = m_table.deepCopy
local contains = m_table.contains
local merge = m_table.merge

local m_str = require(&quot;Módulo:string&quot;)
local u = m_str.char
local match = m_str.match
local sub = m_str.sub
local gsub = m_str.gsub
local split = m_str.split
local gsplit = m_str.gsplit
local find = m_str.find

local m_str_avanzado = require(&quot;Módulo:string/avanzado&quot;)
local toNFD = m_str_avanzado.toNFD
local toNFC = m_str_avanzado.toNFC

local m_flex = require(&quot;Módulo:flex&quot;)
local f = m_flex.f
local f_links = m_flex.f_links
local parsear_arreglo = m_flex.parsear_arreglo
local separar_palabras = m_flex.separar_palabras
local combinar_copulativa = m_flex.combinar_copulativa
local sobreescribir_formas = m_flex.sobreescribir_formas
local desactivar_formas = m_flex.desactivar_formas
local agregar_enlaces = m_flex.agregar_enlaces
local formatear_formas = m_flex.formatear_formas
local comprobar_defectivo = m_flex.comprobar_defectivo
local renderizar_tabla = m_flex.renderizar_tabla
local renderizar_encabezado = m_flex.renderizar_encabezado
local COLOR_H = m_flex.COLOR_H
local COLOR_NP = m_flex.COLOR_NP
local COLOR_IND = m_flex.COLOR_IND
local COLOR_SUBJ = m_flex.COLOR_SUBJ
local COLOR_IMPER = m_flex.COLOR_IMPER

local MACRON = u(0x304)
local BREVE = u(0x306)
local DIAER = u(0x308)
local DBREVE = u(0x361)
local ACCENT = &quot;[&quot; .. MACRON .. BREVE .. DIAER .. DBREVE .. &quot;]&quot;
local VOWEL = &quot;[aæeioœuyAÆEIOŒUY]&quot;
local cons_to_vowel = {
	[&quot;j&quot;] = &quot;i&quot;, [&quot;J&quot;] = &quot;I&quot;,
	[&quot;v&quot;] = &quot;u&quot;, [&quot;V&quot;] = &quot;U&quot;,
}

local function normalizar_enlace(x)
	x = toNFD(x)
	x = gsub(x, ACCENT, &quot;&quot;)
	return toNFC(x)
end

local function join(a, b)
    a, b = toNFD(a), toNFD(b)
	-- If the first part ends in &quot;j&quot; or &quot;v&quot;, convert it to &quot;i&quot; or &quot;u&quot; unless
	-- the second part begins with a vowel.
	if not match(b, &quot;^&quot; .. VOWEL) then
		a = gsub(a, &quot;[jvJV]$&quot;, cons_to_vowel)
	end
    return toNFC(a..b)
end

local function add_form(decl, slot, stem, suf)
	if type(slot) == &quot;string&quot; then
		slot = {slot}
	end
	for _,slt in ipairs(slot) do
		if type(decl[slt]) == &quot;nil&quot; or decl[slt] == &quot;&quot; then
			decl[slt] = {}
		elseif type(decl[slt]) == &quot;string&quot; then
			decl[slt] = {decl[slt]}
		end

		insert_if_not(decl[slt], join(stem, suf))
	end
end

local function remove_forms(decl, forms)
	for form,_ in pairs(decl) do
		for _,rx in ipairs(forms) do
			if form:find(rx) then
				forms[form] = {}
				break
			end
		end
	end
end

local function merge_forms(forms, forms2, keys)
	keys = keys or forms2
	for key,arr in pairs(keys) do
		if not forms[key] then
			forms[key] = {}
		end
		if type(forms2[key]) == &quot;string&quot; then
			insert_if_not(forms[key], forms2[key])
		elseif type(forms2[key]) == &quot;table&quot; then
			for _,a in ipairs(forms2[key]) do
				insert_if_not(forms[key], a)
			end
		end
	end
end

local noun_decl = {}

noun_decl[&quot;0&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = stem
	forms[&quot;dat_sg&quot;] = stem
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = stem
	forms[&quot;voc_sg&quot;] = stem

	forms[&quot;nom_pl&quot;] = stem
	forms[&quot;gen_pl&quot;] = stem
	forms[&quot;dat_pl&quot;] = stem
	forms[&quot;acc_pl&quot;] = stem
	forms[&quot;abl_pl&quot;] = stem
	forms[&quot;voc_pl&quot;] = stem

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem
		forms[&quot;loc_pl&quot;] = stem
	end
end

local function alt_gen_pl_in_um(stem, forms, types, subtitles, i_stem)
	if types.genplum then
		add_form(forms, &quot;gen_pl&quot;, stem, (i_stem and &quot;i&quot; or &quot;&quot;) .. &quot;um&quot;)
	elseif types.not_genplum then
		-- FIXME: not a contraction.
		-- insert_if_not(subtitles, &quot;uncontracted genitive plural&quot;)
	end
end

noun_decl[&quot;1&quot;] = function(data, args)
	local forms, types, loc, subtitles = data.forms, data.types, data.loc, data.subtitles
	local stem = args[1]

	-- normal 1st
	local nom_sg = &quot;a&quot;
	local gen_loc_sg = &quot;ae&quot;
	local dat_sg = &quot;ae&quot;
	local acc_sg = &quot;am&quot;
	local abl_sg = &quot;ā&quot;
	local voc_sg = &quot;a&quot;

	local nom_voc_pl = &quot;ae&quot;
	local gen_pl = &quot;ārum&quot;
	local dat_abl_loc_pl = &quot;īs&quot;
	local acc_pl = &quot;ās&quot;

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la primera declinación&quot;)

	-- ām
	if types.am then
		nom_sg = &quot;ām&quot;
		acc_sg = &quot;ām&quot;
		abl_sg = {&quot;ām&quot;, &quot;ā&quot;}
		voc_sg = &quot;ām&quot;

	-- all Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		--Greek Ma
		if types.Ma then
			nom_sg = &quot;ās&quot;
			acc_sg = &quot;ān&quot;
			voc_sg = &quot;ā&quot;

		-- Greek Me
		elseif types.Me then
			nom_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		-- Greek
		else
			nom_sg = &quot;ē&quot;
			gen_loc_sg = &quot;ēs&quot;
			acc_sg = &quot;ēn&quot;
			abl_sg = &quot;ē&quot;
			voc_sg = &quot;ē&quot;

		end
	end

	-- ābus
	if types.abus then
		dat_abl_loc_pl = &quot;ābus&quot;
	end

	add_form(forms, &quot;nom_sg&quot;, stem, nom_sg)
	add_form(forms, &quot;gen_sg&quot;, stem, gen_loc_sg)
	add_form(forms, &quot;dat_sg&quot;, stem, dat_sg)
	add_form(forms, &quot;acc_sg&quot;, stem, acc_sg)
	add_form(forms, &quot;abl_sg&quot;, stem, abl_sg)
	add_form(forms, &quot;voc_sg&quot;, stem, voc_sg)

	add_form(forms, {&quot;nom_pl&quot;, &quot;voc_pl&quot;}, stem, nom_voc_pl)
	add_form(forms, &quot;gen_pl&quot;, stem, gen_pl)
	add_form(forms, {&quot;dat_pl&quot;, &quot;abl_pl&quot;}, stem, dat_abl_loc_pl)
	add_form(forms, &quot;acc_pl&quot;, stem, acc_pl)

	-- with locative
	if loc then
		add_form(forms, &quot;loc_sg&quot;, stem, gen_loc_sg)
		add_form(forms, &quot;loc_pl&quot;, stem, dat_abl_loc_pl)
	end
end

noun_decl[&quot;2&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la segunda declinación&quot;)

	-- normal 2nd
	forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;dat_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;acc_sg&quot;] = stem1 .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem1 .. &quot;ō&quot;
	forms[&quot;voc_sg&quot;] = stem1 .. &quot;e&quot;

	forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
	forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōrum&quot;
	forms[&quot;dat_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
	forms[&quot;abl_pl&quot;] = stem1 .. &quot;īs&quot;
	forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;

	-- all neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;um&quot;
		forms[&quot;voc_sg&quot;] = stem1 .. &quot;um&quot;

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;

		-- neuter ium
		if types.ium then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ium&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ia&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ia&quot;			
		-- neuter us, plural a
		elseif types.a then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;a&quot;
		-- -vom (aevom, etc.)
		elseif types.vom then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;om&quot;

		-- neuter Greek in -os (cētos)
		elseif types.Greek and types.us then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;os&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;os&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ē&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ē&quot;

		-- neuter Greek
		elseif types.Greek then
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;on&quot;

		-- neuter us
		elseif types.us then
			forms[&quot;nom_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;us&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;us&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ī&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;ōs&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ī&quot;
		end

	-- er
	elseif types.er then
		forms[&quot;nom_sg&quot;] = stem1
		forms[&quot;gen_sg&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;dat_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;acc_sg&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg&quot;] = stem2 .. &quot;ō&quot;
		forms[&quot;voc_sg&quot;] = stem1

		forms[&quot;nom_pl&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ōrum&quot;
		forms[&quot;dat_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;acc_pl&quot;] = stem2 .. &quot;ōs&quot;
		forms[&quot;abl_pl&quot;] = stem2 .. &quot;īs&quot;
		forms[&quot;voc_pl&quot;] = stem2 .. &quot;ī&quot;

	-- ius
	elseif types.ius then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;ius&quot;
		forms[&quot;gen_sg&quot;] = {stem1 .. &quot;iī&quot;, stem1 .. &quot;ī{†}&quot;}
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;iō&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;ium&quot;
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;iō&quot;
		if types.voci then
			-- Only for proper names and fīlius, genius
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ī&quot;
		else
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ie&quot;
		end

		forms[&quot;nom_pl&quot;] = stem1 .. &quot;iī&quot;
		forms[&quot;gen_pl&quot;] = stem1 .. &quot;iōrum&quot;
		forms[&quot;dat_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;acc_pl&quot;] = stem1 .. &quot;iōs&quot;
		forms[&quot;abl_pl&quot;] = stem1 .. &quot;iīs&quot;
		forms[&quot;voc_pl&quot;] = stem1 .. &quot;iī&quot;

	-- -vos (servos, etc.)
	elseif types.vos then
		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;om&quot;

	-- Greek
	elseif types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;os&quot;
		forms[&quot;acc_sg&quot;] = stem1 .. &quot;on&quot;
		
		if data.num == &quot;pl&quot; then
			forms[&quot;nom_pl&quot;] = stem1 .. &quot;oe&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;oe&quot;
		else
			forms[&quot;nom_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
			forms[&quot;voc_pl&quot;] = {stem1 .. &quot;ī&quot;, stem1 .. &quot;oe&quot;}
		end

	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- with -um genitive plural
	alt_gen_pl_in_um(stem2, forms, types, subtitles, types.ius or types.ium)

	-- with locative
	if data.loc then
		if types.ius or types.ium then
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;iī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;iīs&quot;
		else
			forms[&quot;loc_sg&quot;] = stem2 .. &quot;ī&quot;
			forms[&quot;loc_pl&quot;] = stem2 .. &quot;īs&quot;
		end
	end
end

local acc_sg_i_stem_subtypes = {
	acc_im = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [abl -ī];
		-- cannabis, senapis, sinapis [abl -e, -ī]
		acc_sg = {&quot;im&quot;},
		title = {&quot;accusative singular in ''-im''&quot;},
	},
	acc_im_in = {
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [abl -ī];
		-- Baetis, Tigris [acc -e, -ī]
		acc_sg = {&quot;im&quot;, &quot;in&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-in''&quot;},
	},
	acc_im_in_em = {
		-- e.g. tigris, river Līris
		acc_sg = {&quot;im&quot;, &quot;in&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'', ''-in'' or ''-em''&quot;},
	},
	acc_im_em = {
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or ''-em''&quot;},
	},
	acc_im_occ_em = {
		-- febris, pelvis, puppis, restis, securis, turris [abl -ī, -e]
		acc_sg = {&quot;im&quot;, &quot;em&quot;},
		title = {&quot;accusative singular in ''-im'' or occasionally ''-em''&quot;},
	},
	acc_em_im = {
		-- aqualis, clavis, lens, navis [abl -e, -ī];
		-- cutis, restis [abl -e]
		acc_sg = {&quot;em&quot;, &quot;im&quot;},
		title = {&quot;accusative singular in ''-em'' or ''-im''&quot;},
	},
}

local abl_sg_i_stem_subtypes = {
	abl_i = {
		-- amussis, basis, buris, cucumis, gummis, mephitis, paraphrasis, poesis, ravis, sitis, tussis, (vis) [acc -im];
		-- cities, rivers, gods, e.g. Bilbilis, Syrtis, Tiberis, Anubis, Osiris [acc -im or -in];
		-- canalis &quot;water pipe&quot;, months in -is or -er, nouns originally i-stem adjectives such as aedilis, affinis, bipennis, familiaris, sodalis, volucris, etc. [acc -em]
		abl_sg = {&quot;ī&quot;},
		title = {&quot;ablative singular in ''-ī''&quot;},
	},
	abl_i_e = {
		-- febris, pelvis, puppis, restis, securis, turris [acc -im, -em]
		abl_sg = {&quot;ī&quot;, &quot;e&quot;},
		title = {&quot;ablative singular in ''-ī'' or ''-e''&quot;},
	},
	abl_e_i = {
		-- cannabis, senapis, sinapis [acc -im];
		-- Baetis, Tigris [acc -im, -in];
		-- aqualis, clavis, lens, navis [acc -em, -im];
		-- finis, mugilis, occiput, pugil, rus, supellex, vectis [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or ''-ī''&quot;},
	},
	abl_e_occ_i = {
		-- amnis, anguis, avis, civis, classis, fustis, ignis, imber, orbis, pars, postis, sors, unguis, vesper [acc -em]
		abl_sg = {&quot;e&quot;, &quot;ī&quot;},
		title = {&quot;ablative singular in ''-e'' or occasionally ''-ī''&quot;},
	},
}

local function extract_stem(form, ending)
	local base = match(form, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
	if not base then
		error(&quot;Form &quot; .. form .. &quot; should end in -&quot; .. ending)
	end
	return base
end

local function count_vowels(stem)
	return select(2, toNFD(stem):gsub(&quot;[aeiouyAEIOUY]&quot;, &quot;&quot;))
end

noun_decl[&quot;3&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem1, stem2 = args[1], args[2]

	-- local function non_i_stem_type()
	-- 	return (count_vowels(stem1) &gt; count_vowels(stem2) and &quot;parisyllabic&quot; or &quot;imparisyllabic&quot;) .. &quot; non-i-stem&quot;
	-- end

	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)

	--normal 3rd
	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;dat_sg&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;acc_sg&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;dat_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem2 .. &quot;ēs&quot;

	local acc_sg_i_stem_subtype = false
	local not_acc_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if acc_sg_i_stem_subtypes[subtype] then
			acc_sg_i_stem_subtype = true
			break
		end
	end
	for acc_sg_subtype, _ in pairs(acc_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. acc_sg_subtype] then
			not_acc_sg_i_stem_subtype = true
			break
		end
	end
	local abl_sg_i_stem_subtype = false
	local not_abl_sg_i_stem_subtype = false
	for subtype, _ in pairs(types) do
		if abl_sg_i_stem_subtypes[subtype] then
			abl_sg_i_stem_subtype = true
			break
		end
	end
	for abl_sg_subtype, _ in pairs(abl_sg_i_stem_subtypes) do
		if types[&quot;not_&quot; .. abl_sg_subtype] then
			not_abl_sg_i_stem_subtype = true
			break
		end
	end

	-- all Greek
	if types.Greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		-- Greek er
		if types.er then
			stem1 = extract_stem(stem1, &quot;ēr&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ēr&quot;
			forms[&quot;gen_sg&quot;] = stem1 .. &quot;eris&quot;
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;erī&quot;
			forms[&quot;acc_sg&quot;] = {stem1 .. &quot;era&quot;, stem1 .. &quot;erem&quot;}
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;ere&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ēr&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;gen_pl&quot;] = stem1 .. &quot;erum&quot;
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;acc_pl&quot;] = stem1 .. &quot;erēs&quot;
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;eribus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;erēs&quot;

		-- Greek on
		elseif types.on then
			stem1 = extract_stem(stem1, &quot;ōn&quot;)

			forms[&quot;nom_sg&quot;] = stem1 .. &quot;ōn&quot;
			forms[&quot;gen_sg&quot;] = {stem1 .. &quot;ontis&quot;, stem1 .. &quot;ontos&quot;}
			forms[&quot;dat_sg&quot;] = stem1 .. &quot;ontī&quot;
			forms[&quot;acc_sg&quot;] = stem1 .. &quot;onta&quot;
			forms[&quot;abl_sg&quot;] = stem1 .. &quot;onte&quot;
			forms[&quot;voc_sg&quot;] = stem1 .. &quot;ōn&quot;

			forms[&quot;nom_pl&quot;] = stem1 .. &quot;ontēs&quot;
			forms[&quot;gen_pl&quot;] = {stem1 .. &quot;ontum&quot;, stem1 .. &quot;ontium&quot;}
			forms[&quot;dat_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;acc_pl&quot;] = {stem1 .. &quot;ontēs&quot;, stem1 .. &quot;ontās&quot;}
			forms[&quot;abl_pl&quot;] = stem1 .. &quot;ontibus&quot;
			forms[&quot;voc_pl&quot;] = stem1 .. &quot;ontēs&quot;

		-- Greek i-stem
		elseif types.I then
			forms[&quot;gen_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;eōs&quot;, stem2 .. &quot;ios&quot;}
			forms[&quot;acc_sg&quot;] = {stem2 .. &quot;im&quot;, stem2 .. &quot;in&quot;, stem2 .. &quot;em{MED}&quot;}
			forms[&quot;abl_sg&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e{MED}&quot;}
			forms[&quot;voc_sg&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;i&quot;}

			forms[&quot;nom_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;eōn&quot;}
			forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}
			forms[&quot;voc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;eis&quot;}

			if types.poetic_esi then
				forms[&quot;dat_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
				forms[&quot;abl_pl&quot;] = {stem2 .. &quot;ibus&quot;, stem2 .. &quot;esi{L}&quot;}
			end

		-- normal Greek
		else
			forms[&quot;gen_sg&quot;] = stem2 .. &quot;os&quot;
			if match(toNFD(stem2), &quot;[yY]&quot; .. ACCENT .. &quot;*$&quot;) then
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;n&quot;
			else
				forms[&quot;acc_sg&quot;] = stem2 .. &quot;a&quot;
			end

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;es&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;as&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;es&quot;
			if match(toNFD(stem1), &quot;[iyIY]&quot; .. ACCENT .. &quot;*s$&quot;) then
				-- Per Hiley, words in -is and -ys have a poetic vocative
				-- without the -s, but otherwise the vocative is the same
				-- as the nominative.
				forms[&quot;voc_sg&quot;] = {stem1, (stem1:gsub(&quot;s$&quot;, &quot;&quot;))..&quot;{L}&quot;}
			end
		end
	elseif types.not_Greek then
		insert_if_not(data.title, &quot;no griego&quot;)
	end

	-- polis
	if types.polis then
		stem1 = extract_stem(stem1, &quot;polis&quot;)
		insert_if_not(data.title, &quot;parcialmente griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;gen_sg&quot;] = stem1 .. &quot;polis&quot;
		forms[&quot;dat_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;acc_sg&quot;] = {stem1 .. &quot;polim&quot;, stem1 .. &quot;polin&quot;}
		forms[&quot;abl_sg&quot;] = stem1 .. &quot;polī&quot;
		forms[&quot;voc_sg&quot;] = {stem1 .. &quot;polis&quot;, stem1 .. &quot;polī&quot;}
	end

	-- all neuter
	if types.N then
		forms[&quot;acc_sg&quot;] = stem1

		-- neuter I stem
		if types.I then

			-- pure variety
			if types.pure then
				forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

				forms[&quot;nom_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;ia&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;ia&quot;

			-- non-pure variety (rare)
			else
				forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;gen_pl&quot;] = {stem2 .. &quot;ium&quot;, stem2 .. &quot;um&quot;}
				forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
				forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
			end

		-- normal neuter
		else
			forms[&quot;nom_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;a&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;a&quot;
		end

	-- I stem
	elseif types.I or acc_sg_i_stem_subtype or abl_sg_i_stem_subtype then
		forms[&quot;gen_pl&quot;] = stem2 .. &quot;ium&quot;
		-- Per Allen and Greenough, Hiley and others, the acc_pl in -īs
		-- applied originally to all i-stem nouns, and was current as an
		-- alternative form up through Caesar.
		forms[&quot;acc_pl&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}

		-- pure variety
		if types.pure then
			forms[&quot;acc_sg&quot;] = stem2 .. &quot;im&quot;
			forms[&quot;abl_sg&quot;] = stem2 .. &quot;ī&quot;

			forms[&quot;nom_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;acc_pl&quot;] = stem2 .. &quot;īs&quot;
			forms[&quot;voc_pl&quot;] = stem2 .. &quot;īs&quot;
		end

		local num = data.num
		for subtype, _ in pairs(types) do
			local acc_sg_i_stem_props = acc_sg_i_stem_subtypes[subtype]
			if acc_sg_i_stem_props then
				forms[&quot;acc_sg&quot;] = {}
				for _, ending in ipairs(acc_sg_i_stem_props.acc_sg) do
					insert_if_not(forms[&quot;acc_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(acc_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end

		-- FIXME: needs to be done for neuter nouns as well.
		for subtype, _ in pairs(types) do
			local abl_sg_i_stem_props = abl_sg_i_stem_subtypes[subtype]
			if abl_sg_i_stem_props then
				forms[&quot;abl_sg&quot;] = {}
				for _, ending in ipairs(abl_sg_i_stem_props.abl_sg) do
					insert_if_not(forms[&quot;abl_sg&quot;], stem2 .. ending)
				end
				-- if num ~= &quot;pl&quot; then
				--	for _, t in ipairs(abl_sg_i_stem_props.title) do
				--		insert_if_not(subtitles, t)
				--	end
				-- end
				break
			end
		end
	end

	-- with locative
	if data.loc then
		-- As far as I can tell, in general both dative singular and
		-- ablative singular could be used for the third-declension locative,
		-- with different time periods preferring different forms.
		-- http://dcc.dickinson.edu/grammar/latin/3rd-declension-locative-case
		-- mentions rūrī along with either Carthāginī or Carthāgine.
		-- Wikipedia in https://en.wikipedia.org/wiki/Locative_case#Latin
		-- says this:
		--
		-- In archaic times, the locative singular of third declension nouns
		-- was still interchangeable between ablative and dative forms, but in
		-- the Augustan Period the use of the ablative form became fixed.
		-- Therefore, both forms &quot;rūrī&quot; and &quot;rūre&quot; may be encountered.
		--
		-- Lewis and Short confirm this.
		local loc_sg = forms[&quot;dat_sg&quot;]
		if type(loc_sg) == &quot;table&quot; then
			loc_sg = deep_copy(loc_sg)
		else
			loc_sg = {loc_sg}
		end
		local abl_sg = forms[&quot;abl_sg&quot;]
		if type(abl_sg) == &quot;table&quot; then
			for _, form in ipairs(abl_sg) do
				insert_if_not(loc_sg, deep_copy(form))
			end
		else
			insert_if_not(loc_sg, abl_sg)
		end
		forms[&quot;loc_sg&quot;] = loc_sg
		forms[&quot;loc_pl&quot;] = deep_copy(forms[&quot;abl_pl&quot;])
		--The following is what we used to have, but I simply cannot believe it.
		--if types.Greek and not types.s then
		--	forms[&quot;loc_pl&quot;] = stem2 .. &quot;ēs&quot;
		--end
	end
end

noun_decl[&quot;4&quot;] = function(data, args)
	local forms, types, subtitles, notes = data.forms, data.types, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;cuarta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la cuarta declinación&quot;)

	-- normal 4th
	forms[&quot;nom_sg&quot;] = stem .. &quot;us&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;uī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;um&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ū&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;us&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;uum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ūs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ūs&quot;

	if types.echo then
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

		add_form(forms, &quot;acc_sg&quot;, stem, &quot;ōn&quot;)

	elseif types.Callisto then		
		for slot in pairs(forms) do
			if slot ~= &quot;gen_sg&quot; then
				forms[slot] = stem .. &quot;ō&quot;
			end
		end

	end

	-- neuter
	if types.N then
		forms[&quot;nom_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;gen_sg&quot;] = {stem .. &quot;ūs{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;dat_sg&quot;] = {stem .. &quot;uī{C}&quot;, stem .. &quot;ū{S}&quot;}
		forms[&quot;acc_sg&quot;] = stem .. &quot;ū̆{?}&quot;
		forms[&quot;voc_sg&quot;] = stem .. &quot;ū̆{?}&quot;

		forms[&quot;nom_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;acc_pl&quot;] = stem .. &quot;ua&quot;
		forms[&quot;voc_pl&quot;] = stem .. &quot;ua&quot;
	end

	-- ubus
	if types.ubus then
		forms[&quot;dat_pl&quot;] = stem .. &quot;ubus&quot;
		forms[&quot;abl_pl&quot;] = stem .. &quot;ubus&quot;
	end

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = forms[&quot;abl_sg&quot;]
		forms[&quot;loc_pl&quot;] = forms[&quot;abl_pl&quot;]
	end
end

noun_decl[&quot;5&quot;] = function(data, args)
	local forms, types = data.forms, data.types
	local stem = args[1]

	insert_if_not(data.title, &quot;quinta declinación&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos de la quinta declinación&quot;)

	-- ies
	if types.i then
		stem = stem .. &quot;i&quot;
	end

	forms[&quot;nom_sg&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;dat_sg&quot;] = stem .. &quot;eī&quot;
	forms[&quot;acc_sg&quot;] = stem .. &quot;em&quot;
	forms[&quot;abl_sg&quot;] = stem .. &quot;ē&quot;
	forms[&quot;voc_sg&quot;] = stem .. &quot;ēs&quot;

	forms[&quot;nom_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;gen_pl&quot;] = stem .. &quot;ērum&quot;
	forms[&quot;dat_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;acc_pl&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;abl_pl&quot;] = stem .. &quot;ēbus&quot;
	forms[&quot;voc_pl&quot;] = stem .. &quot;ēs&quot;

	-- ies
	if types.i then
		forms[&quot;gen_sg&quot;] = stem .. &quot;ēī&quot;
		forms[&quot;dat_sg&quot;] = stem .. &quot;ēī&quot;
	end

	--with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem .. &quot;ē&quot;
		forms[&quot;loc_pl&quot;] = stem .. &quot;ēbus&quot;
	end
end

noun_decl[&quot;sgpl&quot;] = function(data, args)
	local forms = data.forms
	local stem1, stem2 = args[1], args[2]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem1
	forms[&quot;gen_sg&quot;] = stem1
	forms[&quot;dat_sg&quot;] = stem1
	forms[&quot;acc_sg&quot;] = stem1
	forms[&quot;abl_sg&quot;] = stem1
	forms[&quot;voc_sg&quot;] = stem1

	forms[&quot;nom_pl&quot;] = stem2
	forms[&quot;gen_pl&quot;] = stem2
	forms[&quot;dat_pl&quot;] = stem2
	forms[&quot;acc_pl&quot;] = stem2
	forms[&quot;abl_pl&quot;] = stem2
	forms[&quot;voc_pl&quot;] = stem2

	-- with locative
	if data.loc then
		forms[&quot;loc_sg&quot;] = stem1
		forms[&quot;loc_pl&quot;] = stem2
	end
end

noun_decl[&quot;indecl&quot;] = function(data, args)
	local forms = data.forms
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos indeclinables&quot;)

	forms[&quot;nom_sg&quot;] = stem
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = stem
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	-- with locative (for multiword terms)
	if data.loc then
		forms[&quot;loc_sg&quot;] = {}
		forms[&quot;loc_pl&quot;] = {}
	end

	data.num = &quot;sg&quot;
end

noun_decl[&quot;irreg&quot;] = function(data, args)
	local forms, subtitles, notes = data.forms, data.subtitles, data.notes
	local stem = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(data.categories, &quot;LA:Sustantivos irregulares&quot;)

	forms[&quot;nom_sg&quot;] = {}
	forms[&quot;gen_sg&quot;] = {}
	forms[&quot;dat_sg&quot;] = {}
	forms[&quot;acc_sg&quot;] = {}
	forms[&quot;abl_sg&quot;] = {}
	forms[&quot;voc_sg&quot;] = {}

	forms[&quot;nom_pl&quot;] = {}
	forms[&quot;gen_pl&quot;] = {}
	forms[&quot;dat_pl&quot;] = {}
	forms[&quot;acc_pl&quot;] = {}
	forms[&quot;abl_pl&quot;] = {}
	forms[&quot;voc_pl&quot;] = {}

	if stem == &quot;bōs&quot; then
		data.decl = &quot;3&quot;
		local stem1, stem2 = &quot;bōs&quot;, &quot;bov&quot;
		
		noun_decl[&quot;3&quot;](data, {stem1, stem2})

		add_form(forms, &quot;abl_sg&quot;, stem2, &quot;īd{†}&quot;)

		add_form(forms, &quot;gen_pl&quot;, &quot;bo&quot;, &quot;um&quot;)
		add_form(forms, &quot;gen_pl&quot;, stem2, &quot;erum&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;dat_pl&quot;, &quot;&quot;, &quot;būbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;bōbus&quot;)
		add_form(forms, &quot;abl_pl&quot;, &quot;&quot;, &quot;būbus&quot;)

	elseif stem:match(&quot;^[dD]eus$&quot;) then
		data.decl = &quot;2&quot;
		local dD = stem:sub(1, 1)
		
		forms[&quot;nom_sg&quot;] = dD .. &quot;eus&quot;
		forms[&quot;gen_sg&quot;] = dD .. &quot;eī&quot;
		forms[&quot;dat_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;acc_sg&quot;] = dD .. &quot;eum&quot;
		forms[&quot;abl_sg&quot;] = dD .. &quot;eō&quot;
		forms[&quot;voc_sg&quot;] = {dD .. &quot;eus&quot;, dD .. &quot;ee&quot;}
		
		if stem == &quot;deus&quot; then
			forms[&quot;nom_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
			forms[&quot;gen_pl&quot;] = {&quot;deōrum&quot;, &quot;deum&quot;}
			forms[&quot;dat_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;acc_pl&quot;] = &quot;deōs&quot;
			forms[&quot;abl_pl&quot;] = {&quot;dīs&quot;, &quot;diīs&quot;, &quot;deīs&quot;}
			forms[&quot;voc_pl&quot;] = {&quot;dī&quot;, &quot;diī&quot;, &quot;deī&quot;}
		end

	elseif stem == &quot;domus&quot; then
		data.decl = &quot;4,2&quot;
		insert_if_not(data.title, &quot;cuarta/segunda declinación&quot;)

		forms[&quot;nom_sg&quot;] = &quot;domus&quot;
		forms[&quot;gen_sg&quot;] = {&quot;domūs&quot;, &quot;domī&quot;}
		forms[&quot;dat_sg&quot;] = {&quot;domuī&quot;, &quot;domō&quot;, &quot;domū&quot;}
		forms[&quot;acc_sg&quot;] = &quot;domum&quot;
		forms[&quot;abl_sg&quot;] = {&quot;domū&quot;, &quot;domō&quot;}
		forms[&quot;voc_sg&quot;] = &quot;domus&quot;
		forms[&quot;loc_sg&quot;] = &quot;domī&quot;

		forms[&quot;nom_pl&quot;] = &quot;domūs&quot;
		forms[&quot;gen_pl&quot;] = {&quot;domuum&quot;, &quot;domōrum&quot;}
		forms[&quot;dat_pl&quot;] = &quot;domibus&quot;
		forms[&quot;acc_pl&quot;] = {&quot;domūs&quot;, &quot;domōs&quot;}
		forms[&quot;abl_pl&quot;] = &quot;domibus&quot;
		forms[&quot;voc_pl&quot;] = &quot;domūs&quot;
		forms[&quot;loc_pl&quot;] = {}

		data.loc = true

	elseif match(stem, &quot;^[IÏJ]ēs[uū]&quot; .. BREVE .. &quot;?s$&quot;) then
		local ij = sub(stem, 1, 1)
		local uu = match(stem, &quot;[uū]&quot; .. BREVE .. &quot;?&quot;)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ēs&quot; .. uu .. &quot;m&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ēsū&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ēsū&quot;
		data.num = &quot;sg&quot;
		
	elseif stem == &quot;Mōsēs&quot; or stem == &quot;Moesēs&quot; or match(stem, &quot;^M[oō]&quot; .. BREVE .. &quot;?[īȳ]sēs$&quot;) then
		local mos = sub(stem, 1, -3)

		forms[&quot;nom_sg&quot;] = stem
		forms[&quot;gen_sg&quot;] = {mos .. &quot;ī&quot;, mos .. &quot;ēī&quot;, mos .. &quot;is&quot;, mos .. &quot;ēn&quot;, mos .. &quot;eōs&quot;}
		forms[&quot;dat_sg&quot;] = mos .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = {mos .. &quot;ēn&quot;, mos .. &quot;em&quot;}
		forms[&quot;abl_sg&quot;] = {mos .. &quot;e&quot;, mos .. &quot;ēn&quot;, mos .. &quot;ī&quot;}
		forms[&quot;voc_sg&quot;] = {mos .. &quot;ēs&quot;, mos .. &quot;ē&quot;}
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[ij]ūgerum$&quot;) then
		data.decl = &quot;2,3&quot;
		local ij = stem:sub(1, 1)
		insert_if_not(data.title, &quot;segunda/tercera declinación híbrido&quot;)

		forms[&quot;nom_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;gen_sg&quot;] = ij .. &quot;ūgerī&quot;
		forms[&quot;dat_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;acc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;abl_sg&quot;] = ij .. &quot;ūgerō&quot;
		forms[&quot;voc_sg&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;nom_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;gen_pl&quot;] = ij .. &quot;ūgerum&quot;
		forms[&quot;dat_pl&quot;] = ij .. &quot;ūgeribus&quot;
		forms[&quot;acc_pl&quot;] = ij .. &quot;ūgera&quot;
		forms[&quot;abl_pl&quot;] = {ij .. &quot;ūgeribus&quot;, ij .. &quot;ūgerīs{†}&quot;}
		forms[&quot;voc_pl&quot;] = ij .. &quot;ūgera&quot;

	elseif stem == &quot;sūs&quot; then
		data.decl = &quot;3&quot;

		forms[&quot;nom_sg&quot;] = &quot;sūs&quot;
		forms[&quot;gen_sg&quot;] = &quot;suis&quot;
		forms[&quot;dat_sg&quot;] = &quot;suī&quot;
		forms[&quot;acc_sg&quot;] = &quot;suem&quot;
		forms[&quot;abl_sg&quot;] = &quot;sue&quot;
		forms[&quot;voc_sg&quot;] = &quot;sūs&quot;

		forms[&quot;nom_pl&quot;] = &quot;suēs&quot;
		forms[&quot;gen_pl&quot;] = &quot;suum&quot;
		forms[&quot;dat_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;acc_pl&quot;] = &quot;suēs&quot;
		forms[&quot;abl_pl&quot;] = {&quot;suibus&quot;, &quot;sūbus&quot;, &quot;subus&quot;}
		forms[&quot;voc_pl&quot;] = &quot;suēs&quot;

	elseif stem == &quot;ēthos&quot; then
		data.decl = &quot;3&quot;
		insert_if_not(data.title, &quot;tercera declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;gen_sg&quot;] = &quot;ētheos&quot;
		forms[&quot;acc_sg&quot;] = &quot;ēthos&quot;
		forms[&quot;voc_sg&quot;] = &quot;ēthos&quot;

		forms[&quot;nom_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;dat_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;acc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}
		forms[&quot;abl_pl&quot;] = {&quot;ēthesi&quot;, &quot;ēthesin&quot;}
		forms[&quot;voc_pl&quot;] = {&quot;ēthea&quot;, &quot;ēthē&quot;}

	elseif stem == &quot;Athōs&quot; then
		data.decl = &quot;2&quot;
		insert_if_not(data.title, &quot;segunda declinación, griego&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos griegos&quot;)

		forms[&quot;nom_sg&quot;] = &quot;Athōs&quot;
		forms[&quot;gen_sg&quot;] = &quot;Athō&quot;
		forms[&quot;dat_sg&quot;] = &quot;Athō&quot;
		forms[&quot;acc_sg&quot;] = {&quot;Athō&quot;, &quot;Athōn&quot;}
		forms[&quot;abl_sg&quot;] = &quot;Athō&quot;
		forms[&quot;voc_sg&quot;] = &quot;Athōs&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]ēnum$&quot;) then
		data.decl = &quot;4,2&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;cuarta/segunda declinación, defectivo&quot;)

		forms[&quot;dat_sg&quot;] = {uv .. &quot;ēnuī&quot;, uv .. &quot;ēnō&quot;}
		forms[&quot;acc_sg&quot;] = uv .. &quot;ēnum&quot;
		data.num = &quot;sg&quot;

	elseif stem:match(&quot;^[uv]īs$&quot;) then
		data.decl = &quot;3&quot;
		local uv = stem:sub(1, 1)
		insert_if_not(data.title, &quot;defectivo&quot;)

		forms[&quot;nom_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;gen_sg&quot;] = uv .. &quot;īs&quot;
		forms[&quot;dat_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;acc_sg&quot;] = uv .. &quot;im&quot;
		forms[&quot;abl_sg&quot;] = uv .. &quot;ī&quot;
		forms[&quot;voc_sg&quot;] = uv .. &quot;īs&quot;

		forms[&quot;nom_pl&quot;] = uv .. &quot;īrēs&quot;
		forms[&quot;gen_pl&quot;] = uv .. &quot;īrium&quot;
		forms[&quot;dat_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;acc_pl&quot;] = {uv .. &quot;īrēs&quot;, uv .. &quot;īrīs&quot;}
		forms[&quot;abl_pl&quot;] = uv .. &quot;īribus&quot;
		forms[&quot;voc_pl&quot;] = uv .. &quot;īrēs&quot;

	else
		error(&quot;Stem &quot; .. stem .. &quot; not recognized.&quot;)
	end
end

local adj_decl = {}

adj_decl[&quot;0+&quot;] = function(data, args)
	local forms, categories = data.forms, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = stem

	forms[&quot;gen_sg_m&quot;] = stem
	forms[&quot;gen_pl_m&quot;] = stem

	forms[&quot;dat_sg_m&quot;] = stem
	forms[&quot;dat_pl_m&quot;] = stem

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = stem

	forms[&quot;abl_sg_m&quot;] = stem
	forms[&quot;abl_pl_m&quot;] = stem

	forms[&quot;voc_sg_m&quot;] = stem
	forms[&quot;voc_pl_m&quot;] = stem

	forms[&quot;loc_sg_m&quot;] = stem
	forms[&quot;loc_pl_m&quot;] = stem
end

adj_decl[&quot;1&amp;2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera y segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local original
	if types.er then
		local final2 = stem:sub(-2)
		if final2 == &quot;er&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		elseif final2 == &quot;ur&quot; then
			-- insert_if_not(categories, &quot;LA:Sustantivos de la primera declinación&quot;)
			-- insert_if_not(categories, &quot;LA:Sustantivos de la segunda declinación&quot;)
		else
			error(&quot;Unrecognized ''-r'' stem (doesn't end in ''-er'' or ''-ur''): &quot; .. stem)
		end
		stem, original = args[2], stem
	end

	local us = &quot;us&quot;
	local a_sf = &quot;a&quot;
	local um = &quot;um&quot;
	local ae_gsf = &quot;ae&quot;
	local am = &quot;am&quot;
	local a_macron = &quot;ā&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greekA or types.greekE then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		if types.greekA then
			us = &quot;os&quot;
			um = &quot;on&quot;
			am = &quot;ān&quot;
		else
			us = &quot;os&quot;
			a_sf = &quot;ē&quot;
			um = &quot;on&quot;
			ae_gsf = &quot;ēs&quot;
			am = &quot;ēn&quot;
			a_macron = &quot;ē&quot;
		end
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = original or (stem .. us)
	forms[&quot;nom_sg_f&quot;] = stem .. a_sf
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_f&quot;] = stem .. ae_gsf
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_f&quot;] = stem .. am
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_f&quot;] = stem .. a_macron
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_f&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = original or (stem .. &quot;e&quot;)
	forms[&quot;voc_sg_f&quot;] = stem .. a_sf
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	if types.ius then
		insert_if_not(data.title, &quot;pronominal&quot;)
		--insert_if_not(subtitles, &quot;with genitive singular in ''-ī̆us'' and dative singular in ''-ī''&quot;)
		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆us&quot;
		forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;ī&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	elseif types.not_ius then
		insert_if_not(data.title, &quot;no pronominal&quot;)
		--insert_if_not(subtitles, &quot;with normal genitive and dative singular&quot;)
	end
	if stem == &quot;me&quot; then
		forms[&quot;voc_sg_m&quot;] = &quot;mī&quot;
	end
	if types.ic then
		--insert_if_not(subtitles, &quot;with genitive singular ending in ''-ius'' and dative singular ending in ''-ic''&quot;)

		local oc = &quot;oc&quot;
		local oc_macron = &quot;ōc&quot;
		if stem == &quot;ill&quot; then
			oc = &quot;uc&quot;
			oc_macron = &quot;ūc&quot;
		end

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = stem .. oc
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;uius&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;uius&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;uic&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;uic&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = stem .. oc
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. oc_macron

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}
	end

	if types.distr then
		if stem:sub(-1) == &quot;n&quot; then
			forms[&quot;gen_pl_m&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
			forms[&quot;gen_pl_f&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ārum{R}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem .. &quot;um&quot;, stem .. &quot;ōrum{R}&quot;}
		else
			error(&quot;Unrecognized distributive numeral stem (doesn't end in ''n''): &quot; .. stem)
		end
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;1-1+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;primera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la primera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ārum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;am&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;a&quot;
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ās&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ā&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;a&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ae&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;2-2+&quot;] = function(data, args)
	local forms, types, pos, subtitles, categories = data.forms, data.types, data.pos, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;segunda declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la segunda declinación&quot;)

	local us = &quot;us&quot;
	local um = &quot;um&quot;
	local i_pl = stem .. &quot;ī&quot;

	if types.greek then
		insert_if_not(data.title, &quot;griego&quot;)
		insert_if_not(categories, &quot;LA:Sustantivos griegos&quot;)
		us = &quot;os&quot;
		um = &quot;on&quot;
		i_pl = {i_pl, stem .. &quot;oe&quot;}
	end

	forms[&quot;nom_sg_m&quot;] = stem .. us
	forms[&quot;nom_sg_n&quot;] = stem .. um
	forms[&quot;nom_pl_m&quot;] = i_pl
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. um
	forms[&quot;acc_sg_n&quot;] = stem .. um
	forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōs&quot;
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ō&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;īs&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;īs&quot;

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. um
	forms[&quot;voc_pl_m&quot;] = i_pl
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

local function abl_i_e(...)
	local function update_slot(forms, slot, f, do_copy)
		if not forms[slot] then
			return do_copy
		elseif do_copy then
			f = deep_copy(f)
		end
		forms[slot] = f
		return true
	end

	function abl_i_e(stem, forms, types)
		local f, do_copy
		if types[&quot;abl_e_i&quot;] then
			f = {stem .. &quot;e&quot;, stem .. &quot;ī&quot;}
		elseif types[&quot;abl_i_e&quot;] then
			f = {stem .. &quot;ī&quot;, stem .. &quot;e&quot;}
		else
			return
		end
		do_copy = update_slot(forms, &quot;abl_sg_m&quot;, f, do_copy)
		do_copy = update_slot(forms, &quot;abl_sg_f&quot;, f, do_copy)
		-- Neuter doesn't take -e with i-stems.
		if not types.I then
			update_slot(forms, &quot;abl_sg_n&quot;, f, do_copy)
		end
	end

	return abl_i_e(...)
end

adj_decl[&quot;3-1+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	if types.par then
		forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;loc_sg_m&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Really?
		forms[&quot;loc_sg_n&quot;] = {stem2 .. &quot;ī&quot;, stem2 .. &quot;e&quot;} -- Why does this happen?
		forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;
		forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;
	end

	local es_base = stem1:match(&quot;^(.-)ēs$&quot;)
	if es_base and es_base == stem2 then
		if types.greek then
			forms[&quot;nom_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;acc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_m&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;voc_sg_n&quot;] = {stem2 .. &quot;ē̆s{?}&quot;}
			forms[&quot;nom_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;acc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;voc_pl_n&quot;] = {stem2 .. &quot;a{?}&quot;, stem2 .. &quot;ia{?}&quot;}
			forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{?}&quot;, stem2 .. &quot;ī{?}&quot;}
			forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
			forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
			forms[&quot;gen_pl_m&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			forms[&quot;gen_pl_n&quot;] = {stem2 .. &quot;um{?}&quot;, stem2 .. &quot;ium{?}&quot;}
			insert_if_not(data.title, &quot;griego&quot;)
			insert_if_not(categories, &quot;LA:Adjetivos griegos&quot;)
		elseif types.not_greek then
			insert_if_not(data.title, &quot;no griego&quot;)
		end
	end
end

adj_decl[&quot;3-def+&quot;] = function(data, args)
	local forms, types, pos, subtitles, notes, categories = data.forms, data.types, data.pos, data.subtitles, data.notes, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, defectivo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_n&quot;] = stem1
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1
	forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_n&quot;] = stem1
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	if types.tor then
		insert_if_not(data.title, &quot;tercera declinación, solo en masculino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en masculino&quot;)
		remove_forms(forms, {&quot;_f$&quot;, &quot;_n$&quot;})

		forms[&quot;nom_sg_m&quot;] = stem1
		forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_m&quot;] = stem1
		forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trix then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino o en neutro plural&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en neutro&quot;)
		remove_forms(forms, {&quot;_m$&quot;, &quot;sg_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.trixf then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
		forms[&quot;abl_sg_f&quot;] = {stem2 .. &quot;e&quot;, stem2 .. &quot;ī&quot;}
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	end

	if types.idis then
		insert_if_not(data.title, &quot;tercera declinación, solo en femenino&quot;)
		insert_if_not(categories, &quot;LA:Adjetivos solo en femenino&quot;)
		remove_forms(forms, {&quot;_m$&quot;,&quot;_n$&quot;})

		forms[&quot;nom_sg_f&quot;] = stem1
		forms[&quot;gen_sg_f&quot;] = {stem2 .. &quot;is&quot;, stem2 .. &quot;os&quot;}
		forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
		forms[&quot;acc_sg_f&quot;] = {stem2 .. &quot;em&quot;, stem2 .. &quot;a&quot;}
		forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;e&quot;
		forms[&quot;voc_sg_f&quot;] = stem1
		forms[&quot;nom_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
		forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;um&quot;
		forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;as&quot;}
		forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
		forms[&quot;voc_pl_f&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;es&quot;}
	end

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-C+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1 = args[1]
	local stem2 = stem1 .. &quot;ōr&quot;

    insert_if_not(data.title, &quot;tercera declinación, comparativo&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos comparativos&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;nom_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;um&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;um&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	abl_i_e(stem2, forms, types)

	forms[&quot;voc_sg_m&quot;] = stem1 .. &quot;or&quot;
	forms[&quot;voc_sg_n&quot;] = stem1 .. &quot;us&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;a&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-P+&quot;] = function(data, args)
	local forms, notes = data.forms, data.notes
	local stem2 = args[2]

	adj_decl[&quot;3-1+&quot;](data, args)
	insert_if_not(data.title, &quot;tercera declinación, participio&quot;)
	insert_if_not(data.categories, &quot;LA:Adjetivos de la tercera declinación&quot;)

	forms[&quot;abl_sg_m&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;abl_sg_n&quot;] = {stem2 .. &quot;e{PART}&quot;, stem2 .. &quot;ī{ADJ}&quot;}
	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;ēs&quot;, stem2 .. &quot;īs&quot;}
end

adj_decl[&quot;3-2+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem = args[1]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación, dos terminaciones&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con dos terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem .. &quot;īs&quot;, stem .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem .. &quot;ibus&quot;

	-- abl_i_e(stem, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;3-3+&quot;] = function(data, args)
	local forms, types, pos, categories = data.forms, data.types, data.pos, data.categories
	local stem1, stem2 = args[1], args[2]

	-- local singpos = singularize(pos)
	insert_if_not(data.title, &quot;tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos de la tercera declinación con tres terminaciones&quot;)

	forms[&quot;nom_sg_m&quot;] = stem1
	forms[&quot;nom_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;nom_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;nom_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;nom_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;gen_sg_m&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_sg_n&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;gen_pl_m&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_f&quot;] = stem2 .. &quot;ium&quot;
	forms[&quot;gen_pl_n&quot;] = stem2 .. &quot;ium&quot;

	forms[&quot;dat_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;dat_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;dat_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	forms[&quot;acc_sg_m&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_f&quot;] = stem2 .. &quot;em&quot;
	forms[&quot;acc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;acc_pl_m&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_f&quot;] = {stem2 .. &quot;īs&quot;, stem2 .. &quot;ēs&quot;}
	forms[&quot;acc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;abl_sg_m&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_f&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_sg_n&quot;] = stem2 .. &quot;ī&quot;
	forms[&quot;abl_pl_m&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_f&quot;] = stem2 .. &quot;ibus&quot;
	forms[&quot;abl_pl_n&quot;] = stem2 .. &quot;ibus&quot;

	-- abl_i_e(stem2, forms, types) -- enable once [[Module:la-nominal]] has ben updated

	forms[&quot;voc_sg_m&quot;] = stem1
	forms[&quot;voc_sg_f&quot;] = stem2 .. &quot;is&quot;
	forms[&quot;voc_sg_n&quot;] = stem2 .. &quot;e&quot;
	forms[&quot;voc_pl_m&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_f&quot;] = stem2 .. &quot;ēs&quot;
	forms[&quot;voc_pl_n&quot;] = stem2 .. &quot;ia&quot;

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
	forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
	forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
	forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
end

adj_decl[&quot;indecl+&quot;] = function(data, args)
	local forms, subtitles, categories = data.forms, data.subtitles, data.categories
	local stem = args[1]

	insert_if_not(data.title, &quot;indeclinable&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos indeclinables&quot;)

	forms[&quot;nom_sg_m&quot;] = stem
	forms[&quot;nom_pl_m&quot;] = {}

	forms[&quot;gen_sg_m&quot;] = {}
	forms[&quot;gen_pl_m&quot;] = {}

	forms[&quot;dat_sg_m&quot;] = {}
	forms[&quot;dat_pl_m&quot;] = {}

	forms[&quot;acc_sg_m&quot;] = stem
	forms[&quot;acc_pl_m&quot;] = {}

	forms[&quot;abl_sg_m&quot;] = {}
	forms[&quot;abl_pl_m&quot;] = {}

	forms[&quot;voc_sg_m&quot;] = {}
	forms[&quot;voc_pl_m&quot;] = {}

	forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
	forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
end

adj_decl[&quot;irreg+&quot;] = function(data,args)
	local forms, types, pos, notes, categories = data.forms, data.types, data.pos, data.notes, data.categories
	local arg1 = args[1]

	insert_if_not(data.title, &quot;irregular&quot;)
	insert_if_not(categories, &quot;LA:Adjetivos irregulares&quot;)

	if arg1 == &quot;duo&quot; or arg1 == &quot;ambō&quot; then
		local stem = sub(arg1, 1, -2)
		-- data.title = stem == &quot;amb&quot; and &quot;irregular adjective&quot; or &quot;numeral&quot;
		data.num = &quot;pl&quot;

		local stem_with_o = stem .. (stem == &quot;amb&quot; and &quot;ō&quot; or &quot;o&quot;)

		forms[&quot;nom_pl_m&quot;] = stem_with_o
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;nom_pl_n&quot;] = stem_with_o

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrum&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārum&quot;
		forms[&quot;gen_pl_n&quot;] = stem .. &quot;ōrum&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ōs&quot;, stem_with_o}
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;ās&quot;
		forms[&quot;acc_pl_n&quot;] = stem_with_o

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;ōbus&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;ābus&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;ōbus&quot;

		forms[&quot;voc_pl_m&quot;] = stem_with_o
		forms[&quot;voc_pl_f&quot;] = stem .. &quot;ae&quot;
		forms[&quot;voc_pl_n&quot;] = stem_with_o

		if stem == &quot;du&quot; then
			forms[&quot;gen_pl_m&quot;] = {forms[&quot;gen_pl_m&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
			forms[&quot;gen_pl_n&quot;] = {forms[&quot;gen_pl_n&quot;], &quot;duum&quot;, &quot;duom{†}&quot;}
		end

	elseif arg1:sub(-6) == &quot;mīlle&quot; then
		insert_if_not(data.title, &quot;numeral semiindeclinable&quot;)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;nom_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;gen_pl_m&quot;] = {stem .. &quot;ium&quot;, stem .. &quot;lium&quot;}

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;dat_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;acc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;abl_pl_m&quot;] = {stem .. &quot;ibus&quot;, stem .. &quot;libus&quot;}

		forms[&quot;voc_sg_m&quot;] = stem .. &quot;le&quot;
		forms[&quot;voc_pl_m&quot;] = {stem .. &quot;ia&quot;, stem .. &quot;lia&quot;}

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])

	elseif arg1 == &quot;ille&quot; or arg1 == &quot;iste&quot; or arg1 == &quot;ipse&quot; or arg1 == &quot;olle&quot;  then
		local stem = arg1:sub(1, -2)
		types.ius = true
		adj_decl[&quot;1&amp;2+&quot;](data, {stem})

		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		forms[&quot;nom_sg_m&quot;] = arg1
		if arg1 == &quot;ipse&quot; then
			add_form(forms, &quot;nom_sg_n&quot;, stem, &quot;ud{MED}&quot;)
			add_form(forms, &quot;acc_sg_n&quot;, stem, &quot;ud{MED}&quot;)
		else
			forms[&quot;nom_sg_n&quot;] = stem .. &quot;ud&quot;
			forms[&quot;acc_sg_n&quot;] = stem .. &quot;ud&quot;
		end

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_sg_f&quot;] = {}
		forms[&quot;voc_sg_n&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}
		forms[&quot;voc_pl_f&quot;] = {}
		forms[&quot;voc_pl_n&quot;] = {}

	elseif arg1 == &quot;illic&quot; or arg1 == &quot;istic&quot; or arg1 == &quot;isthic&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; &quot; .. singularize(data.pos)

		local stem = arg1:sub(1, -3)

		forms[&quot;nom_sg_m&quot;] = stem .. &quot;ic&quot;
		forms[&quot;nom_sg_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;gen_sg_m&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_f&quot;] = stem .. &quot;ī̆usce&quot;
		forms[&quot;gen_sg_n&quot;] = stem .. &quot;ī̆usce&quot;

		forms[&quot;dat_sg_m&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_f&quot;] = stem .. &quot;īc&quot;
		forms[&quot;dat_sg_n&quot;] = stem .. &quot;īc&quot;

		forms[&quot;acc_sg_m&quot;] = stem .. &quot;unc&quot;
		forms[&quot;acc_sg_f&quot;] = stem .. &quot;anc&quot;
		forms[&quot;acc_sg_n&quot;] = {stem .. &quot;uc&quot;, stem .. &quot;ucce&quot;, stem .. &quot;oc&quot;}

		forms[&quot;abl_sg_m&quot;] = stem .. &quot;ōc&quot;
		forms[&quot;abl_sg_f&quot;] = stem .. &quot;āc&quot;
		forms[&quot;abl_sg_n&quot;] = stem .. &quot;ōc&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])

		forms[&quot;nom_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;nom_pl_f&quot;] = stem .. &quot;aec&quot;
		forms[&quot;nom_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;gen_pl_m&quot;] = stem .. &quot;ōrunc{?}&quot;
		forms[&quot;gen_pl_f&quot;] = stem .. &quot;ārunc{?}&quot;
		forms[&quot;gen_ok_n&quot;] = stem .. &quot;ōrunc{?}&quot;

		forms[&quot;dat_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;dat_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;acc_pl_m&quot;] = stem .. &quot;ōsce&quot;
		forms[&quot;acc_pl_f&quot;] = stem .. &quot;āsce&quot;
		forms[&quot;acc_pl_n&quot;] = stem .. &quot;aec&quot;

		forms[&quot;abl_pl_m&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_f&quot;] = stem .. &quot;īsce&quot;
		forms[&quot;abl_pl_n&quot;] = stem .. &quot;īsce&quot;

		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;hice&quot; then
		insert_if_not(data.title, &quot;demostrativo&quot;) -- .. &quot; pronoun&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;hice&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;hīce&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;haece&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;huiusce&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;hārunce&quot;, &quot;hārumce&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;hōrunce&quot;, &quot;hōrumce&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;huīce&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;huīce&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;hunce&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;hance&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;hoce&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;hōsce&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;hāsce&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;haece&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;hōce&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;hāce&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;hōce&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;hīsce&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;hīsce&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;gen_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;gen_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;gen_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_f&quot;] = deep_copy(forms[&quot;abl_pl_f&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])

	elseif arg1 == &quot;plūs&quot; then
		insert_if_not(data.title, &quot;comparativo&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación&quot;)
		insert_if_not(data.categories, &quot;LA:Sustantivos de la tercera declinación con una terminación&quot;)
		data.note = &quot;Ninguna de las formas en singular se usaron en latín clásico&quot;

		forms[&quot;nom_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;plūris&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;plūris&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;plūrium&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;plūrium&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;plūrī&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;plūrem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;plūrēs&quot;, &quot;plūrīs&quot;}
		forms[&quot;acc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;plūrī&quot;, &quot;plūre&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;plūribus&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;plūribus&quot;

		forms[&quot;voc_sg_n&quot;] = &quot;plūs&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;plūrēs&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;plūra&quot;

		forms[&quot;loc_sg_m&quot;] = deep_copy(forms[&quot;abl_sg_m&quot;])
		forms[&quot;loc_sg_f&quot;] = deep_copy(forms[&quot;abl_sg_f&quot;])
		forms[&quot;loc_sg_n&quot;] = deep_copy(forms[&quot;abl_sg_n&quot;])
		forms[&quot;loc_pl_m&quot;] = deep_copy(forms[&quot;abl_pl_m&quot;])
		forms[&quot;loc_pl_n&quot;] = deep_copy(forms[&quot;abl_pl_n&quot;])
	elseif match(arg1, &quot;^egō̆?$&quot;) or arg1 == &quot;nōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;meī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;nostrī&quot;, &quot;nostrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;mihī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;nōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;mē&quot;, &quot;mēmē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;nōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;nōs&quot;

	elseif arg1 == &quot;tū&quot; or arg1 == &quot;vōs&quot; then
		insert_if_not(data.title, &quot;pronombre nominativo&quot;)

		forms[&quot;nom_sg_m&quot;] = arg1
		forms[&quot;nom_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;tuī&quot;
		forms[&quot;gen_pl_m&quot;] = {&quot;vestrī&quot;, &quot;vestrum&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;tibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;acc_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;vōs&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;tē&quot;, &quot;tētē&quot;}
		forms[&quot;abl_pl_m&quot;] = &quot;vōbīs&quot;

		forms[&quot;voc_sg_m&quot;] = arg1
		forms[&quot;voc_pl_m&quot;] = &quot;vōs&quot;

	elseif arg1 == &quot;suī&quot; then
		insert_if_not(data.title, &quot;pronombre reflexivo&quot;)

		forms[&quot;nom_sg_m&quot;] = {}
		forms[&quot;nom_pl_m&quot;] = {}

		forms[&quot;gen_sg_m&quot;] = arg1
		forms[&quot;gen_pl_m&quot;] = forms[&quot;gen_sg_m&quot;]

		forms[&quot;dat_sg_m&quot;] = &quot;sibī̆&quot;
		forms[&quot;dat_pl_m&quot;] = forms[&quot;dat_sg_m&quot;]

		forms[&quot;acc_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;acc_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}
		forms[&quot;abl_pl_m&quot;] = {&quot;sē&quot;, &quot;sēsē&quot;}

		forms[&quot;voc_sg_m&quot;] = {}
		forms[&quot;voc_pl_m&quot;] = {}

	elseif arg1 == &quot;is&quot; or arg1 == &quot;īdem&quot; then
		insert_if_not(data.title, &quot;pronombre demostrativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;is&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;ea&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;id&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;iī&quot;, &quot;eī&quot;, &quot;ī&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;eae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;eius&quot;, &quot;ejus&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}
		forms[&quot;gen_pl_f&quot;] = &quot;eārum&quot;
		forms[&quot;gen_pl_n&quot;] = {&quot;eōrum&quot;, &quot;eum&quot;}


		forms[&quot;dat_sg_m&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;, &quot;eae&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;eī&quot;, &quot;e͡i&quot;, &quot;ēī&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;, &quot;eābus&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;eum&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;eam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;id&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;eōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;eās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;ea&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;eō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;eā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;eō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;iīs&quot;, &quot;eīs&quot;, &quot;īs&quot;}

		if arg1 == &quot;īdem&quot; then
			forms[&quot;nom_sg_m&quot;] = &quot;ī&quot;
			forms[&quot;nom_sg_n&quot;] = &quot;i&quot;
			forms[&quot;acc_sg_n&quot;] = &quot;i&quot;
		end

	elseif arg1 == &quot;quis&quot; or arg1 == &quot;quī&quot; then
		data.note = &quot;La forma ''qua'' es preferida frente a ''quae'' cuando se usa como indefinido&quot;

		local id = &quot;id&quot;
		if arg1 == &quot;quī&quot; then
			insert_if_not(data.title, &quot;determinante relativo/interrogativo&quot;)
			id = &quot;od&quot;
			forms[&quot;nom_sg_m&quot;] = {&quot;quī&quot;, &quot;quis&quot;, &quot;quei{†}&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;}
			forms[&quot;acc_sg_f&quot;] = &quot;quam&quot;
			forms[&quot;abl_sg_m&quot;] = &quot;quō&quot;
			forms[&quot;abl_sg_f&quot;] = &quot;quā&quot;
			forms[&quot;abl_sg_n&quot;] = &quot;quō&quot;
		else
			insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)
			forms[&quot;nom_sg_m&quot;] = {&quot;quis&quot;, &quot;quī&quot;}
			forms[&quot;nom_sg_f&quot;] = {&quot;quae&quot;, &quot;qua&quot;, &quot;quis{†}&quot;}
			forms[&quot;acc_sg_f&quot;] = {&quot;quam&quot;, &quot;quem{†}&quot;}
			forms[&quot;abl_sg_m&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_f&quot;] = {&quot;quā&quot;, &quot;quī&quot;}
			forms[&quot;abl_sg_n&quot;] = {&quot;quō&quot;, &quot;quī&quot;}
		end

		forms[&quot;nom_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;nom_pl_m&quot;] = {&quot;quī&quot;, &quot;quei{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;gen_sg_m&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuius&quot;, &quot;quoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;quōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cui&quot;, &quot;quoi{†}&quot;, &quot;quoiei{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quem&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;qu&quot;..id
		forms[&quot;acc_pl_m&quot;] = &quot;quōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;quae&quot;, &quot;qua&quot;}

		forms[&quot;abl_pl_m&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibus&quot;, &quot;quīs&quot;, &quot;queis{†}&quot;}

	elseif arg1 == &quot;aliquī&quot; then
		insert_if_not(data.title, &quot;determinante indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;aliquī{DET/ADJ}&quot;, &quot;aliquis{PRON/SUST}&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;aliqua&quot;, &quot;aliquae{R}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;aliquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;aliquae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;alicuius&quot;, &quot;aliquoius{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = &quot;aliquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;aliquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;aliquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;alicui&quot;, &quot;aliquoi{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;aliquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;aliquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;aliquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;aliquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;aliquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;aliqua&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;aliquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;aliquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;aliquīs&quot;, &quot;aliquibus&quot;, &quot;aliqueis{†}&quot;}

	elseif arg1 == &quot;quisquam&quot; then
		insert_if_not(data.title, &quot;determinante indefinido, concordancia en negativo&quot;)
		data.note = &quot;En latín clásico, era preferidas las formas de ''ūllus'' en lugar de las esta voz para el femenino y el neutro.&quot;

		forms[&quot;nom_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;nom_sg_f&quot;] = {&quot;quaequam&quot;, &quot;quisquam{†}&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiusquam&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquam&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquam&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquam&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuiquam&quot;
		forms[&quot;dat_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;dat_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;quemquam&quot;
		forms[&quot;acc_sg_f&quot;] = {&quot;quamquam&quot;, &quot;quemquam{†}&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquam&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequam&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;quōquam&quot;, &quot;quīquam{†}&quot;}
		forms[&quot;abl_sg_f&quot;] = &quot;quāquam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquam&quot;
		forms[&quot;abl_pl_m&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_f&quot;] = &quot;quibusquam&quot;
		forms[&quot;abl_pl_n&quot;] = &quot;quibusquam&quot;

		forms[&quot;voc_sg_m&quot;] = &quot;quisquam&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_sg_n&quot;] = &quot;quodquam&quot;
		forms[&quot;voc_pl_m&quot;] = &quot;quīquam&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequam&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequam&quot;

	elseif arg1 == &quot;quisquis&quot; then
		insert_if_not(data.title, &quot;pronombre relativo/interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;nom_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;nom_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;gen_sg_m&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;cuiuscuius&quot;
		forms[&quot;gen_pl_m&quot;] = &quot;quōrumquōrum&quot;
		forms[&quot;gen_pl_f&quot;] = &quot;quārumquārum&quot;
		forms[&quot;gen_pl_n&quot;] = &quot;quōrumquōrum&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;cuicui&quot;
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;acc_sg_m&quot;] = &quot;quemquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;quamquam&quot;
		forms[&quot;acc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;acc_pl_m&quot;] = &quot;quōsquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;quāsquās&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaequae&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quāquā&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōquō&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusquibus&quot;, &quot;quīsquīs&quot;}

		forms[&quot;voc_sg_m&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_f&quot;] = &quot;quisquis&quot;
		forms[&quot;voc_sg_n&quot;] = {&quot;quidquid&quot;, &quot;quicquid&quot;}
		forms[&quot;voc_pl_m&quot;] = &quot;quīquī&quot;
		forms[&quot;voc_pl_f&quot;] = &quot;quaequae&quot;
		forms[&quot;voc_pl_n&quot;] = &quot;quaequae&quot;

	elseif arg1 == &quot;ecquis&quot; then
		insert_if_not(data.title, &quot;pronombre interrogativo&quot;)

		forms[&quot;nom_sg_m&quot;] = {&quot;ecquis&quot;, &quot;ecquī&quot;}
		forms[&quot;nom_sg_f&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}
		forms[&quot;nom_sg_n&quot;] = &quot;ecquid&quot;
		forms[&quot;nom_pl_m&quot;] = &quot;ecquī&quot;
		forms[&quot;nom_pl_f&quot;] = &quot;ecquae&quot;
		forms[&quot;nom_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;gen_sg_m&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_f&quot;] = &quot;eccuius&quot;
		forms[&quot;gen_sg_n&quot;] = &quot;eccuius&quot;

		forms[&quot;dat_sg_m&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;eccui&quot;
		forms[&quot;dat_sg_n&quot;] = &quot;eccui&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;ecquem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;ecquam&quot;
		forms[&quot;acc_sg_n&quot;] = &quot;ecquod&quot;
		forms[&quot;acc_pl_m&quot;] = &quot;ecquōs&quot;
		forms[&quot;acc_pl_f&quot;] = &quot;ecquās&quot;
		forms[&quot;acc_pl_n&quot;] = {&quot;ecqua&quot;, &quot;ecquae&quot;}

		forms[&quot;abl_sg_m&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;ecquā&quot;, &quot;ecquī&quot;}
		forms[&quot;abl_sg_n&quot;] = {&quot;ecquō&quot;, &quot;ecquī&quot;}

	elseif arg1 == &quot;quīdam&quot; then
		insert_if_not(data.title, &quot;pronombre indefinido&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;quīdam&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;nom_pl_m&quot;] = {&quot;quīdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;nom_pl_f&quot;] = &quot;quaedam&quot;
		forms[&quot;nom_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_sg_n&quot;] = {&quot;cuiusdam&quot;, &quot;quoiusdam{†}&quot;}
		forms[&quot;gen_pl_m&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}
		forms[&quot;gen_pl_f&quot;] = {&quot;quārundam&quot;, &quot;quārumdam&quot;}
		forms[&quot;gen_pl_n&quot;] = {&quot;quōrundam&quot;, &quot;quōrumdam&quot;}

		forms[&quot;dat_sg_m&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_f&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_sg_n&quot;] = {&quot;cuidam&quot;, &quot;quoidam{†}&quot;}
		forms[&quot;dat_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;dat_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

		forms[&quot;acc_sg_m&quot;] = {&quot;quendam&quot;, &quot;quemdam&quot;}
		forms[&quot;acc_sg_f&quot;] = {&quot;quandam&quot;, &quot;quamdam&quot;}
		forms[&quot;acc_sg_n&quot;] = &quot;quiddam&quot;
		forms[&quot;acc_pl_m&quot;] = {&quot;quōsdam&quot;, &quot;quēsdam{†}&quot;}
		forms[&quot;acc_pl_f&quot;] = &quot;quāsdam&quot;
		forms[&quot;acc_pl_n&quot;] = &quot;quaedam&quot;

		forms[&quot;abl_sg_m&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_sg_f&quot;] = &quot;quādam&quot;
		forms[&quot;abl_sg_n&quot;] = &quot;quōdam&quot;
		forms[&quot;abl_pl_m&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_f&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}
		forms[&quot;abl_pl_n&quot;] = {&quot;quibusdam&quot;, &quot;quīsdam{†}&quot;}

	elseif arg1 == &quot;nēmō&quot; then
		insert_if_not(data.title, &quot;Determinante y pronombre, concordancia en negativo&quot;)

		forms[&quot;nom_sg_m&quot;] = &quot;nēmō&quot;
		forms[&quot;nom_sg_f&quot;] = &quot;nēmō&quot;

		forms[&quot;gen_sg_m&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}
		forms[&quot;gen_sg_f&quot;] = {&quot;nūllī̆us&quot;, &quot;nēminis{R}&quot;}

		forms[&quot;dat_sg_m&quot;] = &quot;nēminī&quot;
		forms[&quot;dat_sg_f&quot;] = &quot;nēminī&quot;

		forms[&quot;acc_sg_m&quot;] = &quot;nēminem&quot;
		forms[&quot;acc_sg_f&quot;] = &quot;nēminem&quot;

		forms[&quot;abl_sg_m&quot;] = {&quot;nūllō&quot;, &quot;nēmine{R}&quot;}
		forms[&quot;abl_sg_f&quot;] = {&quot;nūllā&quot;, &quot;nēmine{R}&quot;}

	else
		error('adjective ' .. arg1 .. ' not recognized')
	end
end

local function extract_base(lemma, ending)
	if ending:find(&quot;(&quot;, nil, true) then
		return match(lemma, ending)
	end
	return match(lemma, &quot;^(.*)&quot; .. ending .. &quot;$&quot;)
end

local function get_noun_subtype_by_ending(lemma, stem2, decltype, specified_subtypes,
		endings_and_subtypes)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local subtypes = ending_and_subtypes[2]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				-- In addition, M or F as a subtype is canceled by N, and
				-- vice-versa, but M doesn't cancel F or vice-versa; instead,
				-- we simply ignore the conflicting gender specification when
				-- constructing the combination of specified and inferred subtypes.
				-- The reason for this is that neuters have distinct declensions
				-- from masculines and feminines, but masculines and feminines have
				-- the same declension, and various nouns in Latin that are
				-- normally masculine are exceptionally feminine and vice-versa
				-- (nauta, agricola, fraxinus, malus &quot;apple tree&quot;, manus, rēs,
				-- etc.).
				--
				-- In addition, sg as a subtype is canceled by pl and vice-versa.
				-- It's also possible to specify both, which will override sg but
				-- not cancel it (in the sense that it won't prevent the relevant
				-- rule from matching). For example, there's a rule specifying that
				-- lemmas beginning with a capital letter and ending in -ius take
				-- the ius.voci.sg subtypes. Specifying such a lemma with the
				-- subtype both will result in the ius.voci.both subtypes, whereas
				-- specifying such a lemma with the subtype pl will cause this rule
				-- not to match, and it will fall through to a less specific rule
				-- that returns just the ius subtype, which will be combined with
				-- the explicitly specified pl subtype to produce ius.pl.
				if specified_subtypes[&quot;-&quot; .. subtype] or
					subtype == &quot;N&quot; and (specified_subtypes.M or specified_subtypes.F) or
					(subtype == &quot;M&quot; or subtype == &quot;F&quot;) and specified_subtypes.N or
					subtype == &quot;sg&quot; and specified_subtypes.pl or
					subtype == &quot;pl&quot; and specified_subtypes.sg then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				local base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending == stem2 then
					return base, stem2, subtypes
				end
			else
				local base = extract_base(lemma, ending)
				if base then
					return base, stem2, subtypes
				end
			end
		end
	end
	if decltype then
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; noun: &quot; .. lemma)
	end
	return lemma, stem2, keys_to_list(specified_subtypes)
end

local patterns = {
	{&quot;[mM]a&quot;, &quot;%0t&quot;},
	{&quot;e&quot;, &quot;&quot;},
	{&quot;([aoAO])([lr])&quot;, &quot;%1&quot; .. MACRON .. &quot;%2&quot;},
	{&quot;[eE]l&quot;, &quot;%0l&quot;},
	{&quot;([mM])en&quot;, &quot;%1in&quot;},
	{&quot;([tT]ūd)ō&quot;, &quot;%1in&quot;},
	{&quot;([gG])ō&quot;, &quot;%1in&quot;},
	{&quot;[ōŌ]&quot;, &quot;%1n&quot;},
	{&quot;er&quot;, &quot;r&quot;},
	{&quot;[ēi]s&quot;, &quot;&quot;},
	{&quot;([āēīōūȳĀĒĪŌŪȲ]n)s&quot;, function(v)
		return (gsub(toNFD(v), MACRON, &quot;&quot;) .. &quot;t&quot;)
	end},
	{&quot;([cC])eps&quot;, &quot;%1ipit&quot;},
	{&quot;([bp])s&quot;, &quot;%1&quot;},
	{&quot;us&quot;, &quot;or&quot;},
	{&quot;s&quot;, &quot;t&quot;},
	{&quot;ex&quot;, &quot;ic&quot;},
	{&quot;x&quot;, &quot;c&quot;},
}

local function make_stem2(stem)
	local n
	for _, pattern in ipairs(patterns) do
		local key = pattern[1]
		stem, n = gsub(stem, key .. &quot;$&quot;, pattern[2])
		if n &gt; 0 then
			-- debug_track(&quot;la-utilities/&quot; .. key) REVISAR
			return toNFC(stem)
		end
	end
	-- debug_track(&quot;la-utilities&quot;) REVISAR
	return stem
end

local function detect_noun_subtype(lemma, stem2, typ, subtypes)
	local base, _

	if typ == &quot;1&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ām&quot;, {&quot;F&quot;, &quot;am&quot;}},
			{&quot;ās&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Ma&quot;}},
			{&quot;ēs&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;Me&quot;}},
			{&quot;ē&quot;, {&quot;F&quot;, &quot;Greek&quot;}},
			{&quot;ae&quot;, {&quot;F&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;F&quot;}},
		})
	elseif typ == &quot;2&quot; then
		local detected_subtypes
		lemma, stem2, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(.*r)$&quot;, {&quot;M&quot;, &quot;er&quot;}},
			{&quot;^(.*v)os$&quot;, {&quot;M&quot;, &quot;vos&quot;}},
			{&quot;^(.*v)om$&quot;, {&quot;N&quot;, &quot;vom&quot;}},
			-- If the lemma ends in -os and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -os will applly.
			{&quot;os&quot;, {&quot;M&quot;, &quot;Greek&quot;}},
			{&quot;os&quot;, {&quot;N&quot;, &quot;Greek&quot;, &quot;us&quot;}},
			{&quot;on&quot;, {&quot;N&quot;, &quot;Greek&quot;}},
			-- -ius beginning with a capital letter is assumed a proper name,
			-- and takes the voci subtype (vocative in -ī) along with the ius
			-- subtype and sg-only. Other nouns in -ius just take the ius
			-- subtype. Explicitly specify &quot;sg&quot; so that if .pl is given,
			-- this rule won't apply.
			{&quot;^(%u.*)ius$&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;voci&quot;, &quot;sg&quot;}},
			{&quot;ius&quot;, {&quot;M&quot;, &quot;ius&quot;}},
			{&quot;ium&quot;, {&quot;N&quot;, &quot;ium&quot;}},
			-- If the lemma ends in -us and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -us will applly.
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;us&quot;, {&quot;N&quot;, &quot;us&quot;}},
			{&quot;um&quot;, {&quot;N&quot;}},
			{&quot;iī&quot;, {&quot;M&quot;, &quot;ius&quot;, &quot;pl&quot;}},
			{&quot;ia&quot;, {&quot;N&quot;, &quot;ium&quot;, &quot;pl&quot;}},
			-- If the lemma ends in -ī and the user said N or -M, then the
			-- following won't apply, and the second (neuter) -ī will applly.
			{&quot;ī&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ī&quot;, {&quot;N&quot;, &quot;us&quot;, &quot;pl&quot;}},
			{&quot;oe&quot;, {&quot;M&quot;, &quot;Greek&quot;, &quot;pl&quot;}},
			{&quot;a&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
		stem2 = stem2 or lemma
		return lemma, stem2, detected_subtypes
	elseif typ == &quot;3&quot; then
		if subtypes.pl then
			if subtypes.Greek then
				base = lemma:match(&quot;^(.*)erēs$&quot;)
				if base then
					return base .. &quot;ēr&quot;, base .. &quot;er&quot;, {&quot;er&quot;}
				end
				base = lemma:match(&quot;^(.*)ontēs$&quot;)
				if base then
					return base .. &quot;ōn&quot;, base .. &quot;ont&quot;, {&quot;on&quot;}
				end
				base = lemma:match(&quot;^(.*)es$&quot;)
				if base then
					return base, stem2 or base, {}
				end
				error(&quot;Unrecognized ending for declension-3 plural Greek noun: &quot; .. lemma)
			end
			base = lemma:match(&quot;^(.*)ia$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}
			end
			base = lemma:match(&quot;^(.*)a$&quot;)
			if base then
				return base, stem2 or base, {&quot;N&quot;}
			end
			base = lemma:match(&quot;^(.*)ēs$&quot;)
			if base then
				return base, stem2 or base, {}
			end
			error(&quot;Unrecognized ending for declension-3 plural noun: &quot; .. lemma)
		end

		stem2 = stem2 or make_stem2(lemma)
		local detected_subtypes
		if subtypes.Greek then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{&quot;ēr&quot;, {&quot;er&quot;}},
				{&quot;ōn&quot;, {&quot;on&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
			return lemma, stem2, {}
		end

		if not subtypes.N then
			base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
				{{&quot;^(%u.*pol)is$&quot;, &quot;&quot;}, {&quot;F&quot;, &quot;polis&quot;, &quot;sg&quot;, &quot;loc&quot;}},
				{{&quot;tūdō&quot;, &quot;tūdin&quot;}, {&quot;F&quot;}},
				{{&quot;tās&quot;, &quot;tāt&quot;}, {&quot;F&quot;}},
				{{&quot;tūs&quot;, &quot;tūt&quot;}, {&quot;F&quot;}},
				{{&quot;tiō&quot;, &quot;tiōn&quot;}, {&quot;F&quot;}},
				{{&quot;siō&quot;, &quot;siōn&quot;}, {&quot;F&quot;}},
				{{&quot;xiō&quot;, &quot;xiōn&quot;}, {&quot;F&quot;}},
				{{&quot;gō&quot;, &quot;gin&quot;}, {&quot;F&quot;}},
				{{&quot;or&quot;, &quot;ōr&quot;}, {&quot;M&quot;}},
				{{&quot;tr[iī]x&quot;, &quot;trīc&quot;}, {&quot;F&quot;}},
				{{&quot;is&quot;, &quot;&quot;}, {&quot;I&quot;}},
				{{&quot;^(%l.*)ēs$&quot;, &quot;&quot;}, {&quot;I&quot;}},
			})
			if base then
				return lemma, stem2, detected_subtypes
			end
		end

		base, _, detected_subtypes = get_noun_subtype_by_ending(lemma, stem2, nil, subtypes, {
			{{&quot;us&quot;, &quot;or&quot;}, {&quot;N&quot;}},
			{{&quot;us&quot;, &quot;er&quot;}, {&quot;N&quot;}},
			{{&quot;ma&quot;, &quot;mat&quot;}, {&quot;N&quot;}},
			{{&quot;men&quot;, &quot;min&quot;}, {&quot;N&quot;}},
			{{&quot;^(%u.*)e$&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;sg&quot;}},
			{{&quot;e&quot;, &quot;&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;al&quot;, &quot;āl&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
			{{&quot;ar&quot;, &quot;ār&quot;}, {&quot;N&quot;, &quot;I&quot;, &quot;pure&quot;}},
		})
		if base then
			return lemma, stem2, detected_subtypes
		end
		return lemma, stem2, {}
	elseif typ == &quot;4&quot; then
		if subtypes.echo or subtypes.Callisto then
			base = lemma:match(&quot;^(.*)ō$&quot;)
			if not base then
				error(&quot;Declension-4 noun of subtype .echo or .Callisto should end in -ō: &quot; .. lemma)
			end
			if subtypes.Callisto then
				return base, nil, {&quot;F&quot;, &quot;sg&quot;}
			else
				return base, nil, {&quot;F&quot;}
			end
		end
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, {&quot;M&quot;}},
			{&quot;ū̆&quot;, {&quot;N&quot;}},
			{&quot;ūs&quot;, {&quot;M&quot;, &quot;pl&quot;}},
			{&quot;ua&quot;, {&quot;N&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;5&quot; then
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;}},
			{&quot;iēs&quot;, {&quot;F&quot;, &quot;i&quot;, &quot;pl&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;}},
			{&quot;ēs&quot;, {&quot;F&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;sgpl&quot; then
		return lemma, stem2, {}
	elseif typ == &quot;irreg&quot; and lemma == &quot;domus&quot; then
		-- [[domus]] auto-sets data.loc = true, but we need to know this
		-- before declining the noun so we can propagate it to other segments.
		return lemma, nil, {&quot;loc&quot;}
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; and (
		lemma == &quot;Deus&quot; or match(lemma, &quot;^[IJ]ēs[uū]s$&quot;) or
		lemma == &quot;Athōs&quot; or lemma == &quot;vēnum&quot;
	) then
		-- Indeclinable nouns, and certain irregular nouns, set data.num = &quot;sg&quot;,
		-- but we need to know this before declining the noun so we can
		-- propagate it to other segments.
		return get_noun_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, {&quot;both&quot;}},
			{&quot;&quot;, {&quot;sg&quot;}},
			{&quot;&quot;, {&quot;pl&quot;}},
		})
	elseif typ == &quot;indecl&quot; or typ == &quot;irreg&quot; then
		return lemma, nil, {}
	else
		return nil, nil, {}
	end
end

-- Given ENDINGS_AND_SUBTYPES (a list of four-tuples of ENDING, RETTYPE,
-- SUBTYPES, PROCESS_RETVAL), check each ENDING in turn against LEMMA and
-- STEM2. If it matches, return a four-tuple BASE, STEM2, RETTYPE, NEW_SUBTYPES
-- where BASE is normally the remainder of LEMMA minus the ending, STEM2 is
-- as passed in, RETTYPE is as passed in, and NEW_SUBTYPES is the same as
-- SUBTYPES minus any subtypes beginning with a hyphen. If no endings match,
-- throw an error if DECLTYPPE is non-nil, mentioning the DECLTYPE
-- (user-specified declension); but if DECLTYPE is nil, just return the tuple
-- nil, nil, nil, nil.
--
-- In order for a given entry to match, ENDING must match and also the subtypes
-- in SUBTYPES (a list) must not be incompatible with the passed-in
-- user-specified subtypes SPECIFIED_SUBTYPES (a set, i.e. a table where the
-- keys are strings and the value is always true). &quot;Incompatible&quot; means that
-- a given SUBTYPE is specified in either one and -SUBTYPE in the other, or
-- that &quot;pl&quot; is found in SPECIFIED_SUBTYPES and not in SUBTYPES.
--
-- The ending spec in ENDINGS_AND_SUBTYPES is one of the following:
--
-- 1. A simple string, e.g. &quot;tūdō&quot;, specifying an ending.
-- 2. A regex that should match the entire lemma (it should be anchored at
--    the beginning with ^ and at the end with $), and contains a single
--    capturing group to match the base.
-- 3. A pair {SIMPLE_STRING_OR_REGEX, STEM2_ENDING} where
--    SIMPLE_STRING_OR_REGEX is one of the previous two possibilities and
--    STEM2_ENDING is a string specifying the corresponding ending that must
--    be present in STEM2. If this form is used, the combination of
--    base + STEM2_ENDING must exactly match STEM2 in order for this entry
--    to be considered a match. An example is {&quot;is&quot;, &quot;&quot;}, which will match
--    lemma == &quot;follis&quot;, stem2 == &quot;foll&quot;, but not lemma == &quot;lapis&quot;,
--    stem2 == &quot;lapid&quot;.
--
-- If PROCESS_STEM2 is given and the returned STEM2 would be nil, call
-- process_stem2(BASE) to get the STEM2 to return.
local function get_adj_type_and_subtype_by_ending(lemma, stem2, decltype,
		specified_subtypes, endings_and_subtypes, process_stem2)
	for _, ending_and_subtypes in ipairs(endings_and_subtypes) do
		local ending = ending_and_subtypes[1]
		local rettype = ending_and_subtypes[2]
		local subtypes = ending_and_subtypes[3]
		local process_retval = ending_and_subtypes[4]
		local not_this_subtype = false
		if (
			specified_subtypes.pl and not contains(subtypes, &quot;pl&quot;) or
			contains(subtypes, &quot;both&quot;) and not specified_subtypes.both
		) then
			-- We now require that plurale tantum terms specify a plural-form lemma.
			-- The autodetected subtypes will include 'pl' for such lemmas; if not,
			-- we fail this entry. Additionally, if the rule contains 'both', it
			-- must be explicitly specified to match.
			not_this_subtype = true
		else
			for _, subtype in ipairs(subtypes) do
				-- A subtype is directly canceled by specifying -SUBTYPE.
				if specified_subtypes[&quot;-&quot; .. subtype] then
					not_this_subtype = true
					break
				end
				-- A subtype is canceled if the user specified SUBTYPE and
				-- -SUBTYPE is given in the to-be-returned subtypes.
				local must_not_be_present = subtype:match(&quot;^%-(.*)$&quot;)
				if must_not_be_present and specified_subtypes[must_not_be_present] then
					not_this_subtype = true
					break
				end
			end
		end
		if not not_this_subtype then
			local base
			if type(ending) == &quot;table&quot; then
				local lemma_ending = ending[1]
				local stem2_ending = ending[2]
				base = extract_base(lemma, lemma_ending)
				if base and base .. stem2_ending ~= stem2 then
					base = nil
				end
			else
				base = extract_base(lemma, ending)
			end
			if base then
				-- Remove subtypes of the form -SUBTYPE from the subtypes
				-- to be returned.
				local new_subtypes = {}
				for _, subtype in ipairs(subtypes) do
					if subtype:sub(1, 1) ~= &quot;-&quot; then
						insert(new_subtypes, subtype)
					end
				end
				if process_retval then
					base, stem2 = process_retval(base, stem2)
				end
				if process_stem2 then
					stem2 = stem2 or process_stem2(base)
				end
				return base, stem2, rettype, new_subtypes
			end
		end
	end
	if not decltype then
		return lemma, stem2, nil, keys_to_list(specified_subtypes)
	elseif decltype == &quot;&quot; then
		error(&quot;Unrecognized ending for adjective: &quot; .. lemma)
	else
		error(&quot;Unrecognized ending for declension-&quot; .. decltype .. &quot; adjective: &quot; .. lemma)
	end
end

-- Autodetect the type and subtype of an adjective given all the information
-- specified by the user: lemma, stem2, declension type and specified subtypes.
-- Four values are returned: the lemma base (i.e. the stem of the lemma, as
-- required by the declension functions), the value of stem2 to pass to the
-- declension function, the declension type and the autodetected subtypes.
-- Note that this will not detect a given subtype if -SUBTYPE is specified for
-- any subtype that would be returned, or if SUBTYPE is specified and -SUBTYPE
-- is among the subtypes that would be returned (such subtypes are filtered out
-- of the returned subtypes).
local function detect_adj_type_and_subtype(lemma, stem2, typ, subtypes)

	local function base_as_stem2(base, stem2)
		return base, base
	end

	local function constant_base(baseval)
		return function(base, stem2)
			return baseval, nil
		end
	end

	local function decl12_stem2(base)
		return base
	end

	local function decl3_stem2(base)
		return make_stem2(base)
	end

	local decl12_entries = {
		{&quot;us&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;um&quot;, &quot;1&amp;2+&quot;, {}},
		{&quot;ī&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;ae&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		{&quot;a&quot;, &quot;1&amp;2+&quot;, {&quot;pl&quot;}},
		-- Nearly all -os adjectives are greekA
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;os&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;ē&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekA&quot;, &quot;-greekE&quot;}},
		{&quot;on&quot;, &quot;1&amp;2+&quot;, {&quot;greekE&quot;, &quot;-greekA&quot;}},
		{&quot;^(.*er)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(.*ur)$&quot;, &quot;1&amp;2+&quot;, {&quot;er&quot;}},
		{&quot;^(h)ic$&quot;, &quot;1&amp;2+&quot;, {&quot;ic&quot;}},
	}

	local decl3_entries = {
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {&quot;I&quot;}},
		{&quot;^(.*er)$&quot;, &quot;3-3+&quot;, {}},
		{&quot;is&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;is&quot;, &quot;3-2+&quot;, {}},
		{&quot;e&quot;, &quot;3-2+&quot;, {&quot;I&quot;}},
		{&quot;e&quot;, &quot;3-2+&quot;, {}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(.*[ij])or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {&quot;abl_e_i&quot;, &quot;-abl_i_e&quot;}},
		{&quot;^(min)or$&quot;, &quot;3-C+&quot;, {}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*trīx)$&quot;, &quot;3-def+&quot;, {&quot;trix&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*tor)$&quot;, &quot;3-def+&quot;, {&quot;tor&quot;}},
		-- Detect -ēs as 3-1 without auto-inferring .pl if .pl
		-- not specified. If we don't do this, the later entry for
		-- -ēs will auto-infer .pl whenever -ēs is specified (which
		-- won't work for adjectives like quadripēs, volucripēs).
		-- Essentially, for declension-3 adjectives, we require that
		-- .pl is given if the lemma is plural.
		--
		-- Most 3-1 adjectives are i-stem (e.g. audāx) so we require -I
		-- to be given with non-i-stem adjectives. The first entry below
		-- will apply when -I isn't given, the second when it is given.
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;^(.*ēs)$&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
		{&quot;^(.*[ij])ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		{&quot;^(min)ōrēs$&quot;, &quot;3-C+&quot;, {&quot;pl&quot;}},
		-- If .pl with -ēs, we don't know if the adjective is 3-1, 3-2
		-- or 3-3. Since 3-2 is probably the most common, we infer it
		-- (as well as the fact that these adjectives *are* in a sense
		-- 3-2 since they have a distinct neuter in -(i)a. Note that
		-- we have two entries here; the first one will apply unless
		-- -I is given, and will infer an i-stem adjective; the second
		-- one will apply otherwise (and infer a non-i-stem 3-1 adjective).
		{&quot;ēs&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;ēs&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- Same for neuters.
		{&quot;ia&quot;, &quot;3-2+&quot;, {&quot;pl&quot;, &quot;I&quot;}, base_as_stem2},
		{&quot;a&quot;, &quot;3-1+&quot;, {&quot;pl&quot;, &quot;par&quot;}, base_as_stem2},
		-- As above for -ēs but for miscellaneous singulars.
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;I&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;, &quot;abl_i_e&quot;, &quot;-abl_e_i&quot;}},
		{&quot;&quot;, &quot;3-1+&quot;, {&quot;par&quot;}},
	}

	local function get_subtypes_and_endings(typ, f)
		local subtypes_and_endings = {}
		for _, v in ipairs(decl3_entries) do
			if f(v) then
				v = deep_copy(v)
				v[2] = typ
				insert(subtypes_and_endings, v)
			end
		end
		return subtypes_and_endings
	end
	
	local function compare(spec)
		return spec[2] == typ
	end

	if typ == &quot;+&quot; then
		local base, new_stem2, rettype, new_subtypes = get_adj_type_and_subtype_by_ending(lemma, stem2, nil, subtypes, decl12_entries, decl12_stem2)
		if rettype then
			return base, new_stem2, rettype, new_subtypes
		else
			return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
		end
	elseif typ == &quot;3+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl3_entries, decl3_stem2)
	elseif typ == &quot;1&amp;2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, decl12_entries, decl12_stem2)
	elseif typ == &quot;1-1+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;a&quot;, typ, {}},
			{&quot;ae&quot;, typ, {&quot;pl&quot;}},
		})
	elseif typ == &quot;2-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;us&quot;, typ, {}},
			{&quot;um&quot;, typ, {}},
			{&quot;ī&quot;, typ, {&quot;pl&quot;}},
			{&quot;a&quot;, typ, {&quot;pl&quot;}},
			{&quot;os&quot;, typ, {&quot;greek&quot;}},
			{&quot;on&quot;, typ, {&quot;greek&quot;}},
			{&quot;oe&quot;, typ, {&quot;greek&quot;, &quot;pl&quot;}},
		})
	elseif typ == &quot;3-1+&quot; then
		-- Use the specs from `decl3_entries`, but add the two i-stem 3-2+ specs when plural-only, as they're the same when 3-1+.
		local subtypes_and_endings = get_subtypes_and_endings(typ, function(spec)
			local spec1, spec2 = spec[1], spec[2]
			return spec2 == typ or (spec2 == &quot;3-2+&quot; and spec1 == &quot;ēs&quot; or spec1 == &quot;ia&quot;)
		end)
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-def+&quot; then
		-- Like 3-1+ but defective in gender
		local subtypes_and_endings = get_subtypes_and_endings(typ, compare)
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;I&quot;}})
		insert(subtypes_and_endings, {&quot;&quot;, typ, {&quot;par&quot;}})
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, subtypes_and_endings, decl3_stem2)
	elseif typ == &quot;3-2+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;is&quot;, typ, {}},
			{&quot;e&quot;, typ, {}},
			-- Detect -ēs as 3-2 without auto-inferring .pl if .pl
			-- not specified. If we don't do this, the later entry for
			-- -ēs will auto-infer .pl whenever -ēs is specified (which
			-- won't work for adjectives like isoscelēs). Essentially,
			-- for declension-3 adjectives, we require that .pl is given
			-- if the lemma is plural.
			{&quot;ēs&quot;, typ, {}},
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}},
		}, decl3_stem2)
	elseif typ == &quot;3-3+&quot; or typ == &quot;3-P+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;ēs&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;ia&quot;, typ, {&quot;pl&quot;}, base_as_stem2},
			{&quot;&quot;, typ, {}},
		}, decl3_stem2)
	elseif typ == &quot;3-C+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, get_subtypes_and_endings(typ, compare), decl3_stem2)
	elseif typ == &quot;irreg+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;^(duo)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(ambō)$&quot;, typ, {&quot;pl&quot;}},
			{&quot;^(mīll?ia)$&quot;, typ, {&quot;N&quot;, &quot;pl&quot;}, constant_base(&quot;mīlle&quot;)},
			-- match ea
			{&quot;^(ea)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match id
			{&quot;^(id)$&quot;, typ, {}, constant_base(&quot;is&quot;)},
			-- match plural eī, iī
			{&quot;^([ei]ī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match plural ea, eae
			{&quot;^(eae?)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;is&quot;)},
			-- match eadem
			{&quot;^(eadem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match īdem, idem
			{&quot;^([īi]dem)$&quot;, typ, {}, constant_base(&quot;īdem&quot;)},
			-- match plural īdem
			{&quot;^(īdem)$&quot;, typ, {&quot;pl&quot;}},
			-- match plural eadem, eaedem
			{&quot;^(eae?dem)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;īdem&quot;)},
			-- match illa, ipsa, ista; it doesn't matter if we overmatch because
			-- we'll get an error as we use the stem itself in the returned base
			{&quot;^(i[lps][lst])a$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match illud, istud; as above, it doesn't matter if we overmatch
			{&quot;^(i[ls][lt])ud$&quot;, typ, {}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match ipsum
			{&quot;^(ipsum)$&quot;, typ, {}, constant_base(&quot;ipse&quot;)},
			-- match plural illī, ipsī, istī; as above, it doesn't matter if we
			-- overmatch
			{&quot;^(i[lps][lst])ī$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- match plural illa, illae, ipsa, ipsae, ista, istae; as above, it
			-- doesn't matter if we overmatch
			{&quot;^(i[lps][lst])ae?$&quot;, typ, {&quot;pl&quot;}, function(base, stem2) return base .. &quot;e&quot;, nil end},
			-- Detect quī as non-plural unless .pl specified.
			{&quot;^(quī)$&quot;, typ, {}},
			-- Otherwise detect quī as plural.
			{&quot;^(quī)$&quot;, typ, {&quot;pl&quot;}},
			-- Same for quae.
			{&quot;^(quae)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(quae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quī&quot;)},
			{&quot;^(quid)$&quot;, typ, {}, constant_base(&quot;quis&quot;)},
			{&quot;^(quod)$&quot;, typ, {}, constant_base(&quot;quī&quot;)},
			{&quot;^(qui[cd]quid)$&quot;, typ, {}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quīquī)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			{&quot;^(quaequae)$&quot;, typ, {&quot;pl&quot;}, constant_base(&quot;quisquis&quot;)},
			-- match all remaining lemmas in lemma form
			{&quot;&quot;, typ, {}},
		})
	elseif typ == &quot;indecl+&quot; then
		return get_adj_type_and_subtype_by_ending(lemma, stem2, typ, subtypes, {
			{&quot;&quot;, typ, {&quot;both&quot;}},
			{&quot;&quot;, typ, {&quot;sg&quot;}},
			{&quot;&quot;, typ, {&quot;pl&quot;}},
		})
	else -- 0+
		return lemma, nil, typ, {}
	end
end

local noun_lb = {
	nom_sg = &quot;sg.&quot;,
	gen_sg = &quot;sg.&quot;,
	dat_sg = &quot;sg.&quot;,
	acc_sg = &quot;sg.&quot;,
	abl_sg = &quot;sg.&quot;,
	voc_sg = &quot;sg.&quot;,
	loc_sg = &quot;sg.&quot;,
	nom_pl = &quot;pl.&quot;,
	gen_pl = &quot;pl.&quot;,
	dat_pl = &quot;pl.&quot;,
	acc_pl = &quot;pl.&quot;,
	abl_pl = &quot;pl.&quot;,
	voc_pl = &quot;pl.&quot;,
	loc_pl = &quot;pl.&quot;
}

function export.sust(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
		[&quot;num&quot;] = {por_defecto = &quot;&quot;},
		[&quot;núm&quot;] = {alias_de = &quot;num&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(noun_lb) do
		params[form] = {lista=true}
	end

	local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local genero
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			assert(b, &quot;error en especificaciones de palabra&quot;)
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, detected_subtypes = detect_noun_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
			
			if not genero then
				if types.M then
					genero = &quot;m&quot;
				end
				if types.N then
					genero = &quot;n&quot;
				end
				if types.F then
					genero = &quot;f&quot;
				end
			end
			
			local es_adj
			if not r1 and genero then
				local typ
				r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
				if r1 then
					c = typ
					es_adj = true
				end
			end
			
			assert(r1, &quot;forma no reconocida: &quot;..r[1])
		
		    local cb = es_adj and adj_decl[c] or noun_decl[c]
		    assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			
			if es_adj then
		        local forms_ = {}
				for form,arr in pairs(data.forms) do
					local f1, f2 = form:match(&quot;^(.*)(_&quot;..genero..&quot;)$&quot;)
					if f1 then
						forms_[f1] = arr
					end
				end
		        data.forms = forms_
			end
			
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, noun_lb)
		end

		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if declinfo[&quot;loc_sg&quot;] and #declinfo[&quot;loc_sg&quot;] == 0 then
		declinfo[&quot;loc_sg&quot;] = nil
	end
	if declinfo[&quot;loc_pl&quot;] and #declinfo[&quot;loc_pl&quot;] == 0 then
		declinfo[&quot;loc_pl&quot;] = nil
	end

	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end

	local forms = sobreescribir_formas(declinfo, args, false, {})
	comprobar_defectivo(forms, {})
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl$&quot;) and nopl) or (form:find(&quot;sg$&quot;) and nosg)
		end
	)
	
    local raiz_nom = f(forms[&quot;nom_sg&quot;][1] or forms[&quot;nom_pl&quot;][1] or &quot;?&quot;)
    local raiz_gen = f(forms[&quot;gen_sg&quot;][1] or forms[&quot;gen_pl&quot;][1] or &quot;?&quot;)
	
	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, noun_lb)

    local t = {}
    insert(t, {{&quot;&quot;}, {&quot;Singular&quot;}, {&quot;Plural&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg&quot;], forms[&quot;nom_pl&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg&quot;], forms[&quot;gen_pl&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg&quot;], forms[&quot;dat_pl&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg&quot;], forms[&quot;acc_pl&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg&quot;], forms[&quot;abl_pl&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg&quot;], forms[&quot;voc_pl&quot;]})
    if (forms[&quot;loc_sg&quot;] and forms[&quot;loc_sg&quot;][1]) or (forms[&quot;loc_pl&quot;] and forms[&quot;loc_pl&quot;][1]) then
        insert(t, {{&quot;Locativo&quot;, header=true, color=COLOR_H}, forms[&quot;loc_sg&quot;], forms[&quot;loc_pl&quot;]})
    end
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=3}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_nom..&quot;, &quot;..raiz_gen..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )
end

local adj_lb = {
	nom_sg_m = &quot;m.&quot;,
	nom_sg_n = &quot;n.&quot;,
	nom_sg_f = &quot;f.&quot;,
	nom_pl_m = &quot;m.&quot;,
	nom_pl_n = &quot;n.&quot;,
	nom_pl_f = &quot;f.&quot;,
	gen_sg_m = &quot;m.&quot;,
	gen_sg_n = &quot;n.&quot;,
	gen_sg_f = &quot;f.&quot;,
	gen_pl_m = &quot;m.&quot;,
	gen_pl_n = &quot;n.&quot;,
	gen_pl_f = &quot;f.&quot;,
	dat_sg_m = &quot;m.&quot;,
	dat_sg_n = &quot;n.&quot;,
	dat_sg_f = &quot;f.&quot;,
	dat_pl_m = &quot;m.&quot;,
	dat_pl_n = &quot;n.&quot;,
	dat_pl_f = &quot;f.&quot;,
	acc_sg_m = &quot;m.&quot;,
	acc_sg_n = &quot;n.&quot;,
	acc_sg_f = &quot;f.&quot;,
	acc_pl_m = &quot;m.&quot;,
	acc_pl_n = &quot;n.&quot;,
	acc_pl_f = &quot;f.&quot;,
	abl_sg_m = &quot;m.&quot;,
	abl_sg_n = &quot;n.&quot;,
	abl_sg_f = &quot;f.&quot;,
	abl_pl_m = &quot;m.&quot;,
	abl_pl_n = &quot;n.&quot;,
	abl_pl_f = &quot;f.&quot;,
	voc_sg_m = &quot;m.&quot;,
	voc_sg_n = &quot;n.&quot;,
	voc_sg_f = &quot;f.&quot;,
	voc_pl_m = &quot;m.&quot;,
	voc_pl_n = &quot;n.&quot;,
	voc_pl_f = &quot;f.&quot;,
}

function export.adj(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {requerido=true},
        [&quot;alt&quot;] = {},
        [&quot;num&quot;] = {por_defecto = &quot;&quot;},
        [&quot;núm&quot;] = {alias_de=&quot;num&quot;},
        [&quot;gen&quot;] = {por_defecto=&quot;mfn&quot;},
        [&quot;nota&quot;] = {},
    }

	for form,_ in pairs(adj_lb) do
		params[form] = {lista=true}
	end

    params[&quot;dat_pl&quot;] = {lista=true}
    params[&quot;abl_pl&quot;] = {lista=true}
    params[&quot;loc_pl&quot;] = {lista=true}

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    if args[&quot;dat_pl&quot;][1] then
        args[&quot;dat_pl_m&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_n&quot;] = deep_copy(args[&quot;dat_pl&quot;])
        args[&quot;dat_pl_f&quot;] = deep_copy(args[&quot;dat_pl&quot;])
    end
    if args[&quot;abl_pl&quot;][1] then
        args[&quot;abl_pl_m&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_n&quot;] = deep_copy(args[&quot;abl_pl&quot;])
        args[&quot;abl_pl_f&quot;] = deep_copy(args[&quot;abl_pl&quot;])
    end
    if args[&quot;loc_pl&quot;][1] then
        args[&quot;loc_pl_m&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_n&quot;] = deep_copy(args[&quot;loc_pl&quot;])
        args[&quot;loc_pl_f&quot;] = deep_copy(args[&quot;loc_pl&quot;])
    end
    args[&quot;dat_pl&quot;] = nil
    args[&quot;abl_pl&quot;] = nil
    args[&quot;loc_pl&quot;] = nil

	assert(not find(title, &quot; &quot;), &quot;locuciones no soportadas aún&quot;) -- REVISAR
	
	local tpalabras = {}
	for _,p in ipairs(args) do
		p = match(p, &quot;^(.-);&quot;) or p
		local a, b = match(p, &quot;^(.-)%.(.*)$&quot;)
		assert(b, &quot;error en especificaciones de palabra&quot;)
		local r1  = match(a, &quot;^([^/]+)/&quot;)
		if not r1 then
			r1 = a
		end
		if r1 == &quot;idem&quot; or r1 == &quot;īdem&quot; then -- REVISAR: parche para idem que internamente lo declina como si fuera &quot;i&quot;
			insert(tpalabras, &quot;ī&quot;)
		else
			insert(tpalabras, r1)
		end
	end
		
	local palabras, separadores = separar_palabras(title, concat(tpalabras, &quot;-&quot;))
	
	local M = 1
	local declinfo
	local titles = {}
	local cats = {}
	local nosg, nopl = true, true
	for _,arg in ipairs(args) do
		local formas = {}
		for subarg in gsplit(arg, &quot;;&quot;) do
			local types = {}
			local a, b = match(subarg, &quot;^(.-)%.(.*)$&quot;)
			a = a or subarg
			b = b or &quot;+&quot;
			local c, d = match(b, &quot;^(.-)%.(.*)$&quot;)
			if d then
				for spec in gsplit(d, &quot;%.&quot;) do
		            spec = gsub(spec, &quot;(.)%-&quot;, &quot;%1_&quot;)
		            types[spec] = true
		        end
			end
			c = c or b
			local r = split(a, &quot;/&quot;)
		
			local r1, r2, typ, detected_subtypes = detect_adj_type_and_subtype(r[1], r[2], c, types)
		
			for _, subtype in ipairs(detected_subtypes) do
				if types[&quot;-&quot; .. subtype] then
					-- if a &quot;cancel subtype&quot; spec is given, remove the cancel spec
					-- and don't apply the subtype
					types[&quot;-&quot; .. subtype] = nil
				elseif (subtype == &quot;M&quot; or subtype == &quot;F&quot; or subtype == &quot;N&quot;) and
						(types.M or types.F or types.N) then
					-- if gender already specified, don't create conflicting gender spec
				elseif (subtype == &quot;sg&quot; or subtype == &quot;pl&quot; or subtype == &quot;both&quot;) and
						(types.sg or types.pl or types.both) then
					-- if number restriction already specified, don't create conflicting
					-- number restriction spec
				else
					types[subtype] = true
				end
			end
		
			local cb = adj_decl[typ]
			assert(cb, &quot;Especifique el tipo de sustantivo correcto en el primer parámetro&quot;)
			
			local data = {forms={}, types=types, pos=&quot;&quot;, subtitles=&quot;&quot;, notes=&quot;&quot;, categories=cats, title=titles, loc=types.loc, num=args.num}
			cb(data, {r1, r2})
			local formas_ = {} -- necesario crear otro arreglo para no modificar las claves durante la iteración
			for form,arr in pairs(data.forms) do
				local pref = match(form, &quot;^(.*)_m$&quot;)
				if pref and not data.forms[pref..&quot;_f&quot;] then
					formas_[pref..&quot;_f&quot;] = deep_copy(arr)
				end
				if pref and not data.forms[pref..&quot;_n&quot;] then
					formas_[pref..&quot;_n&quot;] = deep_copy(arr)
				end
				formas_[form] = arr
			end
			data.forms = formas_
				
			if not types.sg then
				nopl = false
			end
			if not types.pl then
				nosg = false
			end
			
			if types.sg then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_pl&quot;) then
						data.forms[key] = {}
					end
				end
			end
			if types.pl then
				for key,_ in pairs(data.forms) do
					if key:find(&quot;_sg&quot;) then
						data.forms[key] = {}
					end
				end
			end
			
			merge_forms(formas, data.forms, adj_lb)
		end
		
		if not declinfo then
			declinfo = formas
		else
			declinfo = combinar_copulativa(declinfo, formas, separadores[M])
			M = M + 1
		end
	end
	
	if nosg == false then
		nosg = find(args[&quot;num&quot;], &quot;p&quot;)
	end
	if nopl == false then
		nopl = find(args[&quot;num&quot;], &quot;s&quot;)
	end
	
	local m = find(args[&quot;gen&quot;], &quot;m&quot;)
	local fem = find(args[&quot;gen&quot;], &quot;f&quot;)
	local n = find(args[&quot;gen&quot;], &quot;n&quot;)

	local forms = sobreescribir_formas(declinfo, args, false, {}, adj_lb)
	comprobar_defectivo(forms)
	forms = desactivar_formas(forms,
		function (form)
			return (form:find(&quot;pl&quot;) and nopl) or (form:find(&quot;sg&quot;) and nosg) or (form:find(&quot;m$&quot;) and not m) or (form:find(&quot;f$&quot;) and not fem) or (form:find(&quot;n$&quot;) and not n)
		end
	)
	
	local raiz_m = f(forms[&quot;nom_sg_m&quot;][1] or forms[&quot;nom_pl_m&quot;][1] or &quot;?&quot;)
	local raiz_f = f(forms[&quot;nom_sg_f&quot;][1] or forms[&quot;nom_pl_f&quot;][1] or &quot;?&quot;)
	local raiz_n = f(forms[&quot;nom_sg_n&quot;][1] or forms[&quot;nom_pl_n&quot;][1] or &quot;?&quot;)

	forms = agregar_enlaces(forms, title, normalizar_enlace)
	forms = formatear_formas(forms, adj_lb)

    local t = {}
    insert(t, {{&quot;Singular&quot;, colspan=4}, header=true, color=COLOR_H})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_sg_m&quot;], forms[&quot;nom_sg_f&quot;], forms[&quot;nom_sg_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_sg_m&quot;], forms[&quot;gen_sg_f&quot;], forms[&quot;gen_sg_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_sg_m&quot;], forms[&quot;dat_sg_f&quot;], forms[&quot;dat_sg_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_sg_m&quot;], forms[&quot;acc_sg_f&quot;], forms[&quot;acc_sg_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_sg_m&quot;], forms[&quot;abl_sg_f&quot;], forms[&quot;abl_sg_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_sg_m&quot;], forms[&quot;voc_sg_f&quot;], forms[&quot;voc_sg_n&quot;]})
    insert(t, {{&quot;Plural&quot;, colspan=4, header=true, color=COLOR_H}})
    insert(t, {{&quot;&quot;}, {&quot;Masculino&quot;}, {&quot;Femenino&quot;}, {&quot;Neutro&quot;}, header=true, color=COLOR_H, class=&quot;pc&quot;})
    insert(t, {{&quot;Nominativo&quot;, header=true, color=COLOR_H}, forms[&quot;nom_pl_m&quot;], forms[&quot;nom_pl_f&quot;], forms[&quot;nom_pl_n&quot;]})
    insert(t, {{&quot;Genitivo&quot;, header=true, color=COLOR_H}, forms[&quot;gen_pl_m&quot;], forms[&quot;gen_pl_f&quot;], forms[&quot;gen_pl_n&quot;]})
    insert(t, {{&quot;Dativo&quot;, header=true, color=COLOR_H}, forms[&quot;dat_pl_m&quot;], forms[&quot;dat_pl_f&quot;], forms[&quot;dat_pl_n&quot;]})
    insert(t, {{&quot;Acusativo&quot;, header=true, color=COLOR_H}, forms[&quot;acc_pl_m&quot;], forms[&quot;acc_pl_f&quot;], forms[&quot;acc_pl_n&quot;]})
    insert(t, {{&quot;Ablativo&quot;, header=true, color=COLOR_H}, forms[&quot;abl_pl_m&quot;], forms[&quot;abl_pl_f&quot;], forms[&quot;abl_pl_n&quot;]})
    insert(t, {{&quot;Vocativo&quot;, header=true, color=COLOR_H}, forms[&quot;voc_pl_m&quot;], forms[&quot;voc_pl_f&quot;], forms[&quot;voc_pl_n&quot;]})
    insert(t, {{args[&quot;nota&quot;] or &quot;&quot;, colspan=4}})

    return renderizar_tabla(
        frame,
        &quot;'''Declinación de ''&quot;..raiz_m..&quot;, &quot;..raiz_f..&quot;, &quot;..raiz_n..&quot;'''''&amp;emsp;&amp;emsp;tipo: &quot;..concat(titles, &quot;, &quot;),
        t,
        ns == 0 and cats or {}
    )

end

local EGO, TU, IS, NOS, VOS, EI = 1, 2, 3, 4, 5, 6
local tostr = {&quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;}

local PRONOMBRES = {&quot;ego&quot;, &quot;tū&quot;, &quot;is, ea, id&quot;, &quot;nōs&quot;, &quot;vōs&quot;, &quot;eī, eae, ea&quot;}
local PRONOMBRES_SUBJ = {&quot;ut ego&quot;, &quot;ut tū&quot;, &quot;ut is, ut ea, ut id&quot;, &quot;ut nōs&quot;, &quot;ut vōs&quot;, &quot;ut eī, ut eae, ut ea&quot;}
local PRONOMBRES_IMP = {&quot;―&quot;, &quot;(tū)&quot;, &quot;(is, ea, id)&quot;, &quot;―&quot;, &quot;(vōs)&quot;, &quot;(eī, eae, ea)&quot;}
local IMPERSONALES = {&quot;&quot;, &quot;&quot;, &quot;(id)&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;}

local function obtener_pronombre(forma, impers)
	local conj, p = match(forma, &quot;^(.*)(%d)$&quot;)
    if not p then
        return nil
    end
    p = tonumber(p)
	if impers then
		return IMPERSONALES[p]
	else
		if find(conj, &quot;^subj&quot;) then
			return PRONOMBRES_SUBJ[p]
		end
		if find(conj, &quot;^imper&quot;) then
			return PRONOMBRES_IMP[p]
		end
		return PRONOMBRES[p]
	end
end


local sufijos = {
    [&quot;1&quot;] = {
        inf_act = {&quot;āre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ārī&quot;},
        part_act = {&quot;āns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;andus&quot;,&quot;us&quot;},
        ger = {&quot;andī&quot;,&quot;andō&quot;,&quot;andum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        ind_imp = {&quot;ābam&quot;,&quot;ābās&quot;,&quot;ābat&quot;,&quot;ābāmus&quot;,&quot;ābātis&quot;,&quot;ābant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ābō&quot;,&quot;ābis&quot;,&quot;ābit&quot;,&quot;ābimus&quot;,&quot;ābitis&quot;,&quot;ābunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
                        nil,&quot;āre&quot;},
        ind_imp_pas = {&quot;ābar&quot;,&quot;ābāris&quot;,&quot;ābātur&quot;,&quot;ābāmur&quot;,&quot;ābāminī&quot;,&quot;ābantur&quot;,
                        nil,&quot;ābāre&quot;},
        ind_fut_pas = {&quot;ābor&quot;,&quot;āberis&quot;,&quot;ābitur&quot;,&quot;ābimur&quot;,&quot;ābiminī&quot;,&quot;ābuntur&quot;,
                        nil,&quot;ābere&quot;},
        subj_pres = {&quot;em&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        subj_imp = {&quot;ārem&quot;,&quot;ārēs&quot;,&quot;āret&quot;,&quot;ārēmus&quot;,&quot;ārētis&quot;,&quot;ārent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;er&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
        				nil,&quot;ēre&quot;},
        subj_imp_pas = {&quot;ārer&quot;,&quot;ārēris&quot;,&quot;ārētur&quot;,&quot;ārēmur&quot;,&quot;ārēminī&quot;,&quot;ārentur&quot;,
        				nil,&quot;ārēre&quot;},
        imper_pres = {nil,&quot;ā&quot;,nil,nil,&quot;āte&quot;,nil},
        imper_fut = {nil,&quot;ātō&quot;,&quot;ātō&quot;,nil,&quot;ātōte&quot;,&quot;antō&quot;},
        imper_pres_pas = {nil,&quot;āre&quot;,nil,nil,&quot;āminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ātor&quot;,&quot;ātor&quot;,nil,nil,&quot;antor&quot;},
    },
    [&quot;2&quot;] = {
        inf_act = {&quot;ēre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ērī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;eō&quot;,&quot;ēs&quot;,&quot;et&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;ēbō&quot;,&quot;ēbis&quot;,&quot;ēbit&quot;,&quot;ēbimus&quot;,&quot;ēbitis&quot;,&quot;ēbunt&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;eor&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ēbor&quot;,&quot;ēberis&quot;,&quot;ēbitur&quot;,&quot;ēbimur&quot;,&quot;ēbiminī&quot;,&quot;ēbuntur&quot;,
                        nil,&quot;ēbere&quot;},
        subj_pres = {&quot;eam&quot;,&quot;eās&quot;,&quot;eat&quot;,&quot;eāmus&quot;,&quot;eātis&quot;,&quot;eant&quot;},
        subj_imp = {&quot;ērem&quot;,&quot;ērēs&quot;,&quot;ēret&quot;,&quot;ērēmus&quot;,&quot;ērētis&quot;,&quot;ērent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ear&quot;,&quot;eāris&quot;,&quot;eātur&quot;,&quot;eāmur&quot;,&quot;eāminī&quot;,&quot;eantur&quot;,
        				nil,&quot;eāre&quot;},
        subj_imp_pas = {&quot;ērer&quot;,&quot;ērēris&quot;,&quot;ērētur&quot;,&quot;ērēmur&quot;,&quot;ērēminī&quot;,&quot;ērentur&quot;,
        				nil,&quot;ērēre&quot;},
        imper_pres = {nil,&quot;ē&quot;,nil,nil,&quot;ēte&quot;,nil},
        imper_fut = {nil,&quot;ētō&quot;,&quot;ētō&quot;,nil,&quot;ētōte&quot;,&quot;entō&quot;},
        imper_pres_pas = {nil,&quot;ēre&quot;,nil,nil,&quot;ēminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ētor&quot;,&quot;ētor&quot;,nil,nil,&quot;entor&quot;},
    },
    [&quot;3&quot;] = { -- 3 (comparar [[capio]] con [[lego]], las raíces con capi- y leg- pero hay que eliminar la doble ii)
        inf_act = {&quot;ere&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;},
        part_act = {&quot;ēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;},
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        nil,&quot;ere&quot;},
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        nil,&quot;ēbāre&quot;},
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        nil,&quot;ēre&quot;},
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;},
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				nil,&quot;āre&quot;},
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				nil,&quot;erēre&quot;},
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil},
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;},
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil},
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;},
    },
    [&quot;3/4&quot;] = {
        inf_act = {&quot;ere&quot;,&quot;isse&quot;,&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;ī&quot;,&quot;īrī&quot;},
        part_act = {&quot;ēns&quot;,&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;endus&quot;,&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;endī&quot;,&quot;endō&quot;,&quot;endum&quot;,&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;unt&quot;,
        			&quot;iō&quot;,&quot;īs&quot;,nil,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;
        },
        ind_imp = {&quot;ēbam&quot;,&quot;ēbās&quot;,&quot;ēbat&quot;,&quot;ēbāmus&quot;,&quot;ēbātis&quot;,&quot;ēbant&quot;,
        			&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;
        },
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;am&quot;,&quot;ēs&quot;,&quot;ēt&quot;,&quot;ēmus&quot;,&quot;ētis&quot;,&quot;ent&quot;,
        			&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;
        },
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;or&quot;,&quot;eris&quot;,&quot;itur&quot;,&quot;imur&quot;,&quot;iminī&quot;,&quot;untur&quot;,
                        &quot;ior&quot;,&quot;ere&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
        				nil,&quot;īris&quot;,nil,nil,nil,nil,
        				nil,&quot;īre&quot;
        },
        ind_imp_pas = {&quot;ēbar&quot;,&quot;ēbāris&quot;,&quot;ēbātur&quot;,&quot;ēbāmur&quot;,&quot;ēbāminī&quot;,&quot;ēbantur&quot;,
                        &quot;iēbar&quot;,&quot;ēbāre&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
        				nil,&quot;iēbāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēbāre&quot;
        },
        ind_fut_pas = {&quot;ar&quot;,&quot;ēris&quot;,&quot;ētur&quot;,&quot;ēmur&quot;,&quot;ēminī&quot;,&quot;entur&quot;,
                        &quot;iar&quot;,&quot;ēre&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
        				nil,&quot;iēris&quot;,nil,nil,nil,nil,
        				nil,&quot;iēre&quot;
        },
        subj_pres = {&quot;am&quot;,&quot;ās&quot;,&quot;at&quot;,&quot;āmus&quot;,&quot;ātis&quot;,&quot;ant&quot;,
        			&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;,
        },
        subj_imp = {&quot;erem&quot;,&quot;erēs&quot;,&quot;eret&quot;,&quot;erēmus&quot;,&quot;erētis&quot;,&quot;erent&quot;,
        			&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;
        },
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;ar&quot;,&quot;āris&quot;,&quot;ātur&quot;,&quot;āmur&quot;,&quot;āminī&quot;,&quot;antur&quot;,
        				&quot;iar&quot;,&quot;āre&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāris&quot;,nil,nil,nil,nil,
        				nil,&quot;iāre&quot;
        },
        subj_imp_pas = {&quot;erer&quot;,&quot;erēris&quot;,&quot;erētur&quot;,&quot;erēmur&quot;,&quot;erēminī&quot;,&quot;erentur&quot;,
        				&quot;īrer&quot;,&quot;erēre&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēris&quot;,nil,nil,nil,nil,
        				nil,&quot;īrēre&quot;
        },
        imper_pres = {nil,&quot;e&quot;,nil,nil,&quot;ite&quot;,nil,
        			nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil
        },
        imper_fut = {nil,&quot;itō&quot;,&quot;itō&quot;,nil,&quot;itōte&quot;,&quot;untō&quot;,
        			nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;
        },
        imper_pres_pas = {nil,&quot;ere&quot;,nil,nil,&quot;iminī&quot;,nil,
        				nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil
        },
        imper_fut_pas = {nil,&quot;itor&quot;,&quot;itor&quot;,nil,nil,&quot;untor&quot;,
        				nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;
        },    	
    },
    [&quot;4&quot;] = {
        inf_act = {&quot;īre&quot;,&quot;isse&quot;},
        inf_pas = {&quot;īrī&quot;},
        part_act = {&quot;iēns&quot;,&quot;ūrus&quot;},
        part_pas = {&quot;iendus&quot;,&quot;us&quot;},
        ger = {&quot;iendī&quot;,&quot;iendō&quot;,&quot;iendum&quot;},
        sup = {&quot;um&quot;,&quot;ū&quot;},
        ind_pres = {&quot;iō&quot;,&quot;īs&quot;,&quot;it&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;iunt&quot;},
        ind_imp = {&quot;iēbam&quot;,&quot;iēbās&quot;,&quot;iēbat&quot;,&quot;iēbāmus&quot;,&quot;iēbātis&quot;,&quot;iēbant&quot;},
        ind_perf = {&quot;ī&quot;,&quot;istī&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;istis&quot;,&quot;ērunt&quot;,
                    nil,nil,nil,nil,nil,&quot;ēre&quot;},
        ind_pluperf = {&quot;eram&quot;,&quot;erās&quot;,&quot;erat&quot;,&quot;erāmus&quot;,&quot;erātis&quot;,&quot;erant&quot;},
        ind_fut = {&quot;iam&quot;,&quot;iēs&quot;,&quot;iet&quot;,&quot;iēmus&quot;,&quot;iētis&quot;,&quot;ient&quot;},
        ind_fut_perf = {&quot;erō&quot;,&quot;eris&quot;,&quot;erit&quot;,&quot;erimus&quot;,&quot;eritis&quot;,&quot;erint&quot;},
        ind_fut_sig = {&quot;ō&quot;,&quot;is&quot;,&quot;it&quot;,&quot;imus&quot;,&quot;itis&quot;,&quot;int&quot;},
        ind_pres_pas = {&quot;ior&quot;,&quot;īris&quot;,&quot;ītur&quot;,&quot;īmur&quot;,&quot;īminī&quot;,&quot;iuntur&quot;,
                        nil,&quot;īre&quot;},
        ind_imp_pas = {&quot;iēbar&quot;,&quot;iēbāris&quot;,&quot;iēbātur&quot;,&quot;iēbāmur&quot;,&quot;iēbāminī&quot;,&quot;iēbantur&quot;,
                        nil,&quot;iēbāre&quot;},
        ind_fut_pas = {&quot;iar&quot;,&quot;iēris&quot;,&quot;iētur&quot;,&quot;iēmur&quot;,&quot;iēminī&quot;,&quot;ientur&quot;,
                        nil,&quot;iēre&quot;},
        subj_pres = {&quot;iam&quot;,&quot;iās&quot;,&quot;iat&quot;,&quot;iāmus&quot;,&quot;iātis&quot;,&quot;iant&quot;},
        subj_imp = {&quot;īrem&quot;,&quot;īrēs&quot;,&quot;īret&quot;,&quot;īrēmus&quot;,&quot;īrētis&quot;,&quot;īrent&quot;},
        subj_perf = {&quot;erim&quot;,&quot;erīs&quot;,&quot;erit&quot;,&quot;erīmus&quot;,&quot;erītis&quot;,&quot;erint&quot;},
        subj_pluperf = {&quot;issem&quot;,&quot;issēs&quot;,&quot;isset&quot;,&quot;issēmus&quot;,&quot;issētis&quot;,&quot;issent&quot;},
        subj_aor_sig = {&quot;im&quot;,&quot;īs&quot;,&quot;īt&quot;,&quot;īmus&quot;,&quot;ītis&quot;,&quot;int&quot;},
        subj_pres_pas = {&quot;iar&quot;,&quot;iāris&quot;,&quot;iātur&quot;,&quot;iāmur&quot;,&quot;iāminī&quot;,&quot;iantur&quot;,
        				nil,&quot;iāre&quot;},
        subj_imp_pas = {&quot;īrer&quot;,&quot;īrēris&quot;,&quot;īrētur&quot;,&quot;īrēmur&quot;,&quot;īrēminī&quot;,&quot;īrentur&quot;,
        				nil,&quot;īrēre&quot;},
        imper_pres = {nil,&quot;ī&quot;,nil,nil,&quot;īte&quot;,nil},
        imper_fut = {nil,&quot;ītō&quot;,&quot;ītō&quot;,nil,&quot;ītōte&quot;,&quot;iuntō&quot;},
        imper_pres_pas = {nil,&quot;īre&quot;,nil,nil,&quot;īminī&quot;,nil},
        imper_fut_pas = {nil,&quot;ītor&quot;,&quot;ītor&quot;,nil,nil,&quot;iuntor&quot;},
    }
}

local formas_no_personales = {
    inf_act = true,
    inf_pas = true,
    part_act = true,
    part_pas = true,
    ger = true,
    sup = true,
}

local formas_personales = {
    ind_pres = true,
    ind_imp = true,
    ind_perf = true,
    ind_pluperf = true,
    ind_fut = true,
    ind_fut_perf = true,
    ind_fut_sig = true,
    ind_pres_pas = true,
    ind_imp_pas = true,
    ind_fut_pas = true,
    subj_pres = true,
    subj_imp = true,
    subj_perf = true,
    subj_pluperf = true,
    subj_aor_sig = true,
    subj_pres_pas = true,
    subj_imp_pas = true,
    imper_pres = true,
    imper_fut = true,
    imper_pres_pas = true,
    imper_fut_pas = true,
}

local formas = merge(formas_no_personales, formas_personales)

local verbos_irregulares = {
	{&quot;aiō&quot;, {&quot;aiō&quot;, &quot;aiiō&quot;, &quot;aijō&quot;, &quot;ajō&quot;}, {
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,
					&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_perf&quot;,&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,
					&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {&quot;ai&quot;},
		nucleoperf = {&quot;a&quot;},
		nucleosup = {},
		nucleosigm = {},
		inf_act = {&quot;aiere&quot;},
	    ind_pres = {nil,nil,nil,{}},
	    ind_perf = {{},nil,nil,{},{}},
	    subj_pres = {nil,nil,nil,{},{}},
	    subj_imp = {{},{},nil,{},{},{}},
	    imper_pres = {{},{&quot;ai&quot;},{},{},{},{}},
	}},
	{&quot;cedo&quot;, {&quot;cedo&quot;}, {
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_act&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pluperf&quot;,&quot;ind_pres&quot;,&quot;ind_imp&quot;,&quot;ind_perf&quot;,
					&quot;ind_fut&quot;,&quot;ind_fut_perf&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres&quot;,&quot;subj_imp&quot;,&quot;subj_perf&quot;,
					&quot;subj_pluperf&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;
		},
		conj = &quot;3&quot;,
		nucleopres = {},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		imper_pres = {nil,{&quot;cedo&quot;},nil,nil,{&quot;cette&quot;,&quot;cedile&quot;},nil},
	}},
	{&quot;edō&quot;, {&quot;edō&quot;, &quot;ëdō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;ed&quot;},
		nucleoperf = {&quot;ēd&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;edere&quot;,&quot;ēsse&quot;},
		part_act = {&quot;edēns&quot;,&quot;ēsūrus&quot;,&quot;ēssūrus&quot;,&quot;ēstūrus&quot;},
		part_pas = {&quot;edendus&quot;,&quot;edundus&quot;,&quot;ēsus&quot;,&quot;ēssus&quot;,&quot;ēstus&quot;},
		sup = {&quot;ēsum&quot;,&quot;ēssum&quot;,&quot;ēstum&quot;,&quot;ēsū&quot;,&quot;ēssū&quot;,&quot;ēstū&quot;},
	    ind_pres = {nil,{&quot;edis&quot;,&quot;ēs&quot;},{&quot;edit&quot;,&quot;ēst&quot;},nil,{&quot;editis&quot;,&quot;ēstis&quot;},nil},
	    ind_pres_pas = {nil,{&quot;ederis&quot;,&quot;edere&quot;,&quot;ēssis&quot;,&quot;ēsse&quot;},{&quot;editur&quot;,&quot;ēstur&quot;}},
		subj_pres = {{&quot;edam&quot;,&quot;edim&quot;},{&quot;edās&quot;,&quot;edīs&quot;},{&quot;edat&quot;,&quot;edit&quot;,&quot;ēst&quot;},{&quot;edāmus&quot;,&quot;edīmus&quot;},{&quot;edātis&quot;,&quot;edītis&quot;},{&quot;edant&quot;,&quot;edint&quot;}},
		subj_imp = {{&quot;ederem&quot;,&quot;ēssem&quot;},{&quot;ederēs&quot;,&quot;ēssēs&quot;},{&quot;ederet&quot;,&quot;ēsset&quot;},{&quot;ederēmus&quot;,&quot;ēssēmus&quot;},{&quot;ederētis&quot;,&quot;ēssētis&quot;},{&quot;ederent&quot;,&quot;ēssent&quot;}},
		subj_imp_pas = {{&quot;ederer&quot;,&quot;ēsser&quot;},{&quot;ederēris&quot;,&quot;ederēre&quot;,&quot;ēssēris&quot;,&quot;ēssēre&quot;},{&quot;ederetur&quot;,&quot;ēssetur&quot;},{&quot;ederēmur&quot;,&quot;ēssēmur&quot;},{&quot;ederēminī&quot;,&quot;ēssēminī&quot;},{&quot;ederentur&quot;,&quot;ēssentur&quot;}},
	    imper_pres = {nil,{&quot;ede&quot;,&quot;ēs&quot;},nil,nil,{&quot;edite&quot;,&quot;ēste&quot;},nil},
	    imper_fut = {nil,{&quot;editō&quot;,&quot;ēstō&quot;},{&quot;editō&quot;,&quot;ēstō&quot;},nil,{&quot;editōte&quot;,&quot;ēstōte&quot;},{&quot;eduntō&quot;}},
	    imper_pres_pas = {nil,{&quot;edere&quot;,&quot;ēsse&quot;},nil,nil,{&quot;ediminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;editor&quot;,&quot;ēstor&quot;},{&quot;editor&quot;,&quot;ēstor&quot;},nil,nil,{&quot;eduntor&quot;}},
	}},
	{&quot;dīcō&quot;, {&quot;dīcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dīc&quot;},
		nucleoperf = {&quot;dīx&quot;},
		nucleosup = {&quot;dict&quot;},
		nucleosigm = {&quot;dīx&quot;},
		desactivar = {},
		part_pas = {&quot;dīcendus&quot;, &quot;dīcundus&quot;, &quot;dictus&quot;},
		imper_pres = {nil, {&quot;dīc&quot;, &quot;dīce&quot;}},
		inf_pas = {&quot;dīcī&quot;, &quot;dīcier{L}&quot;},
	}},
	{&quot;dō&quot;, {&quot;dō&quot;}, {
		conj = &quot;1&quot;,
		nucleopres = {&quot;d&quot;},
		nucleoperf = {&quot;ded&quot;},
		nucleosup = {&quot;dat&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;dare&quot;,&quot;dedisse&quot;},
	    inf_pas = {&quot;darī&quot;},
	    ind_pres = {nil,nil,nil,{&quot;damus&quot;},{&quot;datis&quot;},nil},
	    ind_imp = {{&quot;dabam&quot;},{&quot;dabās&quot;},{&quot;dabat&quot;},{&quot;dabāmus&quot;},{&quot;dabātis&quot;},{&quot;dabant&quot;}},
	    ind_fut = {{&quot;dabō&quot;},{&quot;dabis&quot;},{&quot;dabit&quot;},{&quot;dabimus&quot;},{&quot;dabitis&quot;},{&quot;dabunt&quot;}},
	    ind_imp_pas = {{&quot;dabar&quot;},{&quot;dabāris&quot;,&quot;dabāre&quot;},{&quot;dabātur&quot;},{&quot;dabāmur&quot;},{&quot;dabāminī&quot;},{&quot;dabantur&quot;}},
	    ind_fut_pas = {{&quot;dabor&quot;},{&quot;daberis&quot;,&quot;dabere&quot;},{&quot;dabitur&quot;},{&quot;dabimur&quot;},{&quot;dabiminī&quot;},{&quot;dabuntur&quot;}},
	    subj_imp = {{&quot;darem&quot;},{&quot;darēs&quot;},{&quot;daret&quot;},{&quot;darēmus&quot;},{&quot;darētis&quot;},{&quot;darent&quot;}},
	    subj_imp_pas = {{&quot;darer&quot;},{&quot;darēris&quot;,&quot;darēre&quot;},{&quot;darētur&quot;},{&quot;darēmur&quot;},{&quot;darēminī&quot;},{&quot;darentur&quot;}},
	    imper_pres = {nil,nil,nil,nil,{&quot;date&quot;},nil},
	    imper_fut = {nil,{&quot;datō&quot;},{&quot;datō&quot;},nil,{&quot;datōte&quot;},{&quot;dantō&quot;}},
	    imper_pres_pas = {nil,{&quot;dare&quot;},nil,nil,{&quot;daminī&quot;},nil},
	    imper_fut_pas = {nil,{&quot;dator&quot;},{&quot;dator&quot;},nil,nil,{&quot;dator&quot;}},
	}},
	{&quot;dūcō&quot;, {&quot;dūcō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;dūc&quot;},
		nucleoperf = {&quot;dūx&quot;},
		nucleosup = {&quot;duct&quot;},
		nucleosigm = {},
		desactivar = {},
		imper_pres = {nil, {&quot;dūc&quot;, &quot;dūce&quot;}},
	}},
	{&quot;eō&quot;, {&quot;eō&quot;, &quot;ëō&quot;}, {
		conj = &quot;4&quot;,
		nucleopres = {&quot;&quot;},
		nucleoperf = {&quot;&quot;},
		nucleosup = {&quot;&quot;},
		nucleosigm = {},
		desactivar = {&quot;imper_pres_pas&quot;},
		inf_act = {&quot;īre&quot;,&quot;īsse&quot;,&quot;iisse&quot;,&quot;īvisse&quot;},
	    inf_pas = {&quot;īrī&quot;,&quot;īrier&quot;},
	    part_act = {&quot;iēns&quot;,&quot;itūrus&quot;},
	    part_pas = {&quot;eundum&quot;,&quot;itum&quot;},
	    ger = {&quot;eundī&quot;,&quot;eundō&quot;,&quot;eundum&quot;},
	    sup = {&quot;itum&quot;,&quot;itū&quot;},
	    ind_pres = {{&quot;eō&quot;},{&quot;īs&quot;},{&quot;it&quot;},{&quot;īmus&quot;},{&quot;ītis&quot;},{&quot;eunt&quot;}},
	    ind_imp = {{&quot;ībam&quot;},{&quot;ībās&quot;},{&quot;ībat&quot;},{&quot;ībāmus&quot;},{&quot;ībātis&quot;},{&quot;ībant&quot;}},
	    ind_perf = {{&quot;iī&quot;,&quot;īvī&quot;},{&quot;īstī&quot;,&quot;iistī&quot;,&quot;īvistī&quot;},{&quot;iit&quot;,&quot;īvit&quot;},{&quot;iimus&quot;,&quot;īvimus&quot;},{&quot;īstis&quot;,&quot;iistis&quot;,&quot;īvistis&quot;},{&quot;iērunt&quot;,&quot;iēre&quot;,&quot;īvērunt&quot;,&quot;īvēre&quot;}},
	    ind_pluperf = {{&quot;ieram&quot;,&quot;īveram&quot;},{&quot;ierās&quot;,&quot;īverās&quot;},{&quot;ierat&quot;,&quot;īverat&quot;},{&quot;ierāmus&quot;,&quot;īverāmus&quot;},{&quot;ierātis&quot;,&quot;īverātis&quot;},{&quot;ierant&quot;,&quot;īverant&quot;}},
	    ind_fut = {{&quot;ībō&quot;},{&quot;ībis&quot;},{&quot;ībit&quot;},{&quot;ībimus&quot;},{&quot;ībitis&quot;},{&quot;ībunt&quot;}},
	    ind_fut_perf = {{&quot;ierō&quot;,&quot;īverō&quot;},{&quot;ieris&quot;,&quot;īveris&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierimus&quot;,&quot;īverimus&quot;},{&quot;ieritis&quot;,&quot;īveritis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    ind_fut_sig = {nil,nil,nil,nil,nil,nil},
	    ind_pres_pas = {{},{},{&quot;ītur&quot;},{},{},{}},
	    ind_imp_pas = {{},{},{&quot;ībātur&quot;},{},{},{}},
	    ind_fut_pas = {{},{},{&quot;ībitur&quot;},{},{},{}},
	    subj_pres = {{&quot;eam&quot;},{&quot;eās&quot;},{&quot;eat&quot;},{&quot;eāmus&quot;},{&quot;eātis&quot;},{&quot;eant&quot;}},
	    subj_imp = {{&quot;īrem&quot;},{&quot;īrēs&quot;},{&quot;īret&quot;},{&quot;īrēmus&quot;},{&quot;īrētis&quot;},{&quot;īrent&quot;}},
	    subj_perf = {{&quot;ierim&quot;,&quot;īverim&quot;},{&quot;ierīs&quot;,&quot;īverīs&quot;},{&quot;ierit&quot;,&quot;īverit&quot;},{&quot;ierīmus&quot;,&quot;īverīmus&quot;},{&quot;ierītis&quot;,&quot;īverītis&quot;},{&quot;ierint&quot;,&quot;īverint&quot;}},
	    subj_pluperf = {{&quot;īssem&quot;,&quot;iissem&quot;,&quot;īvissem&quot;},{&quot;īssēs&quot;,&quot;iissēs&quot;,&quot;īvissēs&quot;},{&quot;īsset&quot;,&quot;iisset&quot;,&quot;īvisset&quot;},{&quot;īssēmus&quot;,&quot;iissēmus&quot;,&quot;īvissēmus&quot;},{&quot;īssētis&quot;,&quot;iissētis&quot;,&quot;īvissētis&quot;},{&quot;īssent&quot;,&quot;iissent&quot;,&quot;īvissent&quot;}},
	    subj_aor_sig = {nil,nil,nil,nil,nil,nil},
	    subj_pres_pas = {{},{},{&quot;eātur&quot;},{},{},{}},
	    subj_imp_pas = {{},{},{&quot;īrētur&quot;},{},{},{}},
	    imper_pres = {nil,nil,nil,nil,nil,nil},
	    imper_fut = {nil,nil,nil,nil,nil,{&quot;euntō&quot;}},
	    imper_fut_pas = {nil,{},nil,nil,nil,{}},
	}},
	{&quot;faciō&quot;, {&quot;faciō&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		inf_act = {&quot;facere&quot;, &quot;fāre{L}&quot;, &quot;fēcisse&quot;},
		inf_pas = {&quot;fierī&quot;},
		part_pas = {&quot;faciendus&quot;, &quot;faciundus&quot;, &quot;factus&quot;},
		nucleopres = {&quot;fac&quot;},
		nucleoperf = {&quot;fēc&quot;},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {&quot;fax&quot;,&quot;faxs&quot;,&quot;facs&quot;},
		desactivar = {},
	    ind_pres_pas = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    ind_imp_pas = {{&quot;fīēbam&quot;},{&quot;fīēbās&quot;},{&quot;fīēbat&quot;},{&quot;fīēbāmus&quot;},{&quot;fīēbātis&quot;},{&quot;fīēbant&quot;}},
	    ind_fut_pas = {{&quot;fīam&quot;},{&quot;fīēs&quot;},{&quot;fīet&quot;},{&quot;fīēmus&quot;},{&quot;fīētis&quot;},{&quot;fīent&quot;}},
	    subj_pres_pas = {{&quot;fīam&quot;},{&quot;fīās&quot;},{&quot;fīat&quot;},{&quot;fīāmus&quot;},{&quot;fīātis&quot;},{&quot;fīant&quot;}},
	    subj_imp_pas = {{&quot;fierem&quot;},{&quot;fierēs&quot;},{&quot;fieret&quot;},{&quot;fierēmus&quot;},{&quot;fierētis&quot;},{&quot;fierent&quot;}},
	    imper_pres = {nil,{&quot;fac&quot;,&quot;face&quot;},nil,nil,nil,nil},
	    imper_pres_pas = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut_pas = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;ferō&quot;, {&quot;ferō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fer&quot;},
		nucleoperf = {&quot;tul&quot;, &quot;tetul{†}&quot;},
		nucleosup = {&quot;lāt&quot;},
		nucleosigm = {},
		desactivar = {},
		inf_act = {&quot;ferre&quot;, &quot;tulisse&quot;, &quot;tetulisse{†}&quot;},
		inf_pas = {&quot;ferrī&quot;},
		ind_pres = {nil,{&quot;fers&quot;},{&quot;fert&quot;},nil,{&quot;fertis&quot;}},
		ind_pres_pas = {nil,{&quot;ferris&quot;,&quot;ferre&quot;}},
		subj_imp = {{&quot;ferrem&quot;},{&quot;ferrēs&quot;},{&quot;ferret&quot;},{&quot;ferrēmus&quot;},{&quot;ferrētis&quot;},{&quot;ferrent&quot;}},
		subj_imp_pas = {{&quot;ferrer&quot;},{&quot;ferrēris&quot;,&quot;ferrēre&quot;},{&quot;ferrētur&quot;},{&quot;ferrēmur&quot;},{&quot;ferrēminī&quot;},{&quot;ferrentur&quot;}},
	    imper_pres = {nil,{&quot;fer&quot;},nil,nil,{&quot;ferte&quot;},nil},
	    imper_pres_pas = {nil,{&quot;ferre&quot;},nil,nil,nil,nil},
	    imper_fut = {nil,{&quot;fertō&quot;},{&quot;fertō&quot;},nil,{&quot;fertōte&quot;},{&quot;feruntō&quot;}},
	    imper_fut_pas = {nil,{&quot;fertor&quot;},{&quot;fertor&quot;},nil,nil,nil},
	}},
	{&quot;fīō&quot;, {&quot;fīō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;fī&quot;},
		nucleoperf = {},
		nucleosup = {&quot;fact&quot;},
		nucleosigm = {},
		semidep = true,
		desactivar = {},
		inf_act = {&quot;fierī&quot;},
		ind_pres = {{&quot;fīō&quot;},{&quot;fīs&quot;},{&quot;fit&quot;},{&quot;fīmus&quot;},{&quot;fītis&quot;},{&quot;fīunt&quot;}},
	    imper_pres = {nil,{&quot;fī&quot;},nil,nil,{&quot;fīte&quot;},nil},
	    imper_fut = {nil,{&quot;fītō&quot;},{&quot;fītō&quot;},nil,{&quot;fītōte&quot;},{&quot;fīuntō&quot;}},
	}},
	{&quot;inquam&quot;, {&quot;inquam&quot;}, {
		conj = &quot;3&quot;,
		I = true,
		nucleopres = {&quot;inqu&quot;},
		nucleoperf = {},
		nucleosup = {},
		nucleosigm = {},
		nopasivo = true,
		desactivar = {&quot;inf_act&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;},
		ind_pres = {{&quot;inquam&quot;}},
	}},
	{&quot;possum&quot;, {&quot;possum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;pot&quot;},
		nucleoperf = {&quot;pot&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;possō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;posse&quot;,&quot;potesse{†}&quot;},
		part_act = {&quot;potēns&quot;},
		ind_pres = {{&quot;possum&quot;},{&quot;potes&quot;},{&quot;potest&quot;},{&quot;possumus&quot;},{&quot;potestis&quot;},{&quot;possunt&quot;}},
		ind_imp = {{&quot;poteram&quot;},{&quot;poterās&quot;},{&quot;poterat&quot;},{&quot;poterāmus&quot;},{&quot;poterātis&quot;},{&quot;poterant&quot;}},
		ind_fut = {{&quot;poterō&quot;},{&quot;poteris&quot;,&quot;potere&quot;},{&quot;poterit&quot;},{&quot;poterimus&quot;},{&quot;poteritis&quot;},{&quot;poterunt&quot;}},
		ind_perf = {{&quot;potuī&quot;},{&quot;potuistī&quot;},{&quot;potuit&quot;},{&quot;potuimus&quot;},{&quot;potuistis&quot;},{&quot;potuērunt&quot;,&quot;potuēre&quot;}},
		ind_pluperf = {{&quot;potueram&quot;},{&quot;potuerās&quot;},{&quot;potuerat&quot;},{&quot;potuerāmus&quot;},{&quot;potuerātis&quot;},{&quot;potuerant&quot;}},
		ind_fut_perf = {{&quot;potuerō&quot;},{&quot;potueris&quot;},{&quot;potuerit&quot;},{&quot;potuerimus&quot;},{&quot;potueritis&quot;},{&quot;potuerunt&quot;}},
		subj_pres = {{&quot;possem&quot;},{&quot;possēs&quot;},{&quot;possēt&quot;},{&quot;possēmus&quot;},{&quot;possētis&quot;},{&quot;possent&quot;}},
		subj_imp = {{&quot;possim&quot;},{&quot;possīs&quot;},{&quot;possit&quot;},{&quot;possīmus&quot;},{&quot;possītis&quot;},{&quot;possint&quot;}},
		subj_perf = {{&quot;potuerim&quot;},{&quot;potuerīs&quot;},{&quot;potuerit&quot;},{&quot;potuerīmus&quot;},{&quot;potuerītis&quot;},{&quot;potuerint&quot;}},
		subj_pluperf = {{&quot;potuissem&quot;},{&quot;potuissēs&quot;},{&quot;potuisset&quot;},{&quot;potuissēmus&quot;},{&quot;potuissētis&quot;},{&quot;potuissent&quot;}},
	}},
	{&quot;sum&quot;, {&quot;sum&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;s&quot;},
		nucleoperf = {&quot;fu&quot;},
		nucleosup = {},
		nucleosigm = {},
		pres = &quot;sō&quot;,
		desactivar = {&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ger&quot;,&quot;sup&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,
					&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;esse&quot;},
		part_act = {&quot;futūrus&quot;},
		ind_pres = {{&quot;sum&quot;},{&quot;es&quot;},{&quot;est&quot;},{&quot;sumus&quot;},{&quot;estis&quot;},{&quot;sunt&quot;}},
		ind_imp = {{&quot;eram&quot;},{&quot;erās&quot;},{&quot;erat&quot;},{&quot;erāmus&quot;},{&quot;erātis&quot;},{&quot;erant&quot;}},
		ind_fut = {{&quot;erō&quot;},{&quot;eris&quot;,&quot;ere&quot;},{&quot;erit&quot;},{&quot;erimus&quot;},{&quot;eritis&quot;},{&quot;erunt&quot;}},
		subj_pres = {{&quot;sim&quot;,&quot;siem&quot;,&quot;fuam{†}&quot;},{&quot;sīs&quot;,&quot;siēs&quot;,&quot;fuās{†}&quot;},{&quot;sit&quot;,&quot;siet&quot;,&quot;fuat{†}&quot;},{&quot;sīmus&quot;,&quot;siēmus&quot;,&quot;fuāmus{†}&quot;},{&quot;sītis&quot;,&quot;siētis&quot;,&quot;fuātis{†}&quot;},{&quot;sint&quot;,&quot;sient&quot;,&quot;fuant{†}&quot;}},
		subj_imp = {{&quot;essem&quot;,&quot;forem&quot;},{&quot;essēs&quot;,&quot;forēs&quot;},{&quot;esset&quot;,&quot;foret&quot;},{&quot;essēmus&quot;,&quot;forēmus&quot;},{&quot;essētis&quot;,&quot;forētis&quot;},{&quot;essent&quot;,&quot;forent&quot;}},
	    imper_pres = {nil,{&quot;es&quot;},nil,nil,{&quot;este&quot;},nil},
	    imper_fut = {nil,{&quot;estō&quot;},{&quot;estō&quot;},nil,{&quot;estōte&quot;},nil},
	}},
	{&quot;mālō&quot;, {&quot;mālō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;māl&quot;},
		nucleoperf = {&quot;mālu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;mālle&quot;,&quot;māluisse&quot;},
	    ind_pres = {{&quot;mālō&quot;},{&quot;māvīs&quot;},{&quot;māvult&quot;},{&quot;mālumus&quot;},{&quot;māvultis&quot;},{&quot;mālunt&quot;}},
	    subj_pres = {{&quot;mālim&quot;},{&quot;mālīs&quot;},{&quot;mālit&quot;},{&quot;mālīmus&quot;},{&quot;mālītis&quot;},{&quot;mālint&quot;}},
        subj_imp = {{&quot;māllem&quot;},{&quot;māllēs&quot;},{&quot;māllet&quot;},{&quot;māllēmus&quot;},{&quot;māllētis&quot;},{&quot;māllent&quot;}},
	}},
	{&quot;nōlō&quot;, {&quot;nōlō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;nōl&quot;},
		nucleoperf = {&quot;nōlu&quot;},
		nucleosup = {},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;nōlle&quot;,&quot;nōluisse&quot;},
	    ind_pres = {{&quot;nōlō&quot;},{&quot;nōn vīs&quot;,&quot;nevīs{†}&quot;},{&quot;nōn vult&quot;,&quot;nōn volt&quot;,&quot;nevolt{†}&quot;},{&quot;nōlumus&quot;},{&quot;nōn vultis&quot;,&quot;nōn voltis&quot;,&quot;nōltis{†}&quot;},{&quot;nōlunt&quot;}},
	    subj_pres = {{&quot;nōlim&quot;},{&quot;nōlīs&quot;},{&quot;nōlit&quot;},{&quot;nōlīmus&quot;},{&quot;nōlītis&quot;},{&quot;nōlint&quot;}},
        subj_imp = {{&quot;nōllem&quot;},{&quot;nōllēs&quot;},{&quot;nōllet&quot;},{&quot;nōllēmus&quot;},{&quot;nōllētis&quot;},{&quot;nōllent&quot;}},
	}},
	{&quot;volō&quot;, {&quot;volō&quot;}, {
		conj = &quot;3&quot;,
		nucleopres = {&quot;vol&quot;},
		nucleoperf = {&quot;volu&quot;},
		nucleosup = {&quot;volit&quot;},
		nucleosigm = {},
		desactivar = {&quot;sup&quot;,&quot;ger&quot;,&quot;inf_pas&quot;,&quot;part_pas&quot;,&quot;ind_pres_pas&quot;,&quot;ind_imp_pas&quot;,&quot;ind_fut_pas&quot;,&quot;subj_pres_pas&quot;,&quot;subj_imp_pas&quot;,
					&quot;imper_pres&quot;,&quot;imper_fut&quot;,&quot;imper_pres_pas&quot;,&quot;imper_fut_pas&quot;},
		inf_act = {&quot;velle&quot;,&quot;voluisse&quot;},
	    ind_pres = {{&quot;volō&quot;},{&quot;vīs&quot;},{&quot;vult&quot;,&quot;volt{†}&quot;},{&quot;volumus&quot;},{&quot;vultis&quot;,&quot;voltis{†}&quot;},{&quot;volunt&quot;}},
	    subj_pres = {{&quot;velim&quot;,&quot;volim{†}&quot;},{&quot;velīs&quot;,&quot;volīs{†}&quot;},{&quot;velit&quot;,&quot;volit{†}&quot;},{&quot;velīmus&quot;,&quot;volīmus{†}&quot;},{&quot;velītis&quot;,&quot;volītis{†}&quot;},{&quot;velint&quot;,&quot;volint{†}&quot;}},
        subj_imp = {{&quot;vellem&quot;},{&quot;vellēs&quot;},{&quot;vellet&quot;},{&quot;vellēmus&quot;},{&quot;vellētis&quot;},{&quot;vellent&quot;}},
	}},
}

local function combinar_prefijo_nucleosufijo(prefijo, nucleosufijo)
    return prefijo..nucleosufijo
end

local function combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)
	if agregar_i and (not find(sufijo, &quot;^[iī]&quot;)) and (sufijo ~= &quot;e&quot;) and (not find(sufijo, &quot;^er&quot;)) then
		return nucleo..&quot;~i~&quot;..sufijo
	end
    return nucleo..sufijo
end

local function agregar_forma(conjugado, conjinfo, forma)
	conjinfo[forma] = conjinfo[forma] or {}
    local sufijos_ = sufijos[conjinfo.conj][forma]
    local nucleos
    local prefijo

    if forma == &quot;sup&quot; then
        nucleos = conjinfo.nucleosup
        prefijo = conjinfo.prefijosup or conjinfo.prefijo
    elseif find(forma, &quot;sig&quot;) then
        nucleos = conjinfo.nucleosigm
        prefijo = conjinfo.prefijosigm or conjinfo.prefijo
    elseif find(forma, &quot;perf&quot;) then
        nucleos = conjinfo.nucleoperf
        prefijo = conjinfo.prefijoperf or conjinfo.prefijo
    else
        nucleos = conjinfo.nucleopres
        prefijo = conjinfo.prefijo
    end

	if formas_no_personales[forma] then
        if conjinfo[forma][1] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma]) do
	                insert_if_not(conjugado[forma], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
			for _, sufijo in ipairs(sufijos_) do
				local nucleos_ = nucleos
				if forma == &quot;inf_act&quot; and sufijo == &quot;isse&quot; then
					nucleos_ = conjinfo.nucleoperf
				elseif forma == &quot;part_act&quot; and sufijo == &quot;ūrus&quot; then
					nucleos_ = conjinfo.nucleosup
				elseif forma == &quot;part_pas&quot; and sufijo == &quot;us&quot; then
					nucleos_ = conjinfo.nucleosup
				end
				local agregar_i = conjinfo.I and nucleos_ == conjinfo.nucleopres
				for _,nucleo in ipairs(nucleos_) do
					insert_if_not(conjugado[forma], combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(nucleo, sufijo, agregar_i)))
				end
			end
        end
        return
    end

    for i = EGO, EI do
		local p = tostr[i]
        if conjinfo[forma][i] then
        	if nucleos and #nucleos &gt; 0 then
	            for _, fm in ipairs(conjinfo[forma][i]) do
	            	insert_if_not(conjugado[forma..p], &quot;#&quot;..combinar_prefijo_nucleosufijo(prefijo, fm)..&quot;#&quot;)
	            end
	        end
        else
            local k = i
            while sufijos_[k] do
            	local agregar_i = conjinfo.I and nucleos == conjinfo.nucleopres
				for j, n in ipairs(nucleos) do
					local x = combinar_prefijo_nucleosufijo(prefijo, combinar_nucleo_sufijo(n, sufijos_[k], agregar_i))
					if conjinfo.always_sync_perf and (forma == &quot;ind_perf&quot; or forma == &quot;ind_pluperf&quot; or forma == &quot;ind_fut_perf&quot; or forma == &quot;subj_perf&quot; or forma == &quot;subj_pluperf&quot;) then
						x = x:gsub(&quot;īvī&quot;, &quot;iī&quot;)
						x = x:gsub(&quot;īvi&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īve&quot;, &quot;ī&quot;)
						x = x:gsub(&quot;īvē&quot;, &quot;ē&quot;)
					end
					insert_if_not(conjugado[forma..p], x)
				end
				k = k + 6
            end
        end
    end
end

local function get_subtype_by_ending(pres, conjinfo, specs)
	for _, spec in ipairs(specs) do
        local base = extract_base(pres, spec[1])
        if base then
            for _,s in ipairs(spec[2]) do
                if conjinfo[s] == nil then
                    conjinfo[s] = true
                end
            end
            return base
        end
	end
    error(&quot;Unrecognized ending for conjugation &quot; .. conjinfo[&quot;conj&quot;])
end

local function detect_v_type_and_subtypes(conjinfo)
    local pres = conjinfo[&quot;v&quot;]
    local conj_arg = conjinfo[&quot;conj&quot;]

	pres = toNFC(pres)

	local base_conj_arg, auto_perf_supine = conj_arg:match(&quot;^([124]/?4?)(%+%+?)$&quot;)
	if base_conj_arg then
		if auto_perf_supine == &quot;++&quot; and base_conj_arg ~= &quot;4&quot; then
			error(&quot;Conjugation types 1++ and 2++ not allowed&quot;)
		end
		conj_arg = base_conj_arg
	end
	
	conjinfo.conj = conj_arg

	if conj_arg == &quot;1&quot; then
		local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;ō&quot;, {}},
			{&quot;or&quot;, {&quot;dep&quot;}},
			{&quot;at&quot;, {&quot;impers&quot;}},
			{&quot;ātur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;āv&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;āt&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;āss&quot;
            end
        end
	elseif conj_arg == &quot;2&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;eō&quot;, {}},
			{&quot;eor&quot;, {&quot;dep&quot;}},
			{&quot;et&quot;, {&quot;impers&quot;}},
			{&quot;ētur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
			{&quot;it&quot;, {&quot;nopres&quot;, &quot;impers&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if auto_perf_supine then
            if not conjinfo[&quot;nucleoperf&quot;][1] then
                conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;u&quot;
            end
            if not conjinfo[&quot;nucleosup&quot;][1] then
                conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;it&quot;
            end
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3&quot; then
        local base
        if conjinfo.I == false then -- si explícitamente se indicó que no es del tipo -io, hay que excluir sufijos
        	base = get_subtype_by_ending(pres, conjinfo, {
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})
        else
        	base = get_subtype_by_ending(pres, conjinfo, {
				{&quot;iō&quot;, {&quot;I&quot;}},
				{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
	            {&quot;ō&quot;, {}},
	            {&quot;or&quot;, {&quot;dep&quot;}},
	            {&quot;it&quot;, {&quot;impers&quot;}},
	            {&quot;itur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
	            {&quot;ī&quot;, {&quot;nopres&quot;}},
			})   
        end
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        assert(conjinfo[&quot;nucleoperf&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        assert(conjinfo[&quot;nucleosup&quot;][1], &quot;especifique todos los núcleos para verbos de la tercera conjugación&quot;)
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;ēss&quot;
            end
        end
	elseif conj_arg == &quot;3/4&quot; then
        local base
    	base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {&quot;I&quot;}},
			{&quot;ior&quot;, {&quot;dep&quot;, &quot;I&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;4&quot; then
        local base = get_subtype_by_ending(pres, conjinfo, {
			{&quot;iō&quot;, {}},
			{&quot;ior&quot;, {&quot;dep&quot;}},
			{&quot;it&quot;, {&quot;impers&quot;}},
			{&quot;ītur&quot;, {&quot;dep&quot;, &quot;impers&quot;}},
			{&quot;ī&quot;, {&quot;nopres&quot;}},
		})
        if not conjinfo[&quot;nucleopres&quot;][1] then
            conjinfo[&quot;nucleopres&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and conjinfo[&quot;nopres&quot;] then
            conjinfo[&quot;nucleoperf&quot;][1] = base
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;++&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
            conjinfo[&quot;nucleoperf&quot;][2] = base .. &quot;i&quot;
        end
        if not conjinfo[&quot;nucleoperf&quot;][1] and auto_perf_supine == &quot;+&quot; then
            conjinfo[&quot;nucleoperf&quot;][1] = base .. &quot;īv&quot;
        end
        if not conjinfo[&quot;nucleosup&quot;][1] and auto_perf_supine then
            conjinfo[&quot;nucleosup&quot;][1] = base .. &quot;īt&quot;
        end
        if conjinfo.sigm then
            if not conjinfo[&quot;nucleosigm&quot;][1] then
                conjinfo[&quot;nucleosigm&quot;][1] = base .. &quot;īss&quot;
            end
        end
	elseif conj_arg == &quot;irreg&quot; then
		for _,p in ipairs(verbos_irregulares) do
	        for _,rx in ipairs(p[2]) do
	            local pref, verb = match(conjinfo.v, &quot;^(.*)(&quot;..rx..&quot;)$&quot;)
	            if verb then
                    conjinfo.v = verb
                    conjinfo.prefijo = pref
                    if conjinfo.nucleoperf[1] and conjinfo.nucleoperf[1] ~= &quot;-&quot; then -- [[ecfero]]
                    	conjinfo.prefijoperf = conjinfo.nucleoperf[1]
                    	conjinfo.nucleoperf = {}
                    end
                    if conjinfo.nucleosup[1] and conjinfo.nucleosup[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosup = conjinfo.nucleosup[1]
                    	conjinfo.nucleosup = {}
                    end
                    if conjinfo.nucleosigm[1] and conjinfo.nucleosigm[1] ~= &quot;-&quot; then
                    	conjinfo.prefijosigm = conjinfo.nucleosigm[1]
                    	conjinfo.nucleosigm = {}
                    end
					conjinfo.irreg = true
					conjinfo.conj = p[3].conj
	            	for k,val in pairs(p[3]) do
	            		if not conjinfo[k] or (type(conjinfo[k]) == &quot;table&quot; and not conjinfo[k][1]) then
	            			conjinfo[k] = deep_copy(val)
	            		end
	            	end
	                return conjinfo
	            end
	        end
	    end
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	else
		error(&quot;Unrecognized conjugation '&quot; .. conj_arg .. &quot;'&quot;)
	end
	
	return conjinfo
end

function export.v(frame)
    local title_ = mw.title.getCurrentTitle()
	local tit = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [1] = {alias_de = &quot;conj&quot;},
        [2] = {alias_de = &quot;pres&quot;},
        [3] = {alias_de = &quot;nucleoperf&quot;},
        [4] = {alias_de = &quot;nucleosup&quot;},
        [5] = {alias_de = &quot;nucleosigm&quot;},
        [&quot;impers&quot;] = {}, -- pas para formas pasivas solamente
        [&quot;impersonal&quot;] = {alias_de = &quot;impers&quot;},
        [&quot;dep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;depon&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;deponente&quot;] = {alias_de=&quot;dep&quot;},
        [&quot;semidep&quot;] = {tipo=&quot;bool&quot;},
        [&quot;semidepon&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;semideponente&quot;] = {alias_de=&quot;semidep&quot;},
        [&quot;sigm&quot;] = {tipo=&quot;bool&quot;},
        [&quot;nopasivo&quot;] = {tipo=&quot;bool&quot;},
        [&quot;soloperf&quot;] = {tipo=&quot;bool&quot;},
        [&quot;I&quot;] = {tipo=&quot;bool&quot;},
        [&quot;p3inf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;poet_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- sin uso
        [&quot;always_sync_perf&quot;] = {tipo=&quot;bool&quot;}, -- solo en [[saevio]]
        [&quot;conj&quot;] = {requerido=true},
        [&quot;pres&quot;] = {requerido=true},
        [&quot;nucleopres&quot;] = {lista = true},
        [&quot;nucleoperf&quot;] = {lista = true},
        [&quot;nucleosup&quot;] = {lista = true},
        [&quot;nucleosigm&quot;] = {lista = true},
        [&quot;núcleopres&quot;] = {alias_de=&quot;nucleopres&quot;},
        [&quot;núcleoperf&quot;] = {alias_de=&quot;nucleoperf&quot;},
        [&quot;núcleosup&quot;] = {alias_de=&quot;nucleosup&quot;},
        [&quot;paradigma&quot;] = {lista = true},
        [&quot;desactivarnucleos&quot;] = {tipo=&quot;bool&quot;, por_defecto=true}, -- para [[-o]]
        [&quot;nota&quot;] = {},
    }

    local conjugado = {}
    for forma,_ in pairs(formas_no_personales) do
        params[forma] = {tipo=parsear_arreglo, por_defecto={}}
        conjugado[forma] = {}
    end
    for forma,_ in pairs(formas_personales) do
        for i,s in ipairs(tostr) do
            params[forma..s] = {tipo=parsear_arreglo, por_defecto={}}
            conjugado[forma..s] = {}
            if i == 1 then
                params[forma] = {alias_de=forma..s}
            end
        end
    end

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)

    assert(not find(tit, &quot; &quot;), &quot;locuciones no soportadas aún&quot;)

    assert(not (args[&quot;dep&quot;] and args[&quot;semidep&quot;]), &quot;un verbo no puede ser deponente y semideponente a la vez&quot;)

    local conjinfo = {
        conj = args.conj,
        prefijo=&quot;&quot;,
        v=args.pres,
        desactivar = {},
        dep=args.dep,
        semidep=args.semidep,
        sigm=args.sigm,
        impers=args.impers,
        nopasivo=args.nopasivo,
        soloperf=args.soloperf,
        I=args.I,
        p3inf=args.p3inf,
        poet_sync_perf=args.poet_sync_perf, -- sin uso
        always_sync_perf=args.always_sync_perf,
        nucleopres = deep_copy(args.nucleopres),
        nucleoperf = deep_copy(args.nucleoperf),
        nucleosup = deep_copy(args.nucleosup),
        nucleosigm = deep_copy(args.nucleosigm)
    }

    conjinfo = detect_v_type_and_subtypes(conjinfo)
    
	if conjinfo.impers == true then
		conjinfo.impers = &quot;3&quot;
	end
	-- no puede ir conjinfo acá abajo porque si es un sufijo va a quedar &quot;-&quot; en la raíz, lo que anularía todas las formas conjugadas, tiene que venir directo de args
	if args.desactivarnucleos then
		if args.nucleopres[1] == &quot;-&quot; then
			conjinfo.nucleopres = {}
		end
		if args.nucleoperf[1] == &quot;-&quot; then
			conjinfo.nucleoperf = {}
		end
		if args.nucleosup[1] == &quot;-&quot; then
			conjinfo.nucleosup = {}
		end
		if args.nucleosigm[1] == &quot;-&quot; then
			conjinfo.nucleosigm = {}
		end
	end

    local es_irregular = conjinfo.irreg

	for _,d in ipairs(conjinfo.desactivar) do
		if formas_no_personales[d] then
			args[d] = {&quot;no&quot;}
		else
			args[d..&quot;2&quot;] = {&quot;no&quot;}
		end
	end

    for forma,_ in pairs(formas) do
        agregar_forma(conjugado, conjinfo, forma)
    end

    local resultante = sobreescribir_formas(conjugado, args)
    local mostrar_fut_sig = #resultante[&quot;ind_fut_sig1&quot;] &gt; 0
    local mostrar_aor_sig = #resultante[&quot;subj_aor_sig1&quot;] &gt; 0

    local defectivo = comprobar_defectivo(resultante, {&quot;^imper&quot;, &quot;_sig&quot;}, tostr)
    local defect2
    resultante, defect2 = desactivar_formas(resultante,
		function (form)
			return (conjinfo.nopasivo and form:find(&quot;_pas&quot;)) or (conjinfo.soloperf and not form:find(&quot;perf&quot;)) or (conjinfo.impers == &quot;pas&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas3&quot; and form:find(&quot;_pas[^3]&quot;)) or (conjinfo.impers == &quot;pas36&quot; and form:find(&quot;_pas[^36]&quot;))
		end
	)
    if defect2 then
        defectivo = true
    end
    
    -- por ahora innecesario
    -- local part_no_adj = {}
    -- for _,e in ipairs(resultante.part) do
    --	if (find(e, 'PART') or not find(e, 'ADJ')) and not find(e, &quot;†&quot;) then
    --		insert(part_no_adj, gsub1(e, '%b{}', ''))
    --	end
    -- end

    local tit_pres = f(resultante[&quot;ind_pres1&quot;][1] or &quot;―&quot;)
    local tit_inf = f(resultante[&quot;inf_act&quot;][1] or &quot;―&quot;)
    local tit_perf = f(resultante[&quot;ind_perf1&quot;][1] or &quot;―&quot;)
    local tit_sup = f(resultante[&quot;sup&quot;][1] or &quot;―&quot;)

    resultante = agregar_enlaces(resultante, tit, normalizar_enlace)

    local es_impersonal = conjinfo.impers

    resultante = formatear_formas(resultante, function (x)
        return obtener_pronombre(x, es_impersonal)
    end)

	local impers = conjinfo.impers

    local cs, cs1, cs2, fila_pronombres_ind, fila_pronombres_subj, fila_pronombres_imper, mostrar_imper
    if impers == &quot;3&quot; then
        fila_pronombres_ind = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IND, header=true, class=&quot;pc&quot;}
        fila_pronombres_subj = {&quot;&quot;, &quot;(quod id)&quot;, color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
        fila_pronombres_imper = {&quot;&quot;, &quot;(id)&quot;, color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 2
    elseif impers == &quot;36&quot; then
        error(&quot;no soportado actualmente&quot;)
    	cs = 3
    else
    	fila_pronombres_ind = {&quot;&quot;, PRONOMBRES[1], PRONOMBRES[2], PRONOMBRES[3], PRONOMBRES[4], PRONOMBRES[5], PRONOMBRES[6], color=COLOR_IND, header=true, class=&quot;pc&quot;}
    	fila_pronombres_subj = {&quot;&quot;, PRONOMBRES_SUBJ[1], PRONOMBRES_SUBJ[2], PRONOMBRES_SUBJ[3], PRONOMBRES_SUBJ[4], PRONOMBRES_SUBJ[5], PRONOMBRES_SUBJ[6], color=COLOR_SUBJ, header=true, class=&quot;pc&quot;}
    	fila_pronombres_imper = {&quot;&quot;, PRONOMBRES_IMP[1], PRONOMBRES_IMP[2], PRONOMBRES_IMP[3], PRONOMBRES_IMP[4], PRONOMBRES_IMP[5], PRONOMBRES_IMP[6], color=COLOR_IMPER, header=true, class=&quot;pc&quot;}
    	cs = 7
    	mostrar_imper = true
    end

    cs1 = cs -- math.floor(cs / 2)
    -- cs2 = cs - cs1

    local t = {}
    insert(t, {{&quot;Formas no personales (verboides)&quot;, colspan=cs}, color=COLOR_H, header=true})

	if impers == &quot;3&quot; then
	    insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
	    insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
	    insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
	    insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
	    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
	    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
	else
        resultante.inf_act.colspan = cs1-1
        resultante.inf_pas.colspan = cs1-1
        resultante.part_act.colspan = cs1-1
        resultante.part_pas.colspan = cs1-1
        resultante.ger.colspan = cs1-1
        resultante.sup.colspan = cs1-1

		if conjinfo.dep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		elseif conjinfo.semidep then
			insert(t, {{&quot;Infinitivo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Participio&quot;, header=true, color=COLOR_NP}, resultante.part_act})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		else
			insert(t, {{&quot;Infinitivo activo&quot;, header=true, color=COLOR_NP}, resultante.inf_act})
			insert(t, {{&quot;Infinitivo pasivo&quot;, header=true, color=COLOR_NP}, resultante.inf_pas})
			insert(t, {{&quot;Participio activo&quot;, header=true, color=COLOR_NP}, resultante.part_act})
			insert(t, {{&quot;Participio pasivo&quot;, header=true, color=COLOR_NP}, resultante.part_pas})
		    insert(t, {{&quot;Gerundio&quot;, header=true, color=COLOR_NP}, resultante.ger})
		    insert(t, {{&quot;Supino&quot;, header=true, color=COLOR_NP}, resultante.sup})
		end
	end

    local function ic(tiempo)
        if impers == &quot;3&quot; then
            return resultante[tiempo..&quot;3&quot;]
        elseif impers == &quot;36&quot; then
            return resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;6&quot;]
        end
        return resultante[tiempo..&quot;1&quot;], resultante[tiempo..&quot;2&quot;], resultante[tiempo..&quot;3&quot;], resultante[tiempo..&quot;4&quot;], resultante[tiempo..&quot;5&quot;], resultante[tiempo..&quot;6&quot;]
    end

    insert(t, {{&quot;Formas personales&quot;, colspan=cs}, color=COLOR_H, header=true})
    insert(t, {{&quot;Modo indicativo&quot;, colspan=cs}, color=COLOR_IND, header=true})
    insert(t, fila_pronombres_ind)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp&quot;)})
        insert(t, {{&quot;Futuro&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pluperf&quot;)})
        insert(t, {{&quot;Futuro perfecto&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_perf&quot;)})
	    if mostrar_fut_sig then
	        insert(t, {{f(&quot;Futuro sigmático{†}&quot;), color=COLOR_IND, header=true}, ic(&quot;ind_fut_sig&quot;)})
	    end
        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_imp_pas&quot;)})
        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IND, header=true}, ic(&quot;ind_fut_pas&quot;)})
	end

    insert(t, {{&quot;Modo subjuntivo&quot;, colspan=cs}, color=COLOR_SUBJ, header=true})
    insert(t, fila_pronombres_subj)

	if conjinfo.dep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	elseif conjinfo.semidep then
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	else
        insert(t, {{&quot;Presente&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres&quot;)})
        insert(t, {{&quot;Pretérito imperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp&quot;)})
        insert(t, {{&quot;Pretérito perfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_perf&quot;)})
        insert(t, {{&quot;Pretérito pluscuamperfecto&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pluperf&quot;)})
	    if mostrar_aor_sig then
	        insert(t, {{f(&quot;Aorista sigmático{†}&quot;), color=COLOR_SUBJ, header=true}, ic(&quot;subj_aor_sig&quot;)})
	    end
	    insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_pres_pas&quot;)})
        insert(t, {{&quot;Pretérito imperfecto pasivo&quot;, color=COLOR_SUBJ, header=true}, ic(&quot;subj_imp_pas&quot;)})
	end

    insert(t, {{&quot;Modo imperativo&quot;, colspan=cs}, color=COLOR_IMPER, header=true})
    insert(t, fila_pronombres_imper)

    if mostrar_imper then
		if conjinfo.dep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		elseif conjinfo.semidep then
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
		else
	    	insert(t, {{&quot;Presente&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres&quot;)})
	    	insert(t, {{&quot;Futuro&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut&quot;)})
	        insert(t, {{&quot;Presente pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_pres_pas&quot;)})
	        insert(t, {{&quot;Futuro pasivo&quot;, color=COLOR_IMPER, header=true}, ic(&quot;imper_fut_pas&quot;)})
		end
    else
    	insert(t, {{&quot;Como verbo &quot;..(impers == &quot;3&quot; and &quot;impersonal&quot; or &quot;terciopersonal&quot;)..&quot;, ''&quot;..tit..&quot;'' CARECE de imperativo&quot;, color=COLOR_IMPER, header=true, colspan=cs}})
    end

	insert(t, {{f(&quot;Leyenda: † arcaico, x no normativo, ~■~ cambio ortográfico, #■# irregularidad&quot;), colspan=cs}})
	
	args[&quot;nota&quot;] = args[&quot;nota&quot;] or &quot;&quot;
	
	if  conjinfo.impers == &quot;utc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;umc3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como impersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular.&quot;
	end
	
	if conjinfo.impers == &quot;utc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa también como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end

	if conjinfo.impers == &quot;umc36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: se usa más como terciopersonal, en cuyo caso solo son válidas las conjugaciones de la tercera persona singular y plural.&quot;
	end
	
	if conjinfo.impers == &quot;pas&quot; or conjinfo.imeprs == &quot;pas3&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: impersonal para las formas pasivas&quot;
	end
	
	if conjinfo.impers == &quot;pas36&quot; then
		args[&quot;nota&quot;] = args[&quot;nota&quot;]..&quot; NOTA: formas pasivas terciopersonales (solamente tercera persona singular y plural)&quot;
	end
	
	if conjinfo.soloperf then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas del perfecto y pluscuamperfecto con valor de presente, imperfecto o futuro&quot;
	end
	
	if conjinfo.nopasivo then
		args[&quot;nota&quot;] = args[&quot;nota&quot;].. &quot; NOTA: solo se emplean las formas activas&quot;
	end
	
	insert(t, {{args[&quot;nota&quot;] and args[&quot;nota&quot;] or &quot;&quot;, colspan=cs}})
	
	local cats = {}
    local subtits = {}

    local conj_str
	
	if conjinfo.conj == &quot;1&quot; then
        conj_str = &quot;primera conjugación&quot;
	elseif conjinfo.conj == &quot;2&quot; then
        conj_str = &quot;segunda conjugación&quot;
	elseif conjinfo.conj == &quot;3&quot; then
        conj_str = &quot;tercera conjugación&quot;
    elseif conjinfo.conj == &quot;3/4&quot; then
        conj_str = &quot;tercera/cuarta conjugación&quot;
	else
        conj_str = &quot;cuarta conjugación&quot;
	end

	insert(cats, &quot;LA:Verbos de la &quot;..conj_str)
    insert(subtits, conj_str)
	
	impers = impers or &quot;&quot;
	
	if impers == &quot;3&quot; or find(impers, &quot;^u[tm]c3$&quot;) then
        insert(subtits, &quot;impersonal&quot;)
		insert(cats, &quot;LA:Verbos impersonales&quot;)
	end
	
	if defectivo then
		insert(subtits, &quot;defectivo&quot;)
		insert(cats, &quot;LA:Verbos defectivos&quot;)
	end

    if conjinfo.dep then
        insert(subtits, &quot;deponente&quot;)
		insert(cats, &quot;LA:Verbos deponentes&quot;)
    end
    if conjinfo.semidep then
        insert(subtits, &quot;semideponente&quot;)
		insert(cats, &quot;LA:Verbos semideponentes&quot;)
    end

	if es_irregular then
        insert(subtits, &quot;irregular&quot;)
		insert(cats, &quot;LA:Verbos irregulares&quot;)
	else
        insert(subtits, &quot;regular&quot;)
		insert(cats, &quot;LA:Verbos regulares&quot;)
	end

    return renderizar_tabla(
    	frame,
        &quot;'''Conjugación de ''&quot;..tit_pres..&quot;, &quot;..tit_inf..&quot;, &quot;..tit_perf..&quot;, &quot;..tit_sup..&quot;'''''&amp;emsp;&amp;emsp;(&quot;..concat(subtits, &quot;, &quot;)..&quot;)&quot;,
        t,
        ns == 0 and cats or {})
end

function export.adv(frame)
	local title_ = mw.title.getCurrentTitle()
	local title = title_.fullText
	local ns = title_.namespace
	
	if ns ~= 0 then
		return &quot;Use esta plantilla en el espacio principal.&quot;
	end

    local params = {
        [&quot;n&quot;] = {},
        [&quot;nota&quot;] = {alias_de = &quot;n&quot;},
        [&quot;comp&quot;] = {lista = true},
        [&quot;comparativo&quot;] = {alias_de = &quot;comp&quot;},
        [&quot;compnota&quot;] = {lista = true},
        [&quot;sup&quot;] = {lista = true},
        [&quot;superlativo&quot;] = {alias_de = &quot;sup&quot;},
        [&quot;supnota&quot;] = {lista = true},

    }

    local parent_frame = frame:getParent()
	local args = require(&quot;Módulo:parámetros&quot;).obtener_parametros(parent_frame.args, params)
	
	local head = args[1]
	local modo = args[2]
	
	local enc
	local cats = {}
	local cat_pref = &quot;LA:Adverbios&quot;
	
	if modo == &quot;-&quot; then
        enc = &quot;sin comparativo ni superlativo&quot;
        insert(cats, cat_pref..&quot; incomparables&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
	
	local flex = {comp={},sup={}}
	
	local stem
	for _, suff in ipairs{&quot;iter&quot;, &quot;nter&quot;, &quot;ter&quot;, &quot;er&quot;, &quot;iē&quot;, &quot;ē&quot;, &quot;rā&quot;, &quot;im&quot;, &quot;ō&quot;} do
		stem = match(head, &quot;^(.*)&quot; .. suff .. &quot;$&quot;)
		if stem ~= nil then
			local comp_suff, sup_suff = &quot;ius&quot;, &quot;issimē&quot;
			if suff == &quot;nter&quot; then
				stem = stem .. &quot;nt&quot;
			end
			if suff == &quot;rā&quot; then
				comp_suff = &quot;er&quot; .. comp_suff
				sup_suff = &quot;imē&quot;
			end
			insert(flex.comp, stem .. comp_suff)
			insert(flex.sup, stem .. sup_suff)
			break
		end
	end
	if not stem and not args.comp[1] and not args.sup[1] then
		error(&quot;Unrecognized adverb type, recognized types are “-ē”, “-er”, “-ter”, “-iter”, “-im”, or “-ō”, “-ra” or specify irregular forms or “-” if incomparable.&quot;)
	end
	
	local formas, irr = sobreescribir_formas(flex, args)
	
	if args[&quot;comp&quot;][1] == &quot;no&quot; then
        enc = &quot;sin comparativo&quot;
        insert(cats, cat_pref..&quot; sin comparativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    elseif args[&quot;sup&quot;][1] == &quot;no&quot; then
        enc = &quot;sin superlativo&quot;
        insert(cats, cat_pref..&quot; sin superlativo&quot;)
        return renderizar_encabezado(
            frame,
            head, 
            enc,
            args[&quot;n&quot;],
            {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]}},
            ns == 0 and cats or {},
            normalizar_enlace
	    )
    end
    if irr then
        enc = f(&quot;#irregular#&quot;)
        insert(cats, cat_pref..&quot; irregulares&quot;)
    end
    return renderizar_encabezado(
        frame,
        head, 
        enc,
        args[&quot;n&quot;],
        {{&quot;comparativo&quot;, formas.comp, args[&quot;compnota&quot;]},
        {&quot;superlativo&quot;, formas.sup, args[&quot;supnota&quot;]}},
        ns == 0 and cats or {},
        normalizar_enlace
    )
end

return export</text>
      <sha1>kfipttp38zpka9y6njlg8cnny0r05e4</sha1>
    </revision>
  </page>
  <page>
    <title>caballo de Troya</title>
    <ns>0</ns>
    <id>1061252</id>
    <revision>
      <id>6123453</id>
      <parentid>5920853</parentid>
      <timestamp>2026-07-24T17:52:39Z</timestamp>
      <contributor>
        <username>~2026-34597-22</username>
        <id>183061</id>
      </contributor>
      <origin>6123453</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1065" sha1="nm680l3cgfvp546gv233d2sp2isy21w" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|metafórico}}. En referencia al [[w:caballo de Troya|caballo gigante de madera]] en donde se escondieron los aqueos para infiltrarse en la ciudad enemiga en la Guerra de Troya. 

==== {{locución|es|sustantivo|masculino}} ====
{{es.sust|cop=n}}
;1: {{plm|estrategia}}, [[ardid]] o [[artimaña]] para [[infiltrar]]se en algo sin que se note.
;2 {{csem|informática}}: Programa informático malicioso, que el usuario incauto introduce en su ordenador, creyéndolo un juego inofensivo o un programa de alguna utilidad.
{{sinónimo|troyano}}

==== Véase también ====
{{w}} 

==== Traducciones ====
{{trad-arriba}}
&lt;!-- formato: {{t|idioma|t1=(traducción1)|t2=(traducción2|...(hay más opciones))}} p. ej. {{t|fr|t1=chose|a1=1|g1=f}} (ver más ejemplos en Plantilla:t/doc) --&gt;
{{trad-abajo}}

&lt;!-- si va a insertar una nueva sección de etimología o de idioma, por favor, hágalo ↑  arriba ↑  de esta línea. NO BORRE LO QUE ESTÁ DEBAJO, GRACIAS. --&gt;
== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>nm680l3cgfvp546gv233d2sp2isy21w</sha1>
    </revision>
    <revision>
      <id>6123454</id>
      <parentid>6123453</parentid>
      <timestamp>2026-07-24T17:57:24Z</timestamp>
      <contributor>
        <username>~2026-34597-22</username>
        <id>183061</id>
      </contributor>
      <comment>imagen</comment>
      <origin>6123454</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="1239" sha1="aliy0oyh395kst3gfjrtybz9x5uchd1" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
[[File:La Destruction de Troye la Grant, translatée de latin en françois et mise par personnages. Cy sensuit lystoire de la des, LDUT397(1).jpg|thumb|el caballo de Troya]]
{{etimología|metafórico}}. En referencia al [[w:caballo de Troya|caballo gigante de madera]] en donde se escondieron los aqueos para infiltrarse en la ciudad enemiga en la Guerra de Troya. 

==== {{locución|es|sustantivo|masculino}} ====
{{es.sust|cop=n}}
;1: {{plm|estrategia}}, [[ardid]] o [[artimaña]] para [[infiltrar]]se en algo sin que se note.
;2 {{csem|informática}}: Programa informático malicioso, que el usuario incauto introduce en su ordenador, creyéndolo un juego inofensivo o un programa de alguna utilidad.
{{sinónimo|troyano}}

==== Véase también ====
{{w}} 

==== Traducciones ====
{{trad-arriba}}
&lt;!-- formato: {{t|idioma|t1=(traducción1)|t2=(traducción2|...(hay más opciones))}} p. ej. {{t|fr|t1=chose|a1=1|g1=f}} (ver más ejemplos en Plantilla:t/doc) --&gt;
{{trad-abajo}}

&lt;!-- si va a insertar una nueva sección de etimología o de idioma, por favor, hágalo ↑  arriba ↑  de esta línea. NO BORRE LO QUE ESTÁ DEBAJO, GRACIAS. --&gt;
== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>aliy0oyh395kst3gfjrtybz9x5uchd1</sha1>
    </revision>
  </page>
  <page>
    <title>minusvalía</title>
    <ns>0</ns>
    <id>1061837</id>
    <revision>
      <id>6123499</id>
      <parentid>5936046</parentid>
      <timestamp>2026-07-25T00:31:33Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123499</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="367" sha1="dyj3ecs2u7st78b86bmk1exf5m4dt6q" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|prefijo|minus|valía}}.

==== {{sustantivo femenino|es}} ====
{{es.sust}}

;1: {{plm|detrimento}} o pérdida de valor.
;2: La condición de estar con una discapacidad o desventaja.

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>dyj3ecs2u7st78b86bmk1exf5m4dt6q</sha1>
    </revision>
  </page>
  <page>
    <title>cururú</title>
    <ns>0</ns>
    <id>1064354</id>
    <revision>
      <id>6123569</id>
      <parentid>6118529</parentid>
      <timestamp>2026-07-25T10:43:46Z</timestamp>
      <contributor>
        <username>André Koehne</username>
        <id>5272</id>
      </contributor>
      <comment>/* Traducciones */ +</comment>
      <origin>6123569</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="582" sha1="nvk2pexeaza6xadfl7msxxmisz7jdys" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|gn|kururu}}.

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1 {{csem|anfibios}}: {{taxón|Rhinella diptycha|Rhinella schneideri}} Especie de sapo grande nativo del litoral argentino.
{{sinónimo|sapo buey|sapo gigante}}

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{t|de|t1=Aga-Kröte|t2=Riesenkröte}}
{{t|fr|t1=crapaud-buffle}}
{{t|en|t1=cane toad|t2=marine toad}}
{{t|pt|t1=cururu|t2=sapo-jururu}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>nvk2pexeaza6xadfl7msxxmisz7jdys</sha1>
    </revision>
  </page>
  <page>
    <title>inte-</title>
    <ns>0</ns>
    <id>1065310</id>
    <revision>
      <id>6123461</id>
      <parentid>6122031</parentid>
      <timestamp>2026-07-24T19:47:48Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <origin>6123461</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="648" sha1="8vie84jsb55bafzmt9jzv62kj6f6m85" xml:space="preserve">== {{lengua|xib}} ==
{{pron-graf|leng=xib}}

=== Etimología ===
{{etimología|leng=xib|incierta}}, pero probablemente relacionado con el vasco ''[[indar]]'' ('fuerza').

==== {{raíz|xib}} ====
{{xib.esc|inte}}
;1: Formante de antropónimos bimembres.&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 246 | obs = Sagunto 16, Siles: 1985, nº 1038, M.L.H. F.11.7, lápida.}}&lt;/ref&gt;

==== Información adicional ====
{{derivad|leng=xib|Intebeleś}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>8vie84jsb55bafzmt9jzv62kj6f6m85</sha1>
    </revision>
    <revision>
      <id>6123462</id>
      <parentid>6123461</parentid>
      <timestamp>2026-07-24T19:58:05Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <comment>Se ha deshecho la revisión [[Special:Diff/6123461|6123461]] de [[Special:Contributions/CarpetanoComplutense|CarpetanoComplutense]] ([[User talk:CarpetanoComplutense|disc.]])</comment>
      <origin>6123462</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="650" sha1="l5tslgwtanvshlm0ibkv6gykn9h5zte" xml:space="preserve">== {{lengua|xib}} ==
{{pron-graf|leng=xib}}

=== Etimología ===
{{etimología|leng=xib|incierta}}, pero probablemente relacionado con el vasco ''[[indar]]'' ('fuerza').

==== {{prefijo|xib}} ====
{{xib.esc|inte}}
;1: Formante de antropónimos bimembres.&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 246 | obs = Sagunto 16, Siles: 1985, nº 1038, M.L.H. F.11.7, lápida.}}&lt;/ref&gt;

==== Información adicional ====
{{derivad|leng=xib|Intebeleś}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>l5tslgwtanvshlm0ibkv6gykn9h5zte</sha1>
    </revision>
  </page>
  <page>
    <title>realismo mágico</title>
    <ns>0</ns>
    <id>1065373</id>
    <revision>
      <id>6123460</id>
      <parentid>6123289</parentid>
      <timestamp>2026-07-24T19:32:06Z</timestamp>
      <contributor>
        <username>~2026-36517-83</username>
        <id>183232</id>
      </contributor>
      <comment>/* Locución sustantiva masculina */</comment>
      <origin>6123460</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="891" sha1="0oe14hx9xcpm5j9yt280sc2fzxewbvm" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}} 

=== Etimología ===
{{etimología2|Término usado por el crítico de arte alemán Franz Roh, para describir una pintura que demostraba una realidad alterada}}. 

==== {{locución sustantiva|es|masculina}} ====

;1 {{csem|literatura|pintura}}: Movimiento artístico en el que se presentan situaciones [[onírica]]s o [[surrealista]]s que los personajes que las viven aceptan como si fueran comunes.

==== Véase también ====
{{W}}

==== Traducciones ====
{{trad-arriba}}
&lt;!-- formato: {{t|idioma|t1=(traducción1)|t2=(traducción2|...(hay más opciones))}} p. ej. {{t|fr|t1=chose|a1=1|g1=f}} (ver más ejemplos en Plantilla:t/doc) --&gt;
{{trad-abajo}}

&lt;!-- si va a insertar una nueva sección de etimología o de idioma, por favor, hágalo ↑  arriba ↑  de esta línea. NO BORRE LO QUE ESTÁ DEBAJO, GRACIAS. --&gt;
== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>0oe14hx9xcpm5j9yt280sc2fzxewbvm</sha1>
    </revision>
  </page>
  <page>
    <title>reversible</title>
    <ns>0</ns>
    <id>1065404</id>
    <revision>
      <id>6123471</id>
      <parentid>6123361</parentid>
      <timestamp>2026-07-24T21:52:40Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* {{adjetivo|es}} */</comment>
      <origin>6123471</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="759" sha1="4cshu5ap98xybmbkntkv4zgdhwcqcwq" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf|v=revertible}}

=== Etimología ===
{{etimología|sufijo|reversa|ible}}.

==== {{adjetivo|es}} ====
{{es.adj}}

;1: Que se puede [[revertir]].
{{antónimo|irreversible}}
;2: Que puede volver al estado anterior.
;3 {{csem|derecho}}: Se dice de los bienes que pueden o deben volver a su antiguo dueño o a su [[causahabiente]].
;4 {{csem|ropa}}: Dicho de una prenda de vestir: que puede usarse por el derecho o por el revés según convenga.
;5 {{csem|mecánica}}: Dícese de una transmisión que puede ponerse en movimiento actuando sobre uno cualquiera de los cuerpos enlazados por ella.&lt;ref&gt;{{DLE1925}}&lt;/ref&gt;

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>4cshu5ap98xybmbkntkv4zgdhwcqcwq</sha1>
    </revision>
  </page>
  <page>
    <title>neurológico</title>
    <ns>0</ns>
    <id>1065424</id>
    <revision>
      <id>6123430</id>
      <timestamp>2026-07-24T15:39:53Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología|confijo|neuro|lógico}}.  ==== {{adjetivo|es}} ==== {{es.adj}}  ;1: {{adjetivo de sustantivo|[[neurología]]|a la}}.  ==== Traducciones ==== {{trad-arriba}} {{trad-abajo}}  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123430</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="303" sha1="jcuxz19yr4c7aou3f5jng60rs4lqeh4" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|confijo|neuro|lógico}}.

==== {{adjetivo|es}} ====
{{es.adj}}

;1: {{adjetivo de sustantivo|[[neurología]]|a la}}.

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>jcuxz19yr4c7aou3f5jng60rs4lqeh4</sha1>
    </revision>
    <revision>
      <id>6123431</id>
      <parentid>6123430</parentid>
      <timestamp>2026-07-24T15:40:10Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* Etimología */</comment>
      <origin>6123431</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="304" sha1="8b05gncdi5umt95rboh3dxpup2in7hp" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|sufijo|neurología|ico}}.

==== {{adjetivo|es}} ====
{{es.adj}}

;1: {{adjetivo de sustantivo|[[neurología]]|a la}}.

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>8b05gncdi5umt95rboh3dxpup2in7hp</sha1>
    </revision>
  </page>
  <page>
    <title>narcisista</title>
    <ns>0</ns>
    <id>1065425</id>
    <revision>
      <id>6123432</id>
      <timestamp>2026-07-24T15:41:56Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología|sufijo|narcisismo|ista}}.  ==== {{adjetivo|es}} ==== {{es.adj}}  ;1: {{adjetivo de sustantivo|narcisismo|al}}. ;2: Dicho de una persona: que practica el [[narcisismo]]. {{uso|utcs}} {{sinónimo|narciso|ninfo}}  ==== Traducciones ==== {{trad-arriba}} {{trad-abajo}}  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123432</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="396" sha1="dby1f4tl840gmurui8a51r52f6vs6su" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|sufijo|narcisismo|ista}}.

==== {{adjetivo|es}} ====
{{es.adj}}

;1: {{adjetivo de sustantivo|narcisismo|al}}.
;2: Dicho de una persona: que practica el [[narcisismo]].
{{uso|utcs}}
{{sinónimo|narciso|ninfo}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>dby1f4tl840gmurui8a51r52f6vs6su</sha1>
    </revision>
  </page>
  <page>
    <title>palomo</title>
    <ns>0</ns>
    <id>1065426</id>
    <revision>
      <id>6123437</id>
      <timestamp>2026-07-24T15:48:33Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|Palomo}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología|masculino|paloma}}.  ==== {{sustantivo masculino|es}} ==== {{es.sust}}  ;1 {{csem|aves}}: Macho de la [[paloma]]. ;2 {{csem|aves}}: {{plm|paloma torcaz}}. ;3: {{plm|tonto}}. {{uso|anticuado}} {{ámbito|germanía}} ;4: {{plm|vendedor}} o [[propagandista]] muy hábil.  ==== Véase también ==== {{w}}  ==== Traducciones ==== {{trad-arriba}} {{trad-abajo}}  == Referencias y not…»</comment>
      <origin>6123437</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="492" sha1="sjq8naj4o66uht7b5jdin4szhi9j544" xml:space="preserve">{{desambiguación|Palomo}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|masculino|paloma}}.

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1 {{csem|aves}}: Macho de la [[paloma]].
;2 {{csem|aves}}: {{plm|paloma torcaz}}.
;3: {{plm|tonto}}.
{{uso|anticuado}}
{{ámbito|germanía}}
;4: {{plm|vendedor}} o [[propagandista]] muy hábil.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>sjq8naj4o66uht7b5jdin4szhi9j544</sha1>
    </revision>
    <revision>
      <id>6123438</id>
      <parentid>6123437</parentid>
      <timestamp>2026-07-24T15:50:54Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123438</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="622" sha1="kxrs2xp81795qqgh2wh9mwdnagyzrxi" xml:space="preserve">{{desambiguación|Palomo}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|masculino|paloma}}.

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1 {{csem|aves}}: Macho de la [[paloma]].&lt;ref name=d&gt;{{DLE1925}}&lt;/ref&gt;
;2 {{csem|aves}}: {{plm|paloma torcaz}}.&lt;ref name=d /&gt;
;3: Hombre de poca inteligencia.&lt;ref name=d /&gt;
{{uso|anticuado}}
{{ámbito|germanía}}
;4: {{plm|Juan Palomo}}.&lt;ref name=d /&gt;
;5: Propagandista o muñidor muy diestro en estos oficios.&lt;ref name=d /&gt;

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>kxrs2xp81795qqgh2wh9mwdnagyzrxi</sha1>
    </revision>
  </page>
  <page>
    <title>paradeporte</title>
    <ns>0</ns>
    <id>1065427</id>
    <revision>
      <id>6123443</id>
      <timestamp>2026-07-24T15:57:14Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología|prefijo|para|deporte}}.  ==== {{sustantivo masculino|es}} ==== {{es.sust}}  ;1 {{csem|deportes}}: Cualquiera de los deportes en los que compiten los [[discapacitado]]s.  ==== Véase también ==== {{w}}  ==== Traducciones ==== {{trad-arriba}} {{trad-abajo}}  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123443</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="388" sha1="kiu6xcsz5b14blhctrxa3nz6o11iq3m" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|prefijo|para|deporte}}.

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1 {{csem|deportes}}: Cualquiera de los deportes en los que compiten los [[discapacitado]]s.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>kiu6xcsz5b14blhctrxa3nz6o11iq3m</sha1>
    </revision>
  </page>
  <page>
    <title>nado sincronizado</title>
    <ns>0</ns>
    <id>1065428</id>
    <revision>
      <id>6123444</id>
      <timestamp>2026-07-24T15:59:05Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología}}.  ==== {{locución|es|sustantiva|masculina}} ==== {{es.sust|s}}  ;1 {{csem|deporte}}: {{plm|natación artística}}.  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123444</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="249" sha1="hwb4hwsgkcag9mf96oqwbbya7w8p9a0" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología}}.

==== {{locución|es|sustantiva|masculina}} ====
{{es.sust|s}}

;1 {{csem|deporte}}: {{plm|natación artística}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>hwb4hwsgkcag9mf96oqwbbya7w8p9a0</sha1>
    </revision>
  </page>
  <page>
    <title>natación artística</title>
    <ns>0</ns>
    <id>1065429</id>
    <revision>
      <id>6123445</id>
      <timestamp>2026-07-24T15:59:49Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología}}.  ==== {{locución|es|sustantiva|femenina}} ==== {{es.sust|s}}  ;1 {{csem|deporte}}: Disciplina que combina natación, gimnasia y danza, consistente en nadadores que realizan una serie de acrobacias acuáticas al ritmo de la música. {{sinónimo|nado sincronizado|natación sincronizada}}  ==== Véase también ==== {{w}}  ==== Traducciones ==== {{trad-arriba}} {{trad-abajo}}  ==…»</comment>
      <origin>6123445</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="510" sha1="ng7f9e95apj0jvet1xreyevlct2td5s" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología}}.

==== {{locución|es|sustantiva|femenina}} ====
{{es.sust|s}}

;1 {{csem|deporte}}: Disciplina que combina natación, gimnasia y danza, consistente en nadadores que realizan una serie de acrobacias acuáticas al ritmo de la música.
{{sinónimo|nado sincronizado|natación sincronizada}}

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>ng7f9e95apj0jvet1xreyevlct2td5s</sha1>
    </revision>
    <revision>
      <id>6123446</id>
      <parentid>6123445</parentid>
      <timestamp>2026-07-24T16:16:55Z</timestamp>
      <contributor>
        <username>~2026-34597-22</username>
        <id>183061</id>
      </contributor>
      <comment>imagen</comment>
      <origin>6123446</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="585" sha1="h1sv1zabis9xtpz4yujtxl1y3ku4liq" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología}}.

==== {{locución|es|sustantiva|femenina}} ====
{{es.sust|s}}
[[File:Sync Group.jpg|thumb|[1]]]
;1 {{csem|deporte}}: Disciplina que combina [[natación]], [[gimnasia]] y [[danza]], consistente en [[nadador]]es que realizan una serie de [[acrobacia]]s [[acuático|acuáticas]] al [[ritmo]] de la [[música]].
{{sinónimo|nado sincronizado|natación sincronizada}}

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>h1sv1zabis9xtpz4yujtxl1y3ku4liq</sha1>
    </revision>
  </page>
  <page>
    <title>cicatricial</title>
    <ns>0</ns>
    <id>1065430</id>
    <revision>
      <id>6123451</id>
      <timestamp>2026-07-24T17:12:13Z</timestamp>
      <contributor>
        <username>~2026-34597-22</username>
        <id>183061</id>
      </contributor>
      <comment>Página creada con «== {{lengua|es}} == {{pron-graf}}   === Etimología === {{etimología|sufijo|cicatriz|al}}.   ==== {{adjetivo|es}} ==== {{es.adj|ng}}     ;1: Relacionado con las [[cicatriz|cicatrices]].  ==== Traducciones ==== {{trad-arriba}} &lt;!-- formato: {{t|idioma|t1=(traducción1)|t2=(traducción2|...(hay más opciones))}} p. ej. {{t|fr|t1=chose|a1=1|g1=f}} (ver más ejemplos en Plantilla:t/doc) --&gt; {{trad-abajo}}  &lt;!-- si va a insertar una nueva sección de etimología o de idio…»</comment>
      <origin>6123451</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="611" sha1="6liucz6wyas0ybs1dnma7g4ouq7ury5" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}} 

=== Etimología ===
{{etimología|sufijo|cicatriz|al}}. 

==== {{adjetivo|es}} ====
{{es.adj|ng}}    
;1: Relacionado con las [[cicatriz|cicatrices]].

==== Traducciones ====
{{trad-arriba}}
&lt;!-- formato: {{t|idioma|t1=(traducción1)|t2=(traducción2|...(hay más opciones))}} p. ej. {{t|fr|t1=chose|a1=1|g1=f}} (ver más ejemplos en Plantilla:t/doc) --&gt;
{{trad-abajo}}

&lt;!-- si va a insertar una nueva sección de etimología o de idioma, por favor, hágalo ↑  arriba ↑  de esta línea. NO BORRE LO QUE ESTÁ DEBAJO, GRACIAS. --&gt;
== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>6liucz6wyas0ybs1dnma7g4ouq7ury5</sha1>
    </revision>
  </page>
  <page>
    <title>circunferencial</title>
    <ns>0</ns>
    <id>1065431</id>
    <revision>
      <id>6123452</id>
      <timestamp>2026-07-24T17:19:54Z</timestamp>
      <contributor>
        <username>~2026-34597-22</username>
        <id>183061</id>
      </contributor>
      <comment>Página creada con «== {{lengua|es}} == {{pron-graf}}   === Etimología === {{etimología|sufijo|circunferencia|al}}.   ==== {{adjetivo|es}} ==== {{es.adj|ng}}     ;1: Relacionado con la [[circunferencia]].  ==== Traducciones ==== {{trad-arriba}} &lt;!-- formato: {{t|idioma|t1=(traducción1)|t2=(traducción2|...(hay más opciones))}} p. ej. {{t|fr|t1=chose|a1=1|g1=f}} (ver más ejemplos en Plantilla:t/doc) --&gt; {{trad-abajo}}  &lt;!-- si va a insertar una nueva sección de etimología o de idio…»</comment>
      <origin>6123452</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="611" sha1="7cz2gyp5jo60xu0jenhxzcleqnzaguw" xml:space="preserve">== {{lengua|es}} ==
{{pron-graf}} 

=== Etimología ===
{{etimología|sufijo|circunferencia|al}}. 

==== {{adjetivo|es}} ====
{{es.adj|ng}}    
;1: Relacionado con la [[circunferencia]].

==== Traducciones ====
{{trad-arriba}}
&lt;!-- formato: {{t|idioma|t1=(traducción1)|t2=(traducción2|...(hay más opciones))}} p. ej. {{t|fr|t1=chose|a1=1|g1=f}} (ver más ejemplos en Plantilla:t/doc) --&gt;
{{trad-abajo}}

&lt;!-- si va a insertar una nueva sección de etimología o de idioma, por favor, hágalo ↑  arriba ↑  de esta línea. NO BORRE LO QUE ESTÁ DEBAJO, GRACIAS. --&gt;
== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>7cz2gyp5jo60xu0jenhxzcleqnzaguw</sha1>
    </revision>
  </page>
  <page>
    <title>mañana o pasado</title>
    <ns>0</ns>
    <id>1065432</id>
    <revision>
      <id>6123464</id>
      <timestamp>2026-07-24T20:16:00Z</timestamp>
      <contributor>
        <username>Charlyfar</username>
        <id>7832</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}}&lt;!-- si hay términos que se diferencian de este solo en una tilde o diacrítico --&gt; == {{lengua|es}} == {{pron-graf}} &lt;!--- En el caso del español u otro idioma regular (consultar Plantilla:pron-graf), la plantilla se deja en blanco y la pronunciación se generará automáticamente. Si la palabra es irregular, use el parámetro |ayuda. Ejemplo: rally -&gt; {{pron-graf|ayuda=ralí}}. Si el idioma es considerado irregular, como el inglés, especifique…»</comment>
      <origin>6123464</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="2706" sha1="bnhrndbazirhi4uo4vnkfcfpkzjs063" xml:space="preserve">{{desambiguación|}}&lt;!-- si hay términos que se diferencian de este solo en una tilde o diacrítico --&gt;
== {{lengua|es}} ==
{{pron-graf}} &lt;!--- En el caso del español u otro idioma regular (consultar Plantilla:pron-graf), la plantilla se deja en blanco y la pronunciación se generará automáticamente. Si la palabra es irregular, use el parámetro |ayuda. Ejemplo: rally -&gt; {{pron-graf|ayuda=ralí}}. Si el idioma es considerado irregular, como el inglés, especifique en la plantilla cada transcripción fonética manualmente. Adicionalmente se puede especificar si hay alguna transliteración, grafía alternativa, etc. --&gt;

=== Etimología ===
{{etimología}}. &lt;!-- Para una palabra de otro idioma, utilice {{etimología|(CÓDIGO DE IDIOMA)|(PALABRA)|(SIGNIFICADO)}}. Para elegir otra opción u otro tipo de etimología, consulte la página Plantilla:etimología --&gt; 

==== {{locución adverbial|es|de tiempo}} ==== 

&lt;!-- definiciones: borrar todo lo que no sea necesario --&gt;
;1: Se refiera a lo que le puede deparar el destino o el futuro a una persona.
{{ámbito|Venezuela}}
{{uso|coloquial}}
{{ejemplo|De las decisiones que tomes hoy depende cómo te irá ''mañana o pasado''}}
&lt;!--;2:  explicación de lo que significa otra acepción de la palabra, siempre y cuando la etimología y el tipo de palabra sea el mismo --&gt;
&lt;!-- OBSERVACIÓN: si pertenece a uno o varios campos semánticos (ver Wikcionario:Lista de etiquetas), inclúyelo entre el número y los dos puntos, p. ej. ;1 {{csem|música}}: o ;1 {{csem|política|economía}} --&gt;
&lt;!-- puedes incluir uno o más de los siguientes campos debajo de cada acepción. Ver indicaciones y otros en Wikcionario:Estructura --&gt;
&lt;!--{{ámbito|&lt;ÁMBITO 1&gt;|&lt;ÁMBITO2&gt;}} (zonas donde se entiende o usa esta acepción, como un regionalismo) (ver Wikcionario:Lista de etiquetas) --&gt;
&lt;!--{{uso|}}(coloquial, obsoleto, malsonante, etc. (ver Wikcionario:Lista de etiquetas)--&gt;
&lt;!--{{sinónimo|&lt;SINÓNIMO 1&gt;|&lt;SINÓNIMO 2&gt;}}--&gt;
&lt;!--{{relacionado|&lt;1&gt;|&lt;2&gt;}}--&gt;
&lt;!--{{ejemplo|&lt;oración, con la palabra del lema en ''cursiva''&gt;|... (cita de la fuente, si la hay: vea Plantilla:ejemplo)}}--&gt;

&lt;!-- enlace al artículo de Wikipedia con el mismo título que esta página (agréguelo sólo si es relevante) 
==== Véase también ====
{{w}} --&gt;

==== Traducciones ====
{{trad-arriba}}
&lt;!-- formato: {{t|idioma|t1=(traducción1)|t2=(traducción2|...(hay más opciones))}} p. ej. {{t|fr|t1=chose|a1=1|g1=f}} (ver más ejemplos en Plantilla:t/doc) --&gt;
{{trad-abajo}}

&lt;!-- si va a insertar una nueva sección de etimología o de idioma, por favor, hágalo ↑  arriba ↑  de esta línea. NO BORRE LO QUE ESTÁ DEBAJO, GRACIAS. --&gt;
== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>bnhrndbazirhi4uo4vnkfcfpkzjs063</sha1>
    </revision>
  </page>
  <page>
    <title>Alosoŕtin</title>
    <ns>0</ns>
    <id>1065433</id>
    <revision>
      <id>6123467</id>
      <timestamp>2026-07-24T21:23:35Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <comment>Página creada con «== {{lengua|xib}} == {{pron-graf|leng=xib}}  === Etimología === {{etimología|leng=xib|confijo|alos|oŕtin}}.&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 34 | obs = Cerámica gala, Ensérune, M.L.H. B.1.254; Siles: 1985, nº 122. Atestiguado como 'alosoŕtin[[-ar#Íbero|ar]][[-ḿi|ḿi]]'.}}&lt;/ref&gt;  ====…»</comment>
      <origin>6123467</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="747" sha1="fx7fhhrivau49lo5kpg0u9d7aqqf8sd" xml:space="preserve">== {{lengua|xib}} ==
{{pron-graf|leng=xib}}

=== Etimología ===
{{etimología|leng=xib|confijo|alos|oŕtin}}.&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 34 | obs = Cerámica gala, Ensérune, M.L.H. B.1.254; Siles: 1985, nº 122. Atestiguado como 'alosoŕtin[[-ar#Íbero|ar]][[-ḿi|ḿi]]'.}}&lt;/ref&gt;

==== {{sustantivo propio|xib}} ====
{{xib.esc|alosoŕtin}}
;1: ''{{plm|nombre de pila}}''.

[[Categoría:XIB:Antropónimos]]

==== Véase también ====
* [http://hesperia.ucm.es/consulta%20hesperia/onomastica/corpus.php?id2=5263 Hesperia]

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>fx7fhhrivau49lo5kpg0u9d7aqqf8sd</sha1>
    </revision>
    <revision>
      <id>6123469</id>
      <parentid>6123467</parentid>
      <timestamp>2026-07-24T21:31:39Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <minor />
      <origin>6123469</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="745" sha1="ky47xuvnrc85qz7bkmwe7icmx3rbk0p" xml:space="preserve">== {{lengua|xib}} ==
{{pron-graf|leng=xib}}

=== Etimología ===
{{etimología|leng=xib|confijo|alos|oŕtin}}.&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 34 | obs = Cerámica gala, Ensérune, M.L.H. B.1.254; Siles: 1985, nº 122. Atestiguado como 'alosoŕtin[[-ar#Íbero|ar]][[-ḿi|ḿi]]'.}}&lt;/ref&gt;

==== {{sustantivo propio|xib}} ====
{{xib.esc|alosoŕtin}}
;1: ''{{plm|nombre de pila}}''.

[[Categoría:XIB:Antropónimos]]

==== Véase también ====
* [http://hesperia.ucm.es/consulta_hesperia/onomastica/corpus.php?id2=5263 Hesperia]

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>ky47xuvnrc85qz7bkmwe7icmx3rbk0p</sha1>
    </revision>
  </page>
  <page>
    <title>śei</title>
    <ns>0</ns>
    <id>1065434</id>
    <revision>
      <id>6123470</id>
      <timestamp>2026-07-24T21:39:57Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <comment>Página creada con «== {{lengua|xib}} == {{pron-graf|leng=xib}}  === Etimología === {{etimología|leng=xib|incierta}}, pero probablemente relacionado con el vasco ''[[sei#Vasco|sei]]'' ('seis').&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 413}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Orduña Aznar, Eduardo | fecha = 2011 | url = ht…»</comment>
      <origin>6123470</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="965" sha1="3y3qhetp5plr78qivaz99jqkebap8wx" xml:space="preserve">== {{lengua|xib}} ==
{{pron-graf|leng=xib}}

=== Etimología ===
{{etimología|leng=xib|incierta}}, pero probablemente relacionado con el vasco ''[[sei#Vasco|sei]]'' ('seis').&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 413}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Orduña Aznar, Eduardo | fecha = 2011 | url = https://ojs.ehu.eus/index.php/Veleia/article/view/6301/8075 | título = Los numerales ibéricos y el protovasco | cat=artículo}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Ferrer i Jané, Joan | fecha = 2009 | url = https://ifc.dpz.es/recursos/publicaciones/29/54/32ferrer.pdf | título = El sistema de numerales ibérico: avances en su conocimiento | cat=artículo}}&lt;/ref&gt;

==== {{numeral|xib}} ====
{{xib.esc|śei}}
;1 {{csem|leng=xib|números}}: {{plm|seis}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>3y3qhetp5plr78qivaz99jqkebap8wx</sha1>
    </revision>
  </page>
  <page>
    <title>inexhaurible</title>
    <ns>0</ns>
    <id>1065435</id>
    <revision>
      <id>6123472</id>
      <timestamp>2026-07-24T22:02:01Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología|la-neo|inexhauribilis}}, {{etim|la|exhaurio|alt=exhaurīre|agotar}}.  ==== {{adjetivo|es}} ==== {{es.adj}}  ;1: {{plm|inagotable}}, [[inacabable]]. {{uso|raro}}  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123472</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="292" sha1="ppbnkzfrkrdyo3mrwx8mp2n33lyifyo" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|la-neo|inexhauribilis}}, {{etim|la|exhaurio|alt=exhaurīre|agotar}}.

==== {{adjetivo|es}} ====
{{es.adj}}

;1: {{plm|inagotable}}, [[inacabable]].
{{uso|raro}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>ppbnkzfrkrdyo3mrwx8mp2n33lyifyo</sha1>
    </revision>
    <revision>
      <id>6123473</id>
      <parentid>6123472</parentid>
      <timestamp>2026-07-24T22:02:20Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123473</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="312" sha1="6j2wrjrgiwzq3ni3uqse2fdtvdegmw9" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf|ayuda=in-exhaurible}}

=== Etimología ===
{{etimología|la-neo|inexhauribilis}}, {{etim|la|exhaurio|alt=exhaurīre|agotar}}.

==== {{adjetivo|es}} ====
{{es.adj}}

;1: {{plm|inagotable}}, [[inacabable]].
{{uso|raro}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>6j2wrjrgiwzq3ni3uqse2fdtvdegmw9</sha1>
    </revision>
  </page>
  <page>
    <title>exhaustación</title>
    <ns>0</ns>
    <id>1065436</id>
    <revision>
      <id>6123475</id>
      <timestamp>2026-07-24T22:07:41Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología}}.  ==== {{sustantivo femenino|es}} ==== {{es.sust}}  ;1 {{csem|mecánica}}: Expulsión de los residuos de la combustión de un motor.  ==== Traducciones ==== {{trad-arriba}} {{trad-abajo}}  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123475</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="321" sha1="bi9f5zsim0ukllu5vb6ut7kd1t45ekn" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología}}.

==== {{sustantivo femenino|es}} ====
{{es.sust}}

;1 {{csem|mecánica}}: Expulsión de los residuos de la combustión de un motor.

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>bi9f5zsim0ukllu5vb6ut7kd1t45ekn</sha1>
    </revision>
  </page>
  <page>
    <title>ollado</title>
    <ns>0</ns>
    <id>1065437</id>
    <revision>
      <id>6123476</id>
      <timestamp>2026-07-24T22:09:26Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología|roa-opt|ollado}}, participio de {{l+|roa-opt|ollar|glosa=ojear}}.  ==== {{sustantivo masculino|es}} ==== {{es.sust}}  ;1 {{csem|náutica}}: {{variante|ollao}}.  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123476</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="291" sha1="3uy1vm4t2wwipz6cmcg1y6lb8mfb1s6" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|roa-opt|ollado}}, participio de {{l+|roa-opt|ollar|glosa=ojear}}.

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1 {{csem|náutica}}: {{variante|ollao}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>3uy1vm4t2wwipz6cmcg1y6lb8mfb1s6</sha1>
    </revision>
  </page>
  <page>
    <title>sisbi</title>
    <ns>0</ns>
    <id>1065438</id>
    <revision>
      <id>6123490</id>
      <timestamp>2026-07-24T23:37:25Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <comment>Página creada con «== {{lengua|xib}} == {{pron-graf|leng=xib}}  === Etimología === {{etimología|leng=xib|incierta}}, pero probablemente relacionado con el vasco ''[[zazpi]]'' ('siete').&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 542}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Orduña Aznar, Eduardo | fecha = 2011 | url = https://o…»</comment>
      <origin>6123490</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="960" sha1="s3li3f9azihlihypudahfzjo1d9n25h" xml:space="preserve">== {{lengua|xib}} ==
{{pron-graf|leng=xib}}

=== Etimología ===
{{etimología|leng=xib|incierta}}, pero probablemente relacionado con el vasco ''[[zazpi]]'' ('siete').&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 542}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Orduña Aznar, Eduardo | fecha = 2011 | url = https://ojs.ehu.eus/index.php/Veleia/article/view/6301/8075 | título = Los numerales ibéricos y el protovasco | cat=artículo}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Ferrer i Jané, Joan | fecha = 2009 | url = https://ifc.dpz.es/recursos/publicaciones/29/54/32ferrer.pdf | título = El sistema de numerales ibérico: avances en su conocimiento | cat=artículo}}&lt;/ref&gt;

==== {{numeral|xib}} ====
{{xib.esc|sisbi}}
;1 {{csem|leng=xib|números}}: {{plm|siete}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>s3li3f9azihlihypudahfzjo1d9n25h</sha1>
    </revision>
  </page>
  <page>
    <title>alos-</title>
    <ns>0</ns>
    <id>1065439</id>
    <revision>
      <id>6123493</id>
      <timestamp>2026-07-25T00:04:13Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <comment>Página creada con «== {{lengua|xib}} == {{pron-graf|leng=xib}}  === Etimología === {{etimología|leng=xib|incierta}}, pero probablemente relacionado con el vasco ''[[arotz]]'' ('carpintero', 'herrero').  ==== {{prefijo|xib}} ==== {{xib.esc|alos}} ;1: Formante de antropónimos bimembres.&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro…»</comment>
      <origin>6123493</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="608" sha1="o6tjbpk595eb4hgzlqk9fufrmsslpjf" xml:space="preserve">== {{lengua|xib}} ==
{{pron-graf|leng=xib}}

=== Etimología ===
{{etimología|leng=xib|incierta}}, pero probablemente relacionado con el vasco ''[[arotz]]'' ('carpintero', 'herrero').

==== {{prefijo|xib}} ====
{{xib.esc|alos}}
;1: Formante de antropónimos bimembres.&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 34}}&lt;/ref&gt;

==== Información adicional ====
{{derivad|leng=xib|Alostibaś|Alosoŕtin}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>o6tjbpk595eb4hgzlqk9fufrmsslpjf</sha1>
    </revision>
  </page>
  <page>
    <title>sorse</title>
    <ns>0</ns>
    <id>1065440</id>
    <revision>
      <id>6123496</id>
      <timestamp>2026-07-25T00:15:57Z</timestamp>
      <contributor>
        <username>CarpetanoComplutense</username>
        <id>161160</id>
      </contributor>
      <comment>Página creada con «== {{lengua|xib}} == {{pron-graf|leng=xib}}  === Etimología === {{etimología|leng=xib|incierta}}, pero probablemente relacionado con el vasco ''[[zortzi]]'' ('ocho').&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 546}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Orduña Aznar, Eduardo | fecha = 2011 | url = https://o…»</comment>
      <origin>6123496</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="959" sha1="s5ws41p6xcs1ofvv4fy0bguaoxiwl5w" xml:space="preserve">== {{lengua|xib}} ==
{{pron-graf|leng=xib}}

=== Etimología ===
{{etimología|leng=xib|incierta}}, pero probablemente relacionado con el vasco ''[[zortzi]]'' ('ocho').&lt;ref&gt;{{referencia | autor = Silgo Gauche, Luis | fecha = 2016 | url = https://euskerarenjatorria.eus/wp-content/uploads/2016/08/L%C3%A9xico_Ib%C3%A9rico_2nd01.pdf | título = Léxico ibérico | cat=libro | p = 546}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Orduña Aznar, Eduardo | fecha = 2011 | url = https://ojs.ehu.eus/index.php/Veleia/article/view/6301/8075 | título = Los numerales ibéricos y el protovasco | cat=artículo}}&lt;/ref&gt;&lt;ref&gt;{{referencia | autor = Ferrer i Jané, Joan | fecha = 2009 | url = https://ifc.dpz.es/recursos/publicaciones/29/54/32ferrer.pdf | título = El sistema de numerales ibérico: avances en su conocimiento | cat=artículo}}&lt;/ref&gt;

==== {{numeral|xib}} ====
{{xib.esc|sorse}}
;1 {{csem|leng=xib|números}}: {{plm|ocho}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>s5ws41p6xcs1ofvv4fy0bguaoxiwl5w</sha1>
    </revision>
  </page>
  <page>
    <title>mamarruchada</title>
    <ns>0</ns>
    <id>1065441</id>
    <revision>
      <id>6123498</id>
      <timestamp>2026-07-25T00:25:39Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología|cruce|mamarrachada|paparruchada}}.  ==== {{sustantivo femenino|es}} ==== {{es.sust}}  ;1: {{variante|paparruchada}}.  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123498</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="248" sha1="fi7x8qnu5bacxr29ve2voe1yhccblvw" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|cruce|mamarrachada|paparruchada}}.

==== {{sustantivo femenino|es}} ====
{{es.sust}}

;1: {{variante|paparruchada}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>fi7x8qnu5bacxr29ve2voe1yhccblvw</sha1>
    </revision>
  </page>
  <page>
    <title>conor</title>
    <ns>0</ns>
    <id>1065442</id>
    <revision>
      <id>6123504</id>
      <timestamp>2026-07-25T01:22:57Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|Conor}} == {{lengua|la}} == {{pron-graf|ayuda=cōnor|leng=la}}  === Etimología === {{etimología|leng=la|itc-pro|*kōnāje-}}, {{l+|itc-pro|*kōnājo-}}, {{etim|leng=la|ine-pro|*kṓnh₁-ie-}}, de {{l+|ine-pro|*ken-|mover, animar}}.  ==== {{verbo transitivo|la}} ====  ;1: {{plm|intentar}}.  ==== Conjugación ==== {{la.v|1+|cōnor|depon=v}}  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123504</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="403" sha1="ew1up5z6myed7spqbn5rfazb01quolj" xml:space="preserve">{{desambiguación|Conor}}
== {{lengua|la}} ==
{{pron-graf|ayuda=cōnor|leng=la}}

=== Etimología ===
{{etimología|leng=la|itc-pro|*kōnāje-}}, {{l+|itc-pro|*kōnājo-}}, {{etim|leng=la|ine-pro|*kṓnh₁-ie-}}, de {{l+|ine-pro|*ken-|mover, animar}}.

==== {{verbo transitivo|la}} ====

;1: {{plm|intentar}}.

==== Conjugación ====
{{la.v|1+|cōnor|depon=v}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>ew1up5z6myed7spqbn5rfazb01quolj</sha1>
    </revision>
  </page>
  <page>
    <title>waffle</title>
    <ns>0</ns>
    <id>1065443</id>
    <revision>
      <id>6123509</id>
      <timestamp>2026-07-25T01:59:20Z</timestamp>
      <contributor>
        <username>CitationsFreak</username>
        <id>149699</id>
      </contributor>
      <comment>Página creada con «== {{lengua|en}} ==  === Etimología === {{etimología|leng=en|nl|wafel}}  ==== {{sustantivo|en}} ==== {{en.sust|c}}  ;1: [[wafle]]  ==== Véase también ==== {{w|leng=en}}  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123509</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="214" sha1="057xdxiksnu3nnalcw9kf04warwufjr" xml:space="preserve">== {{lengua|en}} ==

=== Etimología ===
{{etimología|leng=en|nl|wafel}}

==== {{sustantivo|en}} ====
{{en.sust|c}}

;1: [[wafle]]

==== Véase también ====
{{w|leng=en}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>057xdxiksnu3nnalcw9kf04warwufjr</sha1>
    </revision>
  </page>
  <page>
    <title>cadorna</title>
    <ns>0</ns>
    <id>1065444</id>
    <revision>
      <id>6123514</id>
      <timestamp>2026-07-25T02:36:10Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología|EPON|Luigi Cadorna}}, general italiano responsable de más de 300k de bajas propias por su incapacidad para comandar su batallón.&lt;ref&gt;{{referencia|c=pagina|t=Cadorna y cadorcha|f=2020-4-9|sitio=esaviejaculturafrita.blogspot.com|u=https://esaviejaculturafrita.blogspot.com/2020/04/cadorna-y-cadorcha-sabias-que.html}}&lt;/ref&gt;  ==== {{sustantivo masculino y femenino|es}} ==== {{es.sus…»</comment>
      <origin>6123514</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="806" sha1="ferj6xxoot6g5r618j3vjc0onmzc18a" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|EPON|Luigi Cadorna}}, general italiano responsable de más de 300k de bajas propias por su incapacidad para comandar su batallón.&lt;ref&gt;{{referencia|c=pagina|t=Cadorna y cadorcha|f=2020-4-9|sitio=esaviejaculturafrita.blogspot.com|u=https://esaviejaculturafrita.blogspot.com/2020/04/cadorna-y-cadorcha-sabias-que.html}}&lt;/ref&gt;

==== {{sustantivo masculino y femenino|es}} ====
{{es.sust|mf}}

;1: Persona [[imperita]] o [[inhábil]].
{{uso|coloquial}}
{{ámbito|Argentina}}
{{wikisauro|inhábil}}

==== {{sustantivo femenino|es}} ====
{{es.sust}}

;2: Cosa u objeto insignificante que no se quiere mencionar.
{{uso|coloquial}}
{{ámbito|Argentina}}
{{sinónimo|mierda|poronga}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>ferj6xxoot6g5r618j3vjc0onmzc18a</sha1>
    </revision>
    <revision>
      <id>6123515</id>
      <parentid>6123514</parentid>
      <timestamp>2026-07-25T02:36:27Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123515</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="813" sha1="oeb7eejorm8f2erk2k44kcjci8d5jmc" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|EPON|Luigi Cadorna}}, general italiano responsable de más de 300k de bajas propias por su incapacidad para comandar su batallón.&lt;ref&gt;{{referencia|c=pagina|t=Cadorna y cadorcha|f=2020-4-9|sitio=esaviejaculturafrita.blogspot.com|u=https://esaviejaculturafrita.blogspot.com/2020/04/cadorna-y-cadorcha-sabias-que.html}}&lt;/ref&gt;

==== {{sustantivo masculino y femenino|es}} ====
{{es.sust|mf}}

;1: Persona [[imperita]] o [[inhábil]].
{{uso|coloquial}}
{{ámbito|Argentina}}
{{wikisauro|inhábil}}

==== {{sustantivo femenino|es}} ====
{{es.sust}}

;2: Cosa u objeto insignificante que no se quiere mencionar.
{{uso|coloquial}}
{{ámbito|Argentina}}
{{sinónimo|mierda|poronga|cuerno}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>oeb7eejorm8f2erk2k44kcjci8d5jmc</sha1>
    </revision>
    <revision>
      <id>6123516</id>
      <parentid>6123515</parentid>
      <timestamp>2026-07-25T02:37:35Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123516</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="824" sha1="7990461uol1cvl7y7am23s62xnu2f0d" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf|v=cadorcha}}

=== Etimología ===
{{etimología|EPON|Luigi Cadorna}}, general italiano responsable de más de 300k de bajas propias por su incapacidad para comandar su batallón.&lt;ref&gt;{{referencia|c=pagina|t=Cadorna y cadorcha|f=2020-4-9|sitio=esaviejaculturafrita.blogspot.com|u=https://esaviejaculturafrita.blogspot.com/2020/04/cadorna-y-cadorcha-sabias-que.html}}&lt;/ref&gt;

==== {{sustantivo masculino y femenino|es}} ====
{{es.sust|mf}}

;1: Persona [[imperita]] o [[inhábil]].
{{uso|coloquial}}
{{ámbito|Argentina}}
{{wikisauro|inhábil}}

==== {{sustantivo femenino|es}} ====
{{es.sust}}

;2: Cosa u objeto insignificante que no se quiere mencionar.
{{uso|coloquial}}
{{ámbito|Argentina}}
{{sinónimo|mierda|poronga|cuerno}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>7990461uol1cvl7y7am23s62xnu2f0d</sha1>
    </revision>
  </page>
  <page>
    <title>cadorcha</title>
    <ns>0</ns>
    <id>1065445</id>
    <revision>
      <id>6123517</id>
      <timestamp>2026-07-25T02:38:04Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología|cruce|cadorna|garcha}}.  ==== {{sustantivo femenino|es}} ==== {{es.sust}}  ;1: {{variante|cadorna}}. {{uso|coloquial}} {{ámbito|Argentina}}  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123517</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="272" sha1="6dz64rjelb7o913ute7reeo6nel512q" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|cruce|cadorna|garcha}}.

==== {{sustantivo femenino|es}} ====
{{es.sust}}

;1: {{variante|cadorna}}.
{{uso|coloquial}}
{{ámbito|Argentina}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>6dz64rjelb7o913ute7reeo6nel512q</sha1>
    </revision>
  </page>
  <page>
    <title>pipe clamp</title>
    <ns>0</ns>
    <id>1065446</id>
    <revision>
      <id>6123525</id>
      <timestamp>2026-07-25T02:54:01Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|en}} == {{pron-graf|leng=en}}  === Etimología === {{etimología|leng=en}}.  ==== {{locución|en|sustantiva}} ====  ;1 {{csem|herramientas|leng=en}}: {{plm|sargento}}.  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123525</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="242" sha1="m64l8ag0mu1ah9bm5efbjtafxu3e0j3" xml:space="preserve">{{desambiguación|}}
== {{lengua|en}} ==
{{pron-graf|leng=en}}

=== Etimología ===
{{etimología|leng=en}}.

==== {{locución|en|sustantiva}} ====

;1 {{csem|herramientas|leng=en}}: {{plm|sargento}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>m64l8ag0mu1ah9bm5efbjtafxu3e0j3</sha1>
    </revision>
    <revision>
      <id>6123526</id>
      <parentid>6123525</parentid>
      <timestamp>2026-07-25T02:54:27Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* {{locución|en|sustantiva}} */</comment>
      <origin>6123526</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="256" sha1="ifmc78yn94ocgl53tt59igh4nxwcajq" xml:space="preserve">{{desambiguación|}}
== {{lengua|en}} ==
{{pron-graf|leng=en}}

=== Etimología ===
{{etimología|leng=en}}.

==== {{locución|en|sustantiva}} ====

;1 {{csem|herramientas|leng=en}}: {{plm|sargento}} (herramienta).

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>ifmc78yn94ocgl53tt59igh4nxwcajq</sha1>
    </revision>
    <revision>
      <id>6123527</id>
      <parentid>6123526</parentid>
      <timestamp>2026-07-25T02:54:41Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* {{locución|en|sustantiva}} */</comment>
      <origin>6123527</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="269" sha1="h1nr0ic7kszgkdxw8pga7ypyd454s5q" xml:space="preserve">{{desambiguación|}}
== {{lengua|en}} ==
{{pron-graf|leng=en}}

=== Etimología ===
{{etimología|leng=en}}.

==== {{locución|en|sustantiva}} ====

;1 {{csem|carpintería|herramientas|leng=en}}: {{plm|sargento}} (herramienta).

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>h1nr0ic7kszgkdxw8pga7ypyd454s5q</sha1>
    </revision>
    <revision>
      <id>6123533</id>
      <parentid>6123527</parentid>
      <timestamp>2026-07-25T02:59:11Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123533</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="320" sha1="0862a1rm5c9uecv40i9nh2ykq65k1e5" xml:space="preserve">{{desambiguación|}}
== {{lengua|en}} ==
{{pron-graf|leng=en}}

=== Etimología ===
{{etimología|leng=en}}.

==== {{locución|en|sustantiva}} ====

;1 {{csem|mecánica|leng=en}}: {{plm|abrazadera}}.
;2 {{csem|carpintería|herramientas|leng=en}}: {{plm|sargento}} (herramienta).

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>0862a1rm5c9uecv40i9nh2ykq65k1e5</sha1>
    </revision>
  </page>
  <page>
    <title>escuadra de prueba</title>
    <ns>0</ns>
    <id>1065447</id>
    <revision>
      <id>6123529</id>
      <timestamp>2026-07-25T02:56:25Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología}}. [[Archivo:Trysquare.jpg|thumb|(1)]]  ==== {{locución|es|sustantiva|femenina}} ==== {{es.sust|cop=n}}  ;1 {{csem|carpintería|metalistería}}: Herramienta que se utiliza para marcar y comprobar ángulos de 90° en piezas de madera. Consta de una paleta ancha, fabricada de acero o bronce y remachada a un mango de madera.  ==== Véase también ==== {{w}}  ==== Traducciones ====…»</comment>
      <origin>6123529</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="544" sha1="ejcmjbye794qjyn6tv7yvwxawvhbd4j" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología}}.
[[Archivo:Trysquare.jpg|thumb|(1)]]

==== {{locución|es|sustantiva|femenina}} ====
{{es.sust|cop=n}}

;1 {{csem|carpintería|metalistería}}: Herramienta que se utiliza para marcar y comprobar ángulos de 90° en piezas de madera. Consta de una paleta ancha, fabricada de acero o bronce y remachada a un mango de madera.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>ejcmjbye794qjyn6tv7yvwxawvhbd4j</sha1>
    </revision>
    <revision>
      <id>6123530</id>
      <parentid>6123529</parentid>
      <timestamp>2026-07-25T02:56:52Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123530</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="607" sha1="b59byx6j43n8gc5bprid5b18qszukfs" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología}}.
[[Archivo:Trysquare.jpg|thumb|(1)]]

==== {{locución|es|sustantiva|femenina}} ====
{{es.sust|cop=n}}

;1 {{csem|carpintería|metalistería}}: Herramienta que se utiliza para marcar y comprobar ángulos de 90° en piezas de madera. Consta de una paleta ancha, fabricada de acero o bronce y remachada a un mango de madera.
{{sinónimo|escuadra de comprobación|escuadra de carpintero}}

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>b59byx6j43n8gc5bprid5b18qszukfs</sha1>
    </revision>
  </page>
  <page>
    <title>escuadra de comprobación</title>
    <ns>0</ns>
    <id>1065448</id>
    <revision>
      <id>6123531</id>
      <timestamp>2026-07-25T02:57:22Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología}}.  ==== {{locución|es|sustantiva|femenina}} ==== {{es.sust|cop=n}}  ;1 {{csem|carpintería|metalistería}}: {{plm|escuadra de prueba}}. {{sinónimo|escuadra de prueba|escuadra de carpintero}}  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123531</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="325" sha1="fgizbuvi19o1zfl6ebi81eg67fbu46g" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología}}.

==== {{locución|es|sustantiva|femenina}} ====
{{es.sust|cop=n}}

;1 {{csem|carpintería|metalistería}}: {{plm|escuadra de prueba}}.
{{sinónimo|escuadra de prueba|escuadra de carpintero}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>fgizbuvi19o1zfl6ebi81eg67fbu46g</sha1>
    </revision>
  </page>
  <page>
    <title>escuadra de carpintero</title>
    <ns>0</ns>
    <id>1065449</id>
    <revision>
      <id>6123532</id>
      <timestamp>2026-07-25T02:57:37Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología}}.  ==== {{locución|es|sustantiva|femenina}} ==== {{es.sust|cop=n}}  ;1 {{csem|carpintería|metalistería}}: {{plm|escuadra de prueba}}. {{sinónimo|escuadra de prueba|escuadra de comprobación}}  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123532</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="328" sha1="lekydygwdyhko8ugxz1oz6ko0075w2g" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología}}.

==== {{locución|es|sustantiva|femenina}} ====
{{es.sust|cop=n}}

;1 {{csem|carpintería|metalistería}}: {{plm|escuadra de prueba}}.
{{sinónimo|escuadra de prueba|escuadra de comprobación}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>lekydygwdyhko8ugxz1oz6ko0075w2g</sha1>
    </revision>
  </page>
  <page>
    <title>lijadora</title>
    <ns>0</ns>
    <id>1065450</id>
    <revision>
      <id>6123538</id>
      <timestamp>2026-07-25T03:12:40Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología|femenino|lijador}}. [[File:Belt sander bosch.jpg|thumb|(1) Lijadora de banda]]  ==== {{sustantivo femenino|es}} ==== {{es.sust}}  ;1 {{csem|máquinas|herramientas|carpintería}}: Máquina-herramienta usada para lijar.  ==== Traducciones ==== {{trad-arriba}} {{trad-abajo}}  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123538</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="404" sha1="8p6gkxd745ciuhz3cdzw7o9o9goty5w" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|femenino|lijador}}.
[[File:Belt sander bosch.jpg|thumb|(1) Lijadora de banda]]

==== {{sustantivo femenino|es}} ====
{{es.sust}}

;1 {{csem|máquinas|herramientas|carpintería}}: Máquina-herramienta usada para lijar.

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>8p6gkxd745ciuhz3cdzw7o9o9goty5w</sha1>
    </revision>
  </page>
  <page>
    <title>lijador</title>
    <ns>0</ns>
    <id>1065451</id>
    <revision>
      <id>6123539</id>
      <timestamp>2026-07-25T03:13:15Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología}}.  ==== {{adjetivo|es}} ==== {{es.adj}}  ;1: {{adjetivo de verbo|lijar|lija}}.  ==== Véase también ==== * [[lijadora]]  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123539</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="253" sha1="ieq00j8hp4ohvsrnej2ywhza4ckz8oj" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología}}.

==== {{adjetivo|es}} ====
{{es.adj}}

;1: {{adjetivo de verbo|lijar|lija}}.

==== Véase también ====
* [[lijadora]]

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>ieq00j8hp4ohvsrnej2ywhza4ckz8oj</sha1>
    </revision>
  </page>
  <page>
    <title>berbiquí</title>
    <ns>0</ns>
    <id>1065452</id>
    <revision>
      <id>6123540</id>
      <timestamp>2026-07-25T03:17:05Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf|v=villabarquín|v2=billamarquín}}  === Etimología === {{etimología|fr|vilebrequin}}, {{etim|nl|wimmelkijn}}. [[File:PalmercarpenterA.jpg|thumb|(1) Carpintero usando un berbiquí]]  ==== {{sustantivo masculino|es}} ==== {{es.sust}}  ;1 {{csem|carpintería}}: Herramienta manual de perforación, provista de un manubrio semicircular o en forma de doble codo realizado en metal, normalmente de acero, con elementos de m…»</comment>
      <origin>6123540</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="645" sha1="4d90ufysrr7r9mysio6ja1s0s0ygqlu" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf|v=villabarquín|v2=billamarquín}}

=== Etimología ===
{{etimología|fr|vilebrequin}}, {{etim|nl|wimmelkijn}}.
[[File:PalmercarpenterA.jpg|thumb|(1) Carpintero usando un berbiquí]]

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1 {{csem|carpintería}}: Herramienta manual de perforación, provista de un manubrio semicircular o en forma de doble codo realizado en metal, normalmente de acero, con elementos de madera. Es el precursor del taladro moderno.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>4d90ufysrr7r9mysio6ja1s0s0ygqlu</sha1>
    </revision>
    <revision>
      <id>6123541</id>
      <parentid>6123540</parentid>
      <timestamp>2026-07-25T03:17:37Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* {{sustantivo masculino|es}} */</comment>
      <origin>6123541</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="658" sha1="70tj6ey5foeyr6cuq7ejjqanhomnzvm" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf|v=villabarquín|v2=billamarquín}}

=== Etimología ===
{{etimología|fr|vilebrequin}}, {{etim|nl|wimmelkijn}}.
[[File:PalmercarpenterA.jpg|thumb|(1) Carpintero usando un berbiquí]]

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1 {{csem|carpintería|herramientas}}: Herramienta manual de perforación, provista de un manubrio semicircular o en forma de doble codo realizado en metal, normalmente de acero, con elementos de madera. Es el precursor del taladro moderno.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>70tj6ey5foeyr6cuq7ejjqanhomnzvm</sha1>
    </revision>
    <revision>
      <id>6123547</id>
      <parentid>6123541</parentid>
      <timestamp>2026-07-25T03:20:28Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>/* {{sustantivo masculino|es}} */</comment>
      <origin>6123547</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="610" sha1="qmxggpkkg92i2y49bjk4kzxcgy5ohae" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf|v=villabarquín|v2=billamarquín}}

=== Etimología ===
{{etimología|fr|vilebrequin}}, {{etim|nl|wimmelkijn}}.
[[File:PalmercarpenterA.jpg|thumb|(1) Carpintero usando un berbiquí]]

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1 {{csem|carpintería|herramientas}}: Herramienta manual de perforación, provista de un manubrio semicircular o en forma de doble codo unido a una mecha. Es el precursor del taladro moderno.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>qmxggpkkg92i2y49bjk4kzxcgy5ohae</sha1>
    </revision>
    <revision>
      <id>6123548</id>
      <parentid>6123547</parentid>
      <timestamp>2026-07-25T03:20:51Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123548</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="619" sha1="mt25ajzi722vhgghmpwrkjeozpmnguw" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf|v=villabarquín|v2=billamarquín}}

=== Etimología ===
{{etimología|fr|vilebrequin}}, {{etim|nl|wimmelkijn}}.
[[File:PalmercarpenterA.jpg|thumb|(1) Carpintero agujereando con un berbiquí]]

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1 {{csem|carpintería|herramientas}}: Herramienta manual de perforación, provista de un manubrio semicircular o en forma de doble codo unido a una mecha. Es el precursor del taladro moderno.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>mt25ajzi722vhgghmpwrkjeozpmnguw</sha1>
    </revision>
  </page>
  <page>
    <title>villabarquín</title>
    <ns>0</ns>
    <id>1065453</id>
    <revision>
      <id>6123542</id>
      <timestamp>2026-07-25T03:18:09Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología|véase|berbiquín}}.  ==== {{sustantivo masculino|es}} ==== {{es.sust}}  ;1 {{csem|carpintería|herramientas}}: {{variante|berbiquín}}.  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123542</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="268" sha1="li7ty4re3tmlpsnqmlioywobdd1pakv" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|véase|berbiquín}}.

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1 {{csem|carpintería|herramientas}}: {{variante|berbiquín}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>li7ty4re3tmlpsnqmlioywobdd1pakv</sha1>
    </revision>
    <revision>
      <id>6123543</id>
      <parentid>6123542</parentid>
      <timestamp>2026-07-25T03:18:20Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123543</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="266" sha1="o007ysmrd3rp6s7ebode7tnptdz5cl2" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|véase|berbiquí}}.

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1 {{csem|carpintería|herramientas}}: {{variante|berbiquí}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>o007ysmrd3rp6s7ebode7tnptdz5cl2</sha1>
    </revision>
    <revision>
      <id>6123546</id>
      <parentid>6123543</parentid>
      <timestamp>2026-07-25T03:19:23Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123546</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="300" sha1="ab7maehb5cf38v7opzk0f1mzdeh2975" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|véase|berbiquí}}.

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1 {{csem|carpintería|herramientas}}: {{variante|berbiquí}}.
{{uso|rural}}
{{ámbito|Aragón}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>ab7maehb5cf38v7opzk0f1mzdeh2975</sha1>
    </revision>
  </page>
  <page>
    <title>billamarquín</title>
    <ns>0</ns>
    <id>1065454</id>
    <revision>
      <id>6123544</id>
      <timestamp>2026-07-25T03:18:42Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología|véase|berbiquí}}.  ==== {{sustantivo masculino|es}} ==== {{es.sust}}  ;1 {{csem|carpintería|herramientas}}: {{variante|berbiquí}}.  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123544</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="266" sha1="o007ysmrd3rp6s7ebode7tnptdz5cl2" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|véase|berbiquí}}.

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1 {{csem|carpintería|herramientas}}: {{variante|berbiquí}}.

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>o007ysmrd3rp6s7ebode7tnptdz5cl2</sha1>
    </revision>
    <revision>
      <id>6123545</id>
      <parentid>6123544</parentid>
      <timestamp>2026-07-25T03:19:04Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <origin>6123545</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="287" sha1="92isauvo2ss4cgcztlsg5rodfvhyhvm" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología|véase|berbiquí}}.

==== {{sustantivo masculino|es}} ====
{{es.sust}}

;1 {{csem|carpintería|herramientas}}: {{variante|berbiquí}}.
{{ámbito|Colombia}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>92isauvo2ss4cgcztlsg5rodfvhyhvm</sha1>
    </revision>
  </page>
  <page>
    <title>integrador social</title>
    <ns>0</ns>
    <id>1065455</id>
    <revision>
      <id>6123551</id>
      <timestamp>2026-07-25T03:27:04Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología}}.  ==== {{locución|es|sustantiva|masculina|femenina}} ==== {{es.sust|mf|cop=n}}  ;1 {{csem|ocupaciones}}: Persona formada para intervenir en grupos sociales para solventar las situaciones de exclusión social.  ==== Véase también ==== {{w}}  ==== Traducciones ==== {{trad-arriba}} {{trad-abajo}}  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123551</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="431" sha1="6pllnrcs9g9wdp07n4ko2tgefovq72x" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología}}.

==== {{locución|es|sustantiva|masculina|femenina}} ====
{{es.sust|mf|cop=n}}

;1 {{csem|ocupaciones}}: Persona formada para intervenir en grupos sociales para solventar las situaciones de exclusión social.

==== Véase también ====
{{w}}

==== Traducciones ====
{{trad-arriba}}
{{trad-abajo}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>6pllnrcs9g9wdp07n4ko2tgefovq72x</sha1>
    </revision>
  </page>
  <page>
    <title>-ongo</title>
    <ns>0</ns>
    <id>1065456</id>
    <revision>
      <id>6123552</id>
      <timestamp>2026-07-25T04:18:12Z</timestamp>
      <contributor>
        <username>Tmagc</username>
        <id>158167</id>
      </contributor>
      <comment>Página creada con «{{desambiguación|}} == {{lengua|es}} == {{pron-graf}}  === Etimología === {{etimología}}.  ==== {{sufijo|es}} ====  ;1: {{variante|-ango}}. {{uso|despectivo|jocoso}} {{ejemplo|[[facilongo]], [[sorongo]]}}  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123552</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="249" sha1="h6gdx8y8f4urpcjuft2u82i90z8ckau" xml:space="preserve">{{desambiguación|}}
== {{lengua|es}} ==
{{pron-graf}}

=== Etimología ===
{{etimología}}.

==== {{sufijo|es}} ====

;1: {{variante|-ango}}.
{{uso|despectivo|jocoso}}
{{ejemplo|[[facilongo]], [[sorongo]]}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>h6gdx8y8f4urpcjuft2u82i90z8ckau</sha1>
    </revision>
  </page>
  <page>
    <title>bile</title>
    <ns>0</ns>
    <id>1065457</id>
    <revision>
      <id>6123557</id>
      <timestamp>2026-07-25T05:20:38Z</timestamp>
      <contributor>
        <username>CitationsFreak</username>
        <id>149699</id>
      </contributor>
      <comment>Página creada con «== {{lengua|en}} == {{pron-graf|leng=en|pron=General American, Canadá|fono=baɪl}}  === Etimología === {{etimología|leng=en|frm|bile}}, {{etim|la|bilis}}.  ==== {{sustantivo|en}} ====   ;1: [[bilis]] (líquido segregado por el hígado) ;2: [[bilis]] (mal humor)  ==== Véase también ==== {{w|leng=en}}  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123557</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="347" sha1="h29xyzeuvrrmb6gko1t20m8miqa3rwq" xml:space="preserve">== {{lengua|en}} ==
{{pron-graf|leng=en|pron=General American, Canadá|fono=baɪl}}

=== Etimología ===
{{etimología|leng=en|frm|bile}}, {{etim|la|bilis}}.

==== {{sustantivo|en}} ==== 

;1: [[bilis]] (líquido segregado por el hígado)
;2: [[bilis]] (mal humor)

==== Véase también ====
{{w|leng=en}}

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>h29xyzeuvrrmb6gko1t20m8miqa3rwq</sha1>
    </revision>
  </page>
  <page>
    <title>tsʼiiw</title>
    <ns>0</ns>
    <id>1065458</id>
    <revision>
      <id>6123572</id>
      <timestamp>2026-07-25T11:22:20Z</timestamp>
      <contributor>
        <username>26agcp</username>
        <id>138617</id>
      </contributor>
      <comment>Página creada con «== {{lengua|yua}} == {{pron-graf|leng=yua|g=ts'iiw}}  === Etimología === {{etimología|leng=yua}}. [[Archivo:Molothrus aeneus -Tucson, Arizona, USA-8 (1).jpg|thumb|(1)]]  ==== {{sustantivo|yua}} ==== {{yua.sust}} ;1 {{csem|aves|leng=yua}}: {{taxón|Molothrus aeneus}} {{plm|tordo}} ojos rojos.&lt;ref&gt;{{GN 2009|p=180|cita=TS’IIW}}&lt;/ref&gt;  == Referencias y notas == &lt;references /&gt;»</comment>
      <origin>6123572</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="378" sha1="eg9mf3cphz301p2nfjcyzjclfapp50n" xml:space="preserve">== {{lengua|yua}} ==
{{pron-graf|leng=yua|g=ts'iiw}}

=== Etimología ===
{{etimología|leng=yua}}.
[[Archivo:Molothrus aeneus -Tucson, Arizona, USA-8 (1).jpg|thumb|(1)]]

==== {{sustantivo|yua}} ====
{{yua.sust}}
;1 {{csem|aves|leng=yua}}: {{taxón|Molothrus aeneus}} {{plm|tordo}} ojos rojos.&lt;ref&gt;{{GN 2009|p=180|cita=TS’IIW}}&lt;/ref&gt;

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>eg9mf3cphz301p2nfjcyzjclfapp50n</sha1>
    </revision>
    <revision>
      <id>6123573</id>
      <parentid>6123572</parentid>
      <timestamp>2026-07-25T11:24:24Z</timestamp>
      <contributor>
        <username>26agcp</username>
        <id>138617</id>
      </contributor>
      <comment>/* {{sustantivo|yua}} */ + ref</comment>
      <origin>6123573</origin>
      <model>wikitext</model>
      <format>text/x-wiki</format>
      <text bytes="965" sha1="0a8d4hw3puiycjq0euf7u2lramrimni" xml:space="preserve">== {{lengua|yua}} ==
{{pron-graf|leng=yua|g=ts'iiw}}

=== Etimología ===
{{etimología|leng=yua}}.
[[Archivo:Molothrus aeneus -Tucson, Arizona, USA-8 (1).jpg|thumb|(1)]]

==== {{sustantivo|yua}} ====
{{yua.sust}}
;1 {{csem|aves|leng=yua}}: {{taxón|Molothrus aeneus}} {{plm|tordo}} ojos rojos.&lt;ref&gt;{{GN 2009|p=180|cita=TS’IIW}}&lt;/ref&gt;&lt;ref&gt;{{referencia|c=libro|a1=Alfredo Dorantes Euan|a2=Ingrid A. Tello López|a3=Aldo I. Echeverría Caro|a4=Gerardo I. Linares Hernández|a5=Ariadna Ibarra Morales|a6=Davira Y. Palma Cancino|a7=Darleny R. Sanmiguel Caamal|a8=Sebastián Gay Escalante|a9=Richard E. Feldman|u=https://www.cicy.mx/Documentos/CICY/sitios/CircuitoEtnobiologico/Repositorio/Etapa4/Acceso-Universal/2024_Catalogo-aves-CICY.pdf|t=Guía de aves del Jardín Botánico Regional “Roger Orellana”|f=2024|editorial=Centro de Investigación Científica de Yucatán|edición=2|formato=PDF|lugar=México|p=113}}&lt;/ref&gt;

== Referencias y notas ==
&lt;references /&gt;</text>
      <sha1>0a8d4hw3puiycjq0euf7u2lramrimni</sha1>
    </revision>
  </page>
</mediawiki>