sub mystical_de_morphology_ruleprocessor {
 my $word = shift;
 my $new_genus = shift;
 my $new_numerus = shift;

 TRY_RULE1: (word (m,sg) <-> word + "in" (f, sg))
 TRY_RULE2: (word (f,sg) <-> word + "en" (f,pl))
 
 return newword, old_gen, old_num;
}