#include <stdint.h>
#include <stdlib.h>
#include "el_runtime.h"

el_val_t str_ends(el_val_t s, el_val_t suf);
el_val_t str_last_char(el_val_t s);
el_val_t str_last2(el_val_t s);
el_val_t str_last3(el_val_t s);
el_val_t str_drop_last(el_val_t s, el_val_t n);
el_val_t is_vowel(el_val_t c);
el_val_t morph_apply_suffix(el_val_t base, el_val_t suffix);
el_val_t en_irregular_plural(el_val_t word);
el_val_t en_irregular_singular(el_val_t word);
el_val_t en_irregular_verb(el_val_t base);
el_val_t en_verb_3sg(el_val_t base);
el_val_t en_should_double_final(el_val_t base);
el_val_t en_verb_past(el_val_t base);
el_val_t en_verb_gerund(el_val_t base);
el_val_t en_pluralize_regular(el_val_t singular);
el_val_t en_verb_form(el_val_t base, el_val_t tense, el_val_t person, el_val_t number);
el_val_t agree_determiner(el_val_t det, el_val_t noun);
el_val_t morph_pluralize(el_val_t noun, el_val_t profile);
el_val_t morph_map_canonical(el_val_t verb, el_val_t code);
el_val_t morph_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t number, el_val_t profile);
el_val_t morph_inflect(el_val_t word, el_val_t features, el_val_t profile);
el_val_t pluralize(el_val_t singular);
el_val_t singularize(el_val_t plural);
el_val_t verb_form(el_val_t base, el_val_t tense, el_val_t person, el_val_t number);
el_val_t irregular_plural(el_val_t word);
el_val_t irregular_singular(el_val_t word);
el_val_t fr_str_ends(el_val_t s, el_val_t suf);
el_val_t fr_str_drop_last(el_val_t s, el_val_t n);
el_val_t fr_str_last_char(el_val_t s);
el_val_t fr_str_last2(el_val_t s);
el_val_t fr_is_vowel_start(el_val_t s);
el_val_t fr_is_known_irregular(el_val_t verb);
el_val_t fr_verb_group(el_val_t base);
el_val_t fr_stem(el_val_t base);
el_val_t fr_slot(el_val_t person, el_val_t number);
el_val_t fr_irregular_present(el_val_t verb, el_val_t person, el_val_t number);
el_val_t fr_regular_present(el_val_t stem, el_val_t vgroup, el_val_t slot);
el_val_t fr_future_stem(el_val_t base, el_val_t vgroup);
el_val_t fr_regular_future(el_val_t fstem, el_val_t slot);
el_val_t fr_irregular_future_stem(el_val_t verb);
el_val_t fr_imperfect_stem(el_val_t base, el_val_t vgroup);
el_val_t fr_regular_imperfect(el_val_t istem, el_val_t slot);
el_val_t fr_uses_etre(el_val_t verb);
el_val_t fr_past_participle(el_val_t verb);
el_val_t fr_avoir_present(el_val_t slot);
el_val_t fr_etre_present(el_val_t slot);
el_val_t fr_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t number);
el_val_t fr_gender(el_val_t noun);
el_val_t fr_invariant_plural(el_val_t noun);
el_val_t fr_pluralize(el_val_t noun);
el_val_t fr_agree_article(el_val_t noun, el_val_t definite, el_val_t number);
el_val_t fr_subject_starts_vowel(el_val_t subject);
el_val_t fr_verb_ends_vowel(el_val_t verb_form);
el_val_t fr_question_inversion(el_val_t subject, el_val_t verb_form);

el_val_t fr_str_ends(el_val_t s, el_val_t suf) {
  return str_ends_with(s, suf);
  return 0;
}

el_val_t fr_str_drop_last(el_val_t s, el_val_t n) {
  el_val_t len = str_len(s);
  if (n >= len) {
    return EL_STR("");
  }
  return str_slice(s, 0, (len - n));
  return 0;
}

el_val_t fr_str_last_char(el_val_t s) {
  el_val_t n = str_len(s);
  if (n == 0) {
    return EL_STR("");
  }
  return str_slice(s, (n - 1), n);
  return 0;
}

el_val_t fr_str_last2(el_val_t s) {
  el_val_t n = str_len(s);
  if (n < 2) {
    return s;
  }
  return str_slice(s, (n - 2), n);
  return 0;
}

el_val_t fr_is_vowel_start(el_val_t s) {
  el_val_t n = str_len(s);
  if (n == 0) {
    return 0;
  }
  el_val_t c = str_slice(s, 0, 1);
  if (str_eq(c, EL_STR("a"))) {
    return 1;
  }
  if (str_eq(c, EL_STR("e"))) {
    return 1;
  }
  if (str_eq(c, EL_STR("\xc3\xa9"))) {
    return 1;
  }
  if (str_eq(c, EL_STR("\xc3\xa8"))) {
    return 1;
  }
  if (str_eq(c, EL_STR("\xc3\xaa"))) {
    return 1;
  }
  if (str_eq(c, EL_STR("i"))) {
    return 1;
  }
  if (str_eq(c, EL_STR("\xc3\xae"))) {
    return 1;
  }
  if (str_eq(c, EL_STR("o"))) {
    return 1;
  }
  if (str_eq(c, EL_STR("\xc3\xb4"))) {
    return 1;
  }
  if (str_eq(c, EL_STR("u"))) {
    return 1;
  }
  if (str_eq(c, EL_STR("\xc3\xbb"))) {
    return 1;
  }
  if (str_eq(c, EL_STR("h"))) {
    return 1;
  }
  return 0;
  return 0;
}

el_val_t fr_is_known_irregular(el_val_t verb) {
  if (str_eq(verb, EL_STR("\xc3\xaatre"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("avoir"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("aller"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("faire"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("pouvoir"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("vouloir"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("venir"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("dire"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("voir"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("prendre"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("mettre"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("savoir"))) {
    return 1;
  }
  return 0;
  return 0;
}

el_val_t fr_verb_group(el_val_t base) {
  if (fr_is_known_irregular(base)) {
    return EL_STR("irregular");
  }
  if (fr_str_ends(base, EL_STR("er"))) {
    return EL_STR("er");
  }
  if (fr_str_ends(base, EL_STR("ir"))) {
    return EL_STR("ir");
  }
  if (fr_str_ends(base, EL_STR("re"))) {
    return EL_STR("re");
  }
  return EL_STR("er");
  return 0;
}

el_val_t fr_stem(el_val_t base) {
  return fr_str_drop_last(base, 2);
  return 0;
}

el_val_t fr_slot(el_val_t person, el_val_t number) {
  if (str_eq(person, EL_STR("first"))) {
    if (str_eq(number, EL_STR("singular"))) {
      return 0;
    }
    return 3;
  }
  if (str_eq(person, EL_STR("second"))) {
    if (str_eq(number, EL_STR("singular"))) {
      return 1;
    }
    return 4;
  }
  if (str_eq(number, EL_STR("singular"))) {
    return 2;
  }
  return 5;
  return 0;
}

el_val_t fr_irregular_present(el_val_t verb, el_val_t person, el_val_t number) {
  el_val_t slot = fr_slot(person, number);
  if (str_eq(verb, EL_STR("\xc3\xaatre"))) {
    if (slot == 0) {
      return EL_STR("suis");
    }
    if (slot == 1) {
      return EL_STR("es");
    }
    if (slot == 2) {
      return EL_STR("est");
    }
    if (slot == 3) {
      return EL_STR("sommes");
    }
    if (slot == 4) {
      return EL_STR("etes");
    }
    return EL_STR("sont");
  }
  if (str_eq(verb, EL_STR("etre"))) {
    if (slot == 0) {
      return EL_STR("suis");
    }
    if (slot == 1) {
      return EL_STR("es");
    }
    if (slot == 2) {
      return EL_STR("est");
    }
    if (slot == 3) {
      return EL_STR("sommes");
    }
    if (slot == 4) {
      return EL_STR("etes");
    }
    return EL_STR("sont");
  }
  if (str_eq(verb, EL_STR("avoir"))) {
    if (slot == 0) {
      return EL_STR("ai");
    }
    if (slot == 1) {
      return EL_STR("as");
    }
    if (slot == 2) {
      return EL_STR("a");
    }
    if (slot == 3) {
      return EL_STR("avons");
    }
    if (slot == 4) {
      return EL_STR("avez");
    }
    return EL_STR("ont");
  }
  if (str_eq(verb, EL_STR("aller"))) {
    if (slot == 0) {
      return EL_STR("vais");
    }
    if (slot == 1) {
      return EL_STR("vas");
    }
    if (slot == 2) {
      return EL_STR("va");
    }
    if (slot == 3) {
      return EL_STR("allons");
    }
    if (slot == 4) {
      return EL_STR("allez");
    }
    return EL_STR("vont");
  }
  if (str_eq(verb, EL_STR("faire"))) {
    if (slot == 0) {
      return EL_STR("fais");
    }
    if (slot == 1) {
      return EL_STR("fais");
    }
    if (slot == 2) {
      return EL_STR("fait");
    }
    if (slot == 3) {
      return EL_STR("faisons");
    }
    if (slot == 4) {
      return EL_STR("faites");
    }
    return EL_STR("font");
  }
  if (str_eq(verb, EL_STR("pouvoir"))) {
    if (slot == 0) {
      return EL_STR("peux");
    }
    if (slot == 1) {
      return EL_STR("peux");
    }
    if (slot == 2) {
      return EL_STR("peut");
    }
    if (slot == 3) {
      return EL_STR("pouvons");
    }
    if (slot == 4) {
      return EL_STR("pouvez");
    }
    return EL_STR("peuvent");
  }
  if (str_eq(verb, EL_STR("vouloir"))) {
    if (slot == 0) {
      return EL_STR("veux");
    }
    if (slot == 1) {
      return EL_STR("veux");
    }
    if (slot == 2) {
      return EL_STR("veut");
    }
    if (slot == 3) {
      return EL_STR("voulons");
    }
    if (slot == 4) {
      return EL_STR("voulez");
    }
    return EL_STR("veulent");
  }
  if (str_eq(verb, EL_STR("venir"))) {
    if (slot == 0) {
      return EL_STR("viens");
    }
    if (slot == 1) {
      return EL_STR("viens");
    }
    if (slot == 2) {
      return EL_STR("vient");
    }
    if (slot == 3) {
      return EL_STR("venons");
    }
    if (slot == 4) {
      return EL_STR("venez");
    }
    return EL_STR("viennent");
  }
  if (str_eq(verb, EL_STR("dire"))) {
    if (slot == 0) {
      return EL_STR("dis");
    }
    if (slot == 1) {
      return EL_STR("dis");
    }
    if (slot == 2) {
      return EL_STR("dit");
    }
    if (slot == 3) {
      return EL_STR("disons");
    }
    if (slot == 4) {
      return EL_STR("dites");
    }
    return EL_STR("disent");
  }
  if (str_eq(verb, EL_STR("voir"))) {
    if (slot == 0) {
      return EL_STR("vois");
    }
    if (slot == 1) {
      return EL_STR("vois");
    }
    if (slot == 2) {
      return EL_STR("voit");
    }
    if (slot == 3) {
      return EL_STR("voyons");
    }
    if (slot == 4) {
      return EL_STR("voyez");
    }
    return EL_STR("voient");
  }
  if (str_eq(verb, EL_STR("prendre"))) {
    if (slot == 0) {
      return EL_STR("prends");
    }
    if (slot == 1) {
      return EL_STR("prends");
    }
    if (slot == 2) {
      return EL_STR("prend");
    }
    if (slot == 3) {
      return EL_STR("prenons");
    }
    if (slot == 4) {
      return EL_STR("prenez");
    }
    return EL_STR("prennent");
  }
  if (str_eq(verb, EL_STR("mettre"))) {
    if (slot == 0) {
      return EL_STR("mets");
    }
    if (slot == 1) {
      return EL_STR("mets");
    }
    if (slot == 2) {
      return EL_STR("met");
    }
    if (slot == 3) {
      return EL_STR("mettons");
    }
    if (slot == 4) {
      return EL_STR("mettez");
    }
    return EL_STR("mettent");
  }
  if (str_eq(verb, EL_STR("savoir"))) {
    if (slot == 0) {
      return EL_STR("sais");
    }
    if (slot == 1) {
      return EL_STR("sais");
    }
    if (slot == 2) {
      return EL_STR("sait");
    }
    if (slot == 3) {
      return EL_STR("savons");
    }
    if (slot == 4) {
      return EL_STR("savez");
    }
    return EL_STR("savent");
  }
  return EL_STR("");
  return 0;
}

el_val_t fr_regular_present(el_val_t stem, el_val_t vgroup, el_val_t slot) {
  if (str_eq(vgroup, EL_STR("er"))) {
    if (slot == 0) {
      return el_str_concat(stem, EL_STR("e"));
    }
    if (slot == 1) {
      return el_str_concat(stem, EL_STR("es"));
    }
    if (slot == 2) {
      return el_str_concat(stem, EL_STR("e"));
    }
    if (slot == 3) {
      return el_str_concat(stem, EL_STR("ons"));
    }
    if (slot == 4) {
      return el_str_concat(stem, EL_STR("ez"));
    }
    return el_str_concat(stem, EL_STR("ent"));
  }
  if (str_eq(vgroup, EL_STR("ir"))) {
    if (slot == 0) {
      return el_str_concat(stem, EL_STR("is"));
    }
    if (slot == 1) {
      return el_str_concat(stem, EL_STR("is"));
    }
    if (slot == 2) {
      return el_str_concat(stem, EL_STR("it"));
    }
    if (slot == 3) {
      return el_str_concat(stem, EL_STR("issons"));
    }
    if (slot == 4) {
      return el_str_concat(stem, EL_STR("issez"));
    }
    return el_str_concat(stem, EL_STR("issent"));
  }
  if (slot == 0) {
    return el_str_concat(stem, EL_STR("s"));
  }
  if (slot == 1) {
    return el_str_concat(stem, EL_STR("s"));
  }
  if (slot == 2) {
    return stem;
  }
  if (slot == 3) {
    return el_str_concat(stem, EL_STR("ons"));
  }
  if (slot == 4) {
    return el_str_concat(stem, EL_STR("ez"));
  }
  return el_str_concat(stem, EL_STR("ent"));
  return 0;
}

el_val_t fr_future_stem(el_val_t base, el_val_t vgroup) {
  if (str_eq(vgroup, EL_STR("re"))) {
    return fr_str_drop_last(base, 1);
  }
  return base;
  return 0;
}

el_val_t fr_regular_future(el_val_t fstem, el_val_t slot) {
  if (slot == 0) {
    return el_str_concat(fstem, EL_STR("ai"));
  }
  if (slot == 1) {
    return el_str_concat(fstem, EL_STR("as"));
  }
  if (slot == 2) {
    return el_str_concat(fstem, EL_STR("a"));
  }
  if (slot == 3) {
    return el_str_concat(fstem, EL_STR("ons"));
  }
  if (slot == 4) {
    return el_str_concat(fstem, EL_STR("ez"));
  }
  return el_str_concat(fstem, EL_STR("ont"));
  return 0;
}

el_val_t fr_irregular_future_stem(el_val_t verb) {
  if (str_eq(verb, EL_STR("\xc3\xaatre"))) {
    return EL_STR("ser");
  }
  if (str_eq(verb, EL_STR("avoir"))) {
    return EL_STR("aur");
  }
  if (str_eq(verb, EL_STR("aller"))) {
    return EL_STR("ir");
  }
  if (str_eq(verb, EL_STR("faire"))) {
    return EL_STR("fer");
  }
  if (str_eq(verb, EL_STR("pouvoir"))) {
    return EL_STR("pourr");
  }
  if (str_eq(verb, EL_STR("vouloir"))) {
    return EL_STR("voudr");
  }
  if (str_eq(verb, EL_STR("venir"))) {
    return EL_STR("viendr");
  }
  if (str_eq(verb, EL_STR("voir"))) {
    return EL_STR("verr");
  }
  if (str_eq(verb, EL_STR("savoir"))) {
    return EL_STR("saur");
  }
  return EL_STR("");
  return 0;
}

el_val_t fr_imperfect_stem(el_val_t base, el_val_t vgroup) {
  if (str_eq(base, EL_STR("\xc3\xaatre"))) {
    return EL_STR("\xc3\xa9t");
  }
  return fr_stem(base);
  return 0;
}

el_val_t fr_regular_imperfect(el_val_t istem, el_val_t slot) {
  if (slot == 0) {
    return el_str_concat(istem, EL_STR("ais"));
  }
  if (slot == 1) {
    return el_str_concat(istem, EL_STR("ais"));
  }
  if (slot == 2) {
    return el_str_concat(istem, EL_STR("ait"));
  }
  if (slot == 3) {
    return el_str_concat(istem, EL_STR("ions"));
  }
  if (slot == 4) {
    return el_str_concat(istem, EL_STR("iez"));
  }
  return el_str_concat(istem, EL_STR("aient"));
  return 0;
}

el_val_t fr_uses_etre(el_val_t verb) {
  if (str_eq(verb, EL_STR("aller"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("venir"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("partir"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("arriver"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("entrer"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("sortir"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("na\xc3\xaetre"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("mourir"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("rester"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("tomber"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("monter"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("descendre"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("rentrer"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("retourner"))) {
    return 1;
  }
  if (str_eq(verb, EL_STR("passer"))) {
    return 1;
  }
  return 0;
  return 0;
}

el_val_t fr_past_participle(el_val_t verb) {
  if (str_eq(verb, EL_STR("\xc3\xaatre"))) {
    return EL_STR("\xc3\xa9t\xc3\xa9");
  }
  if (str_eq(verb, EL_STR("avoir"))) {
    return EL_STR("eu");
  }
  if (str_eq(verb, EL_STR("aller"))) {
    return EL_STR("all\xc3\xa9");
  }
  if (str_eq(verb, EL_STR("faire"))) {
    return EL_STR("fait");
  }
  if (str_eq(verb, EL_STR("pouvoir"))) {
    return EL_STR("pu");
  }
  if (str_eq(verb, EL_STR("vouloir"))) {
    return EL_STR("voulu");
  }
  if (str_eq(verb, EL_STR("venir"))) {
    return EL_STR("venu");
  }
  if (str_eq(verb, EL_STR("dire"))) {
    return EL_STR("dit");
  }
  if (str_eq(verb, EL_STR("voir"))) {
    return EL_STR("vu");
  }
  if (str_eq(verb, EL_STR("prendre"))) {
    return EL_STR("pris");
  }
  if (str_eq(verb, EL_STR("mettre"))) {
    return EL_STR("mis");
  }
  if (str_eq(verb, EL_STR("savoir"))) {
    return EL_STR("su");
  }
  if (str_eq(verb, EL_STR("na\xc3\xaetre"))) {
    return EL_STR("n\xc3\xa9");
  }
  if (str_eq(verb, EL_STR("mourir"))) {
    return EL_STR("mort");
  }
  el_val_t vgroup = fr_verb_group(verb);
  if (str_eq(vgroup, EL_STR("er"))) {
    return el_str_concat(fr_str_drop_last(verb, 2), EL_STR("\xc3\xa9"));
  }
  if (str_eq(vgroup, EL_STR("ir"))) {
    return el_str_concat(fr_str_drop_last(verb, 2), EL_STR("i"));
  }
  return el_str_concat(fr_str_drop_last(verb, 2), EL_STR("u"));
  return 0;
}

el_val_t fr_avoir_present(el_val_t slot) {
  if (slot == 0) {
    return EL_STR("ai");
  }
  if (slot == 1) {
    return EL_STR("as");
  }
  if (slot == 2) {
    return EL_STR("a");
  }
  if (slot == 3) {
    return EL_STR("avons");
  }
  if (slot == 4) {
    return EL_STR("avez");
  }
  return EL_STR("ont");
  return 0;
}

el_val_t fr_etre_present(el_val_t slot) {
  if (slot == 0) {
    return EL_STR("suis");
  }
  if (slot == 1) {
    return EL_STR("es");
  }
  if (slot == 2) {
    return EL_STR("est");
  }
  if (slot == 3) {
    return EL_STR("sommes");
  }
  if (slot == 4) {
    return EL_STR("\xc3\xaates");
  }
  return EL_STR("sont");
  return 0;
}

el_val_t fr_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t number) {
  el_val_t slot = fr_slot(person, number);
  if (str_eq(tense, EL_STR("present"))) {
    el_val_t irreg = fr_irregular_present(verb, person, number);
    if (!str_eq(irreg, EL_STR(""))) {
      return irreg;
    }
    el_val_t vgroup = fr_verb_group(verb);
    el_val_t stem = fr_stem(verb);
    return fr_regular_present(stem, vgroup, slot);
  }
  if (str_eq(tense, EL_STR("future"))) {
    el_val_t irreg_stem = fr_irregular_future_stem(verb);
    if (!str_eq(irreg_stem, EL_STR(""))) {
      return fr_regular_future(irreg_stem, slot);
    }
    el_val_t vgroup = fr_verb_group(verb);
    el_val_t fstem = fr_future_stem(verb, vgroup);
    return fr_regular_future(fstem, slot);
  }
  if (str_eq(tense, EL_STR("imperfect"))) {
    el_val_t vgroup = fr_verb_group(verb);
    el_val_t istem = fr_imperfect_stem(verb, vgroup);
    return fr_regular_imperfect(istem, slot);
  }
  if (str_eq(tense, EL_STR("past"))) {
    el_val_t pp = fr_past_participle(verb);
    if (fr_uses_etre(verb)) {
      el_val_t aux = fr_etre_present(slot);
      return el_str_concat(el_str_concat(aux, EL_STR(" ")), pp);
    }
    el_val_t aux = fr_avoir_present(slot);
    return el_str_concat(el_str_concat(aux, EL_STR(" ")), pp);
  }
  return verb;
  return 0;
}

el_val_t fr_gender(el_val_t noun) {
  if (fr_str_ends(noun, EL_STR("tion"))) {
    return EL_STR("f");
  }
  if (fr_str_ends(noun, EL_STR("sion"))) {
    return EL_STR("f");
  }
  if (fr_str_ends(noun, EL_STR("xion"))) {
    return EL_STR("f");
  }
  if (fr_str_ends(noun, EL_STR("ure"))) {
    return EL_STR("f");
  }
  if (fr_str_ends(noun, EL_STR("ette"))) {
    return EL_STR("f");
  }
  if (fr_str_ends(noun, EL_STR("ance"))) {
    return EL_STR("f");
  }
  if (fr_str_ends(noun, EL_STR("ence"))) {
    return EL_STR("f");
  }
  if (fr_str_ends(noun, EL_STR("it\xc3\xa9"))) {
    return EL_STR("f");
  }
  if (fr_str_ends(noun, EL_STR("t\xc3\xa9"))) {
    return EL_STR("f");
  }
  if (fr_str_ends(noun, EL_STR("ti\xc3\xa9"))) {
    return EL_STR("f");
  }
  if (fr_str_ends(noun, EL_STR("ude"))) {
    return EL_STR("f");
  }
  if (fr_str_ends(noun, EL_STR("ade"))) {
    return EL_STR("f");
  }
  if (fr_str_ends(noun, EL_STR("\xc3\xa9""e"))) {
    return EL_STR("f");
  }
  if (fr_str_ends(noun, EL_STR("ie"))) {
    return EL_STR("f");
  }
  if (fr_str_ends(noun, EL_STR("ment"))) {
    return EL_STR("m");
  }
  if (fr_str_ends(noun, EL_STR("age"))) {
    return EL_STR("m");
  }
  if (fr_str_ends(noun, EL_STR("isme"))) {
    return EL_STR("m");
  }
  if (fr_str_ends(noun, EL_STR("eau"))) {
    return EL_STR("m");
  }
  if (fr_str_ends(noun, EL_STR("eur"))) {
    return EL_STR("m");
  }
  if (fr_str_ends(noun, EL_STR("er"))) {
    return EL_STR("m");
  }
  if (fr_str_ends(noun, EL_STR("\xc3\xa9"))) {
    return EL_STR("m");
  }
  return EL_STR("unknown");
  return 0;
}

el_val_t fr_invariant_plural(el_val_t noun) {
  el_val_t last = fr_str_last_char(noun);
  if (str_eq(last, EL_STR("s"))) {
    return noun;
  }
  if (str_eq(last, EL_STR("x"))) {
    return noun;
  }
  if (str_eq(last, EL_STR("z"))) {
    return noun;
  }
  return EL_STR("");
  return 0;
}

el_val_t fr_pluralize(el_val_t noun) {
  el_val_t inv = fr_invariant_plural(noun);
  if (!str_eq(inv, EL_STR(""))) {
    return inv;
  }
  if (fr_str_ends(noun, EL_STR("eau"))) {
    return el_str_concat(noun, EL_STR("x"));
  }
  if (fr_str_ends(noun, EL_STR("eu"))) {
    return el_str_concat(noun, EL_STR("x"));
  }
  if (fr_str_ends(noun, EL_STR("al"))) {
    return el_str_concat(fr_str_drop_last(noun, 2), EL_STR("aux"));
  }
  if (fr_str_ends(noun, EL_STR("ail"))) {
    return el_str_concat(fr_str_drop_last(noun, 3), EL_STR("aux"));
  }
  return el_str_concat(noun, EL_STR("s"));
  return 0;
}

el_val_t fr_agree_article(el_val_t noun, el_val_t definite, el_val_t number) {
  el_val_t gender = fr_gender(noun);
  el_val_t is_plural = str_eq(number, EL_STR("plural"));
  el_val_t is_def = str_eq(definite, EL_STR("true"));
  el_val_t vowel_start = fr_is_vowel_start(noun);
  if (is_def) {
    if (is_plural) {
      return EL_STR("les");
    }
    if (vowel_start) {
      return EL_STR("l'");
    }
    if (str_eq(gender, EL_STR("f"))) {
      return EL_STR("la");
    }
    return EL_STR("le");
  }
  if (is_plural) {
    return EL_STR("des");
  }
  if (str_eq(gender, EL_STR("f"))) {
    return EL_STR("une");
  }
  return EL_STR("un");
  return 0;
}

el_val_t fr_subject_starts_vowel(el_val_t subject) {
  if (str_eq(subject, EL_STR("il"))) {
    return 1;
  }
  if (str_eq(subject, EL_STR("elle"))) {
    return 1;
  }
  if (str_eq(subject, EL_STR("ils"))) {
    return 1;
  }
  if (str_eq(subject, EL_STR("elles"))) {
    return 1;
  }
  return 0;
  return 0;
}

el_val_t fr_verb_ends_vowel(el_val_t verb_form) {
  el_val_t last = fr_str_last_char(verb_form);
  if (str_eq(last, EL_STR("a"))) {
    return 1;
  }
  if (str_eq(last, EL_STR("e"))) {
    return 1;
  }
  if (str_eq(last, EL_STR("\xc3\xa9"))) {
    return 1;
  }
  if (str_eq(last, EL_STR("i"))) {
    return 1;
  }
  if (str_eq(last, EL_STR("o"))) {
    return 1;
  }
  if (str_eq(last, EL_STR("u"))) {
    return 1;
  }
  return 0;
  return 0;
}

el_val_t fr_question_inversion(el_val_t subject, el_val_t verb_form) {
  if (str_eq(subject, EL_STR("je"))) {
    return el_str_concat(el_str_concat(EL_STR("est-ce que je "), verb_form), EL_STR(" ?"));
  }
  el_val_t need_t = 0;
  if (fr_verb_ends_vowel(verb_form)) {
    if (fr_subject_starts_vowel(subject)) {
      need_t = 1;
    }
  }
  if (need_t) {
    return el_str_concat(el_str_concat(el_str_concat(verb_form, EL_STR("-t-")), subject), EL_STR(" ?"));
  }
  return el_str_concat(el_str_concat(el_str_concat(verb_form, EL_STR("-")), subject), EL_STR(" ?"));
  return 0;
}

