# This file is required as part of the lquiz (Latin Quiz) program
#
## NOUNS
###########
sub form_nouns
{
    local ( $nomsing, $stem, $gender, $decl, $special ) = @_;

    &form_nouns_1 ($nomsing, $stem, $gender );
    &form_nouns_2 ($nomsing, $stem, $gender );
    &form_nouns_3 ($nomsing, $stem, $gender, $special );
    &form_nouns_4 ($nomsing, $stem, $gender );
    &form_nouns_5 ($nomsing, $stem, $gender );
}

sub form_nouns_1
{
    local ( $nomsing, $stem, $gender ) = @_;

    @nouns_1=('First Declension', 
              "$nomsing",       # Nom. s.
              "$stem"."am", 
              "$stem"."ae", 
              "$stem"."ae", 
              "$stem"."a",
              "$stem"."ae",     # Nom .p. 
              "$stem"."as", 
              "$stem"."arum", 
              "$stem"."is", 
              "$stem"."is"
              );
}

sub form_nouns_2
{
    local ( $nomsing, $stem, $gender ) = @_;

    @nouns_2=('Second Declension', 
              "$nomsing",       # Nom .s.
              "$stem"."um",     # Acc. s.
              "$stem"."i", 
              "$stem"."o", 
              "$stem"."o",
              "$stem"."i",      # Nom .p.
              "$stem"."os", 
              "$stem"."orum", 
              "$stem"."is", 
              "$stem"."is"
              );

    if ( $gender eq 'n' ) {
        $nouns_2[6] = "$stem"."a"; # Nom. pl. ends in a
        $nouns_2[7] = $nouns_2[6]; # Acc. pl is Nom. pl.
    }
}

sub form_nouns_3
{
    local ( $nomsing, $stem, $gender, $special ) = @_;

    @nouns_3 = ('Third Declension', 
                "$nomsing",     # Nom .s.    1
                "$stem"."em",   # Acc .s.    2
                "$stem"."is",   # Gen. s.    3
                "$stem"."i",    # Dat. s.    4
                "$stem"."e",    # Abl. s.    5
                "$stem"."es",   # Nom .pl.   6
                "$stem"."es",   # Acc. pl.   7
                "$stem"."um",   # Gen. pl.   8
                "$stem"."ibus", # Dat. pl.   9
                "$stem"."ibus"  # Abl. pl.  10
              );

    # i-stem nouns
    if ( $special eq 'istem' ) {
        $nouns_3[8] = "$stem"."ium"; # Gen .pl ends in ium
    }

    # Neuter nouns
    if ( $gender eq 'n' ) {
        $nouns_3[2] = "$nomsing";  # Acc .s.
        $nouns_3[6] = "$stem"."a";  # Nom. p
        $nouns_3[7] = "$stem"."a";  # Acc. p
        # Neuter i-stems
        if ( $special eq 'nistem' ) {
            $nouns_3[5] = "$stem"."i";   # Abl. s.
            $nouns_3[6] = "$stem"."ia";  # Nom. p
            $nouns_3[7] = "$stem"."ia";  # Acc. p
            $nouns_3[8] = "$stem"."ium"; # Gen .pl ends in ium
        }
    }
}

sub form_nouns_4
{
    local ( $nomsing, $stem, $gender ) = @_;

    @nouns_4 = ('Fourth Declension', 
                "$nomsing",     # Nom .s.    1
                "$stem"."um",   # Acc .s.    2
                "$stem"."us",   # Gen. s.    3
                "$stem"."ui",    # Dat. s.    4
                "$stem"."u",    # Abl. s.    5
                "$stem"."us",   # Nom .pl.   6
                "$stem"."us",   # Acc. pl.   7
                "$stem"."uum",   # Gen. pl.   8
                "$stem"."ibus", # Dat. pl.   9
                "$stem"."ibus"  # Abl. pl.  10
              );

    # Neuter nouns
    if ( $gender eq 'n' ) {
        $nouns_4[2] = "$nomsing";  # Acc .s.
        $nouns_4[4] = "$stem"."u";  # Dat .s.
        $nouns_4[6] = "$stem"."ua";  # Nom. p
        $nouns_4[7] = "$stem"."ua";  # Acc. p
    }
}

sub form_nouns_5
{
    local ( $nomsing, $stem, $gender ) = @_;

    @nouns_5=('Fifth Declension', 
              "$nomsing",       # Nom. s.
              "$stem"."m", 
              "$stem"."i", 
              "$stem"."i", 
              "$stem"."",
              "$stem"."s",     # Nom .p. 
              "$stem"."s", 
              "$stem"."rum", 
              "$stem"."bus", 
              "$stem"."bus"
              );
}

### PRONOUNS
#############
sub form_pronouns
{
    @forms_ego = (ego);
    @forms_tu  = (tu);
    @forms_ille = (ille_masc, ille_fem, ille_neut);
    @forms_qui  = (qui_masc, qui_fem, qui_neut);
    @forms_hic = (hic_masc, hic_fem, hic_neut);
    @forms_is = (is_masc, is_fem, is_neut);
    @forms_idem = (idem_masc, idem_fem, idem_neut);
    @forms_ipse = (ipse_masc, ipse_fem, ipse_neut);
    @forms_alius = (alius_masc, alius_fem, alius_neut);

    @pronouns_vec = ('ego','tu',
                     'ille','qui','hic','is','idem','ipse','alius');

    &form_pronouns_ego; 
    &form_pronouns_tu;
    &form_pronouns_ille;
    &form_pronouns_qui;
    &form_pronouns_hic;
    &form_pronouns_is;
    &form_pronouns_idem;
    &form_pronouns_ipse;
    &form_pronouns_alius;

    $pronouns_desc{"ego"} = "I";
    $pronouns_desc{"tu"} = "You";
    $pronouns_desc{"ille"} = "That(yonder)";
    $pronouns_desc{"qui"} = "Who";
    $pronouns_desc{"hic"} = "This";
    $pronouns_desc{"is"} = "That";
    $pronouns_desc{"idem"} = "Same";
    $pronouns_desc{"ipse"} = "Self";
    $pronouns_desc{"alius"} = "Other";
}

sub form_pronouns_ego
{
    @ego = ('Ego: Ego', 
            'ego','me','mei','mihi','me',
            'nos','nos','nostri','nobis','nobis');
}
sub form_pronouns_tu
{
    @tu = ('Tu: Tu', 
           'tu', 'te', 'tui', 'tibi', 'te',
           'vos','vos','vestri','vobis','vobis');
}

sub form_pronouns_ille
{

    @ille_masc  = ("Ille: Masculine", 
                   "ille", "illum",'illius','illi','illo',
                   'illi','illos','illorum','illis','illis');

    @ille_fem   = ("Ille: Feminine", 
                   'illa','illam','illius','illi','illa',
                   'illae','illas','illarum','illis','illis');

    @ille_neut  = ("Ille: Neuter", "illud", "illud",'illius','illi','illo',
                   'illa','illa','illorum','illis','illis');
}
sub form_pronouns_qui
{
    @qui_masc = ("Qui/Quae/Quod: Masculine",
                 'qui','quem','cuius','cui','quo',
                 'qui','quos','quorum','quibus','quibus');
    
    @qui_fem = ("Qui/Quae/Quod: Feminine",
                 'quae','quam','cuius','cui','qua',
                 'quae','quas','quarum','quibus','quibus');
    @qui_neut = ("Qui/Quae/Quod: Neuter",
                 'quod','quod','cuius','cui','quo',
                 'quae','quae','quorum','quibus','quibus');
}
sub form_pronouns_hic
{
    @hic_masc = ('Hic: Masculine',
                 'hic', 'hunc', 'huius', 'huic', 'hoc',
                 'hi','hos','horum','his','his'
                 );
    @hic_fem = ('Hic: Feminine',
                 'haec', 'hanc', 'huius', 'huic', 'hac',
                'hae','has','harum','his','his'
                );
    @hic_neut = ('Hic: Neuter',
                 'hoc', 'hoc', 'huius', 'huic', 'hoc',
                 'haec', 'haec','horum','his','his'
                 );
}

sub form_pronouns_is
{
    @is_masc  = ("Is: Masculine", 
                 "is", "eum",'eius','ei','eo',
                 'ii','eos','eorum','eis','eis');

    @is_fem   = ("Is: Feminine", 
                 'ea','eam','eius','ei','ea',
                 'eae','eas','earum','eis','eis');

    @is_neut  = ("Is: Neuter", 
                 "id", "id",'eius','ei','eo',
                 'ea','ea','eorum','eis','eis');
}

sub form_pronouns_idem
{
    @idem_masc = ("Idem: Masculine",
                  'idem', 'eundem', 'eiusdem', 'eidem', 'eodem',
                  'idem', 'eosdem', 'eorundem' ,'isdem', 'isdem');

    @idem_fem  = ("Idem: Feminine",
                  'eadem', 'eandem', 'eiusdem', 'eidem', 'eadem',
                  'eaedem', 'easdem', 'earundem' ,'isdem', 'isdem');

    @idem_neut = ("Idem: Neuter",
                  'idem', 'idem', 'eiusdem', 'eidem', 'eodem',
                  'eadem', 'eadem', 'eorundem' ,'isdem', 'isdem');
}

sub form_pronouns_ipse
{

    @ipse_masc  = ("Ipse: Masculine", 
                   "ipse", "ipsum",'ipsius','ipsi','ipso',
                   'ipsi','ipsos','ipsorum','ipsis','ipsis');

    @ipse_fem   = ("Ipse: Feminine", 
                   'ipsa','ipsam','ipsius','ipsi','ipsa',
                   'ipsae','ipsas','ipsarum','ipsis','ipsis');

    @ipse_neut  = ("Ipse: Neuter", 
                   "ipsum", "ipsum",'ipsius','ipsi','ipso',
                   'ipsa','ipsa','ipsorum','ipsis','ipsis');
}

sub form_pronouns_alius
{

    @alius_masc  = ("Alius: Masculine", 
                   "alius", "alium",'alius','alii','alio',
                   'alii','alios','aliorum','aliis','aliis');

    @alius_fem   = ("Alius: Feminine", 
                   'alia','aliam','alius','alii','alia',
                   'aliae','alias','aliarum','aliis','aliis');

    @alius_neut  = ("Alius: Neuter", "aliud", "aliud",'alius','alii','alio',
                   'alia','alia','aliorum','aliis','aliis');
}

### VERBS
#############
sub form_verbs
{

    local( $stem, $perfstem, $c, $pp4 ) = @_;

    if ( $c eq '1' )    { &form_verbs_1( $stem, $perfstem, $pp4 );}
    elsif ( $c eq '2' ) { &form_verbs_2( $stem, $perfstem, $pp4 ); }
    elsif ( $c eq '3' ) { &form_verbs_3( $stem, $perfstem, $pp4 ); }
    elsif ( $c eq '4' ) { &form_verbs_4( $stem, $perfstem, $pp4 ); }
    elsif ( $c eq '3_4' ) { &form_verbs_3_4( $stem, $perfstem, $pp4 ); }

    elsif ($c eq 'dep_1') { &form_dep_verbs_1( $stem, $perfstem ); }
    elsif ($c eq 'dep_2') { &form_dep_verbs_2( $stem, $perfstem ); }
    elsif ($c eq 'dep_3') { &form_dep_verbs_3( $stem, $perfstem ); }
    elsif ($c eq 'dep_4') { &form_dep_verbs_4( $stem, $perfstem ); }
    elsif ($c eq 'dep_3_4') { &form_dep_verbs_3_4( $stem, $perfstem ); }

    elsif ($c eq 'esse') {&form_verbs_esse;}
    elsif ($c eq 'velle') {&form_verbs_velle;}
    elsif ($c eq 'ferre') {&form_verbs_ferre;}
    elsif ($c eq 'posse') {&form_verbs_posse;}
    elsif ($c eq 'ire') {&form_verbs_ire;}

    else {
        print "*** Error: form_verbs: Unrecognized verb.\n";
        print "***        An internal error occured! Quitting.\n";
        exit 1;
    }

#     &form_verbs_1( $stem, $pp4 ) if ( $c eq '1' );
#     &form_verbs_2( $stem, $perfstem, $pp4 ) if ( $c eq '2' );
#     &form_verbs_3( $stem, $perfstem, $pp4 ) if ( $c eq '3' );
#     &form_verbs_4( $stem, $perfstem, $pp4 ) if ( $c eq '4' );
#     &form_verbs_3_4( $stem, $perfstem, $pp4 ) if ( $c eq '3_4' );

#     # Deponent verbs
#     &form_dep_verbs_1( $stem, $perfstem ) if ( $c eq 'dep_1' );
#     &form_dep_verbs_2( $stem, $perfstem ) if ( $c eq 'dep_2' );
#     &form_dep_verbs_3( $stem, $perfstem ) if ( $c eq 'dep_3' );
#     &form_dep_verbs_4( $stem, $perfstem ) if ( $c eq 'dep_4' );
#     &form_dep_verbs_3_4( $stem, $perfstem ) if ( $c eq 'dep_3_4' );

#     # Irregular verbs
#     &form_verbs_esse if ( $c eq 'esse' );
#     &form_verbs_velle if ( $c eq 'velle' );
#     &form_verbs_ferre if ( $c eq 'ferre' );
#     &form_verbs_posse if ( $c eq 'posse' );
#     &form_verbs_ire if ( $c eq 'ire' );

}

sub form_verbs_1
{
    local( $stem, $perfstem, $pp4 ) = @_;

    @imperative_ac_1 = ("First Conjugation: Active Imperative", 
                        "$stem"."a", "$stem"."ate" );

    @imperative_pa_1 = ("First Conjugation: Passive Imperative",
                        "$stem"."are", "$stem"."amini" );

    # First conj Active
    @pr_ind_ac_1 = ( "First Conjugation: Present Indicative Active",
                    "$stem"."o","$stem"."as","$stem"."at",
                    "$stem"."amus","$stem"."atis","$stem"."ant" );
    @imp_ind_ac_1 = ( "First Conjugation: Imperfect Indicative Active",
                    "$stem"."abam","$stem"."abas","$stem"."abat",
                    "$stem"."abamus","$stem"."abatis","$stem"."abant" );
    @fu_ind_ac_1 = ( "First Conjugation: Future Indicative Active",
                    "$stem"."abo","$stem"."abis","$stem"."abit",
                    "$stem"."abimus","$stem"."abitis","$stem"."abunt" );

    @per_ind_ac_1 = ( "First Conjugation: Perfect Indicative Active",
                    "$perfstem"."i","$perfstem"."isti","$perfstem"."it",
                    "$perfstem"."imus","$perfstem"."istis","$perfstem"."erunt");

    @plu_ind_ac_1 = ( "First Conjugation: Pluperfect Indicative Active",
                "$perfstem"."eram","$perfstem"."eras","$perfstem"."erat",
                "$perfstem"."eramus","$perfstem"."eratis","$perfstem"."erant");

    @fup_ind_ac_1 = ( "First Conjugation: Future Perfect Indicative Active",
                "$perfstem"."ero","$perfstem"."eris","$perfstem"."erit",
                "$perfstem"."erimus","$perfstem"."eritis","$perfstem"."erint");

    @pr_sub_ac_1 = ( "First Conjugation: Present Subjunctive Active",
                    "$stem"."em",  "$stem"."es",   "$stem"."et",
                    "$stem"."emus","$stem"."etis","$stem"."ent" );
    @imp_sub_ac_1 = ( "First Conjugation: Imperfect Subjunctive Active",
                    "$stem"."arem","$stem"."ares","$stem"."aret",
                    "$stem"."aremus","$stem"."aretis","$stem"."arent" );

    @per_sub_ac_1 = ( "First Conjugation: Perfect Subjunctive Active",
               "$perfstem"."erim","$perfstem"."eris","$perfstem"."erit",
               "$perfstem"."erimus","$perfstem"."eritis","$perfstem"."erint" );


    @plu_sub_ac_1 = ( "First Conjugation: Pluperfect Subjunctive Active",
                 "$perfstem"."issem","$perfstem"."isses","$perfstem"."isset",
               "$perfstem"."issemus","$perfstem"."issetis","$perfstem"."issent");

    # First conj Passive
    @pr_ind_pa_1 = ( "First Conjugation: Present Indicative Passive",
                    "$stem"."or","$stem"."aris","$stem"."atur",
                    "$stem"."amur","$stem"."amini","$stem"."antur" );
    @imp_ind_pa_1 = ( "First Conjugation: Imperfect Indicative Passive",
                    "$stem"."abar","$stem"."abaris","$stem"."abatur",
                    "$stem"."abamur","$stem"."abamini","$stem"."abantur" );
    @fu_ind_pa_1 = ( "First Conjugation: Future Indicative Passive",
                    "$stem"."abor","$stem"."aberis","$stem"."abitur",
                    "$stem"."abimur","$stem"."abimini","$stem"."abuntur" );

    @per_ind_pa_1 = ( "First Conjugation: Perfect Indicative Passive",
                    "$pp4"."us sum","$pp4"."us es","$pp4"."us est",
                    "$pp4"."i sumus","$pp4"."i estis","$pp4"."i sunt" );
    @plu_ind_pa_1 = ( "First Conjugation: Pluperfect Indicative Passive",
                    "$pp4"."us eram","$pp4"."us eras","$pp4"."us erat",
                    "$pp4"."i eramus","$pp4"."i eratis","$pp4"."i erant" );
    @fup_ind_pa_1 = ( "First Conjugation: Future Perfect Indicative Passive",
                    "$pp4"."us ero","$pp4"."us eris","$pp4"."us erit",
                    "$pp4"."i erimus","$pp4"."i eritis","$pp4"."i erunt" );

    @pr_sub_pa_1 = ( "First Conjugation: Present Subjunctive Passive",
                    "$stem"."er","$stem"."eris","$stem"."etur",
                    "$stem"."emur","$stem"."emini","$stem"."entur" );
    @imp_sub_pa_1 = ( "First Conjugation: Imperfect Subjunctive Passive",
                    "$stem"."arer","$stem"."areris","$stem"."aretur",
                    "$stem"."aremur","$stem"."aremini","$stem"."arentur" );

    @per_sub_pa_1 = ( "First Conjugation: Perfect Subjunctive Passive",
                    "$pp4"."us sim","$pp4"."us sis","$pp4"."us sit",
                    "$pp4"."i simus","$pp4"."i sitis","$pp4"."i sint" );

    @plu_sub_pa_1 = ( "First Conjugation: Pluperfect Subjunctive Passive",
                    "$pp4"."us essem","$pp4"."us esses","$pp4"."us esset",
                   "$pp4"."i essemus","$pp4"."i essetis","$pp4"."i essent");
}

sub form_verbs_2
{
    local( $stem, $perfstem, $pp4 ) = @_;

    @imperative_ac_2 = ("Second Conjugation: Active Imperative", 
                        "$stem"."e", "$stem"."ete" );

    @imperative_pa_2 = ("Second Conjugation: Passive Imperative",
                        "$stem"."ere", "$stem"."emini" );

    # Second conj Active
    @pr_ind_ac_2 = ( "Second Conjugation: Present Indicative Active",
                    "$stem"."eo","$stem"."es","$stem"."et",
                    "$stem"."emus","$stem"."etis","$stem"."ent" );

    @imp_ind_ac_2 = ( "Second Conjugation: Imperfect Indicative Active",
                    "$stem"."ebam","$stem"."ebas","$stem"."ebat",
                    "$stem"."ebamus","$stem"."ebatis","$stem"."ebant" );

    @fu_ind_ac_2 = ( "Second Conjugation: Future Indicative Active",
                    "$stem"."ebo","$stem"."ebis","$stem"."ebit",
                    "$stem"."ebimus","$stem"."ebitis","$stem"."ebunt" );

    @per_ind_ac_2 = ( "Second Conjugation: Perfect Indicative Active",
                    "$perfstem"."i","$perfstem"."isti","$perfstem"."it",
                    "$perfstem"."imus","$perfstem"."istis","$perfstem"."erunt");

    @plu_ind_ac_2 = ( "Second Conjugation: Pluperfect Indicative Active",
                    "$perfstem"."eram","$perfstem"."eras","$perfstem"."erat",
                    "$perfstem"."eramus","$perfstem"."eratis","$perfstem"."erant");

    @fup_ind_ac_2 = ( "Second Conjugation: Future Perfect Indicative Active",
                    "$perfstem"."ero","$perfstem"."eris","$perfstem"."erit",
                    "$perfstem"."erimus","$perfstem"."eritis","$perfstem"."erint");

    @pr_sub_ac_2 = ( "Second Conjugation: Present Subjunctive Active",
                    "$stem"."eam",  "$stem"."eas",   "$stem"."eat",
                    "$stem"."eamus","$stem"."eatis","$stem"."eant" );

    @imp_sub_ac_2 = ( "Second Conjugation: Imperfect Subjunctive Active",
                    "$stem"."erem","$stem"."eres","$stem"."eret",
                    "$stem"."eremus","$stem"."eretis","$stem"."erent" );

    @per_sub_ac_2 = ( "Second Conjugation: Perfect Subjunctive Active",
                    "$perfstem"."erim","$perfstem"."eris","$perfstem"."erit",
                    "$perfstem"."erimus","$perfstem"."eritis","$perfstem"."erint" );

    @plu_sub_ac_2 = ( "Second Conjugation: Pluperfect Subjunctive Active",
                    "$perfstem"."issem","$perfstem"."isses","$perfstem"."isset",
                 "$perfstem"."issemus","$perfstem"."issetis","$perfstem"."issent");

    # Second conj Passive
    @pr_ind_pa_2 = ( "Second Conjugation: Present Indicative Passive",
                    "$stem"."eor","$stem"."eris","$stem"."etur",
                    "$stem"."emur","$stem"."emini","$stem"."entur" );

    @imp_ind_pa_2 = ( "Second Conjugation: Imperfect Indicative Passive",
                    "$stem"."ebar","$stem"."ebaris","$stem"."ebatur",
                    "$stem"."ebamur","$stem"."ebamini","$stem"."ebantur" );

    @fu_ind_pa_2 = ( "Second Conjugation: Future Indicative Passive",
                    "$stem"."ebor","$stem"."eberis","$stem"."ebitur",
                    "$stem"."ebimur","$stem"."ebimini","$stem"."ebuntur" );

    @per_ind_pa_2 = ( "Second Conjugation: Perfect Indicative Passive",
                    "$pp4"."us sum","$pp4"."us es","$pp4"."us est",
                    "$pp4"."i sumus","$pp4"."i estis","$pp4"."i sunt" );

    @plu_ind_pa_2 = ( "Second Conjugation: Pluperfect Indicative Passive",
                    "$pp4"."us eram","$pp4"."us eras","$pp4"."us erat",
                    "$pp4"."i eramus","$pp4"."i eratis","$pp4"."i erant" );

    @fup_ind_pa_2 = ( "Second Conjugation: Future Perfect Indicative Passive",
                    "$pp4"."us ero","$pp4"."us eris","$pp4"."us erit",
                    "$pp4"."i erimus","$pp4"."i eritis","$pp4"."i erunt" );

    @pr_sub_pa_2 = ( "Second Conjugation: Present Subjunctive Passive",
                    "$stem"."ear","$stem"."earis","$stem"."eatur",
                    "$stem"."eamur","$stem"."eamini","$stem"."eantur" );
    @imp_sub_pa_2 = ( "Second Conjugation: Imperfect Subjunctive Passive",
                    "$stem"."erer","$stem"."ereris","$stem"."eretur",
                    "$stem"."eremur","$stem"."eremini","$stem"."erentur" );

    @per_sub_pa_2 = ( "Second Conjugation: Perfect Subjunctive Passive",
                    "$pp4"."us sim","$pp4"."us sis","$pp4"."us sit",
                    "$pp4"."i simus","$pp4"."i sitis","$pp4"."i sint" );
    @plu_sub_pa_2 = ( "Second Conjugation: Pluperfect Subjunctive Passive",
                    "$pp4"."us essem","$pp4"."us esses","$pp4"."us esset",
                    "$pp4"."i essemus","$pp4"."i essetis","$pp4"."i essent" );
}

sub form_verbs_3
{
    local( $stem, $perfstem, $pp4 ) = @_;

    @imperative_ac_3 = ("Third Conjugation: Active Imperative", 
                        "$stem"."e", "$stem"."ite" );

    # Unfortunately the horrible rule re the 2 irregular 3rd conj
    # verbs 'dicere' and 'ducere' have to built in here!
    # Note: also all verbs that are compounds of 'duco' e.g. conduco, abduco

    if ( $stem eq "dic" || $stem =~ /duc$/ ) {
        $imperative_ac_3[1] = "$stem";
    }

    @imperative_pa_3 = ("Third Conjugation: Passive Imperative",
                        "$stem"."ere", "$stem"."imini" );

    # Third Conj Active
    @pr_ind_ac_3 = ( "Third Conjugation: Present Indicative Active",
                    "$stem"."o","$stem"."is","$stem"."it",
                    "$stem"."imus","$stem"."itis","$stem"."unt" );

    @imp_ind_ac_3 = ( "Third Conjugation: Imperfect Indicative Active",
                    "$stem"."ebam","$stem"."ebas","$stem"."ebat",
                    "$stem"."ebamus","$stem"."ebatis","$stem"."ebant" );

    @fu_ind_ac_3 = ( "Third Conjugation: Future Indicative Active",
                    "$stem"."am","$stem"."es","$stem"."et",
                    "$stem"."emus","$stem"."etis","$stem"."ent" );

    @per_ind_ac_3 = ( "Third Conjugation: Perfect Indicative Active",
                    "$perfstem"."i","$perfstem"."isti","$perfstem"."it",
                    "$perfstem"."imus","$perfstem"."istis","$perfstem"."erunt" );

    @plu_ind_ac_3 = ( "Third Conjugation: Pluperfect Indicative Active",
                    "$perfstem"."eram","$perfstem"."eras","$perfstem"."erat",
                    "$perfstem"."eramus","$perfstem"."eratis","$perfstem"."erant" );

    @fup_ind_ac_3 = ( "Third Conjugation: Future Perfect Indicative Active",
                    "$perfstem"."ero","$perfstem"."eris","$perfstem"."erit",
                    "$perfstem"."erimus","$perfstem"."eritis","$perfstem"."erint" );

    @pr_sub_ac_3 = ( "Third Conjugation: Present Subjunctive Active",
                    "$stem"."am",  "$stem"."as",   "$stem"."at",
                    "$stem"."amus","$stem"."atis","$stem"."ant" );

    @imp_sub_ac_3 = ( "Third Conjugation: Imperfect Subjunctive Active",
                    "$stem"."erem","$stem"."eres","$stem"."eret",
                    "$stem"."eremus","$stem"."eretis","$stem"."erent" );

    @per_sub_ac_3 = ( "Third Conjugation: Perfect Subjunctive Active",
                    "$perfstem"."erim","$perfstem"."eris","$perfstem"."erit",
                    "$perfstem"."erimus","$perfstem"."eritis","$perfstem"."erint" );

    @plu_sub_ac_3 = ( "Third Conjugation: Pluperfect Subjunctive Active",
                    "$perfstem"."issem","$perfstem"."isses","$perfstem"."isset",
                 "$perfstem"."issemus","$perfstem"."issetis","$perfstem"."issent");

    # Third conj Passive
    @pr_ind_pa_3 = ( "Third Conjugation: Present Indicative Passive",
                    "$stem"."or","$stem"."eris","$stem"."itur",
                    "$stem"."imur","$stem"."imini","$stem"."untur" );

    @imp_ind_pa_3 = ( "Third Conjugation: Imperfect Indicative Passive",
                    "$stem"."ebar","$stem"."ebaris","$stem"."ebatur",
                    "$stem"."ebamur","$stem"."ebamini","$stem"."ebantur" );

    @fu_ind_pa_3 = ( "Third Conjugation: Future Indicative Passive",
                    "$stem"."ar","$stem"."eris","$stem"."etur",
                    "$stem"."emur","$stem"."emini","$stem"."entur" );

    @per_ind_pa_3 = ( "Third Conjugation: Perfect Indicative Passive",
                    "$pp4"."us sum","$pp4"."us es","$pp4"."us est",
                    "$pp4"."i sumus","$pp4"."i estis","$pp4"."i sunt" );

    @plu_ind_pa_3 = ( "Third Conjugation: Pluperfect Indicative Passive",
                    "$pp4"."us eram","$pp4"."us eras","$pp4"."us erat",
                    "$pp4"."i eramus","$pp4"."i eratis","$pp4"."i erant" );

    @fup_ind_pa_3 = ( "Third Conjugation: Future Perfect Indicative Passive",
                    "$pp4"."us ero","$pp4"."us eris","$pp4"."us erit",
                    "$pp4"."i erimus","$pp4"."i eritis","$pp4"."i erunt" );

    @pr_sub_pa_3 = ( "Third Conjugation: Present Subjunctive Passive",
                    "$stem"."ar","$stem"."aris","$stem"."atur",
                    "$stem"."amur","$stem"."amini","$stem"."antur" );
    @imp_sub_pa_3 = ( "Third Conjugation: Imperfect Subjunctive Passive",
                    "$stem"."erer","$stem"."ereris","$stem"."eretur",
                    "$stem"."eremur","$stem"."eremini","$stem"."erentur" );

    @per_sub_pa_3 = ( "Third Conjugation: Perfect Subjunctive Passive",
                    "$pp4"."us sim","$pp4"."us sis","$pp4"."us sit",
                    "$pp4"."i simus","$pp4"."i sitis","$pp4"."i sint" );
    @plu_sub_pa_3 = ( "Third Conjugation: Pluperfect Subjunctive Passive",
                    "$pp4"."us essem","$pp4"."us esses","$pp4"."us esset",
                    "$pp4"."i essemus","$pp4"."i essetis","$pp4"."i essent" );
}

sub form_verbs_4
{
    local( $stem, $perfstem, $pp4 ) = @_;

    @imperative_ac_4 = ("Fourth Conjugation: Active Imperative", 
                        "$stem"."i", "$stem"."ite" );

    @imperative_pa_4 = ("Fourth Conjugation: Passive Imperative",
                        "$stem"."ire", "$stem"."imini" );

    @pr_ind_ac_4 = ( "Fourth Conjugation: Present Indicative Active",
                    "$stem"."io","$stem"."is","$stem"."it",
                    "$stem"."imus","$stem"."itis","$stem"."iunt" );

    @imp_ind_ac_4 = ( "Fourth Conjugation: Imperfect Indicative Active",
                    "$stem"."iebam","$stem"."iebas","$stem"."iebat",
                    "$stem"."iebamus","$stem"."iebatis","$stem"."iebant" );

    @fu_ind_ac_4 = ( "Fourth Conjugation: Future Indicative Active",
                    "$stem"."iam","$stem"."ies","$stem"."iet",
                    "$stem"."iemus","$stem"."ietis","$stem"."ient" );

    @per_ind_ac_4 = ( "Fourth Conjugation: Perfect Indicative Active",
                    "$perfstem"."i","$perfstem"."isti","$perfstem"."it",
                    "$perfstem"."imus","$perfstem"."istis","$perfstem"."erunt" );

    @plu_ind_ac_4 = ( "Fourth Conjugation: Pluperfect Indicative Active",
                    "$perfstem"."eram","$perfstem"."eras","$perfstem"."erat",
                    "$perfstem"."eramus","$perfstem"."eratis","$perfstem"."erant" );

    @fup_ind_ac_4 = ( "Fourth Conjugation: Future Perfect Indicative Active",
                    "$perfstem"."ero","$perfstem"."eris","$perfstem"."erit",
                    "$perfstem"."erimus","$perfstem"."eritis","$perfstem"."erint" );

    @pr_sub_ac_4 = ( "Fourth Conjugation: Present Subjunctive Active",
                    "$stem"."iam",  "$stem"."ias",   "$stem"."iat",
                    "$stem"."iamus","$stem"."iatis","$stem"."iant" );

    @imp_sub_ac_4 = ( "Fourth Conjugation: Imperfect Subjunctive Active",
                    "$stem"."irem","$stem"."ires","$stem"."iret",
                    "$stem"."iremus","$stem"."iretis","$stem"."irent" );

    @per_sub_ac_4 = ( "Fourth Conjugation: Perfect Subjunctive Active",
                    "$perfstem"."erim","$perfstem"."eris","$perfstem"."erit",
                    "$perfstem"."erimus","$perfstem"."eritis","$perfstem"."erint" );

    @plu_sub_ac_4 = ( "Fourth Conjugation: Pluperfect Subjunctive Active",
               "$perfstem"."issem","$perfstem"."isses","$perfstem"."isset",
               "$perfstem"."issemus","$perfstem"."issetis","$perfstem"."issent" );

    # Fourth conj Passive
    @pr_ind_pa_4 = ( "Fourth Conjugation: Present Indicative Passive",
                    "$stem"."ior","$stem"."iris","$stem"."itur",
                    "$stem"."imur","$stem"."imini","$stem"."iuntur" );

    @imp_ind_pa_4 = ( "Fourth Conjugation: Imperfect Indicative Passive",
                    "$stem"."iebar","$stem"."iebaris","$stem"."iebatur",
                    "$stem"."iebamur","$stem"."iebamini","$stem"."iebantur" );

    @fu_ind_pa_4 = ( "Fourth Conjugation: Future Indicative Passive",
                    "$stem"."iar","$stem"."ieris","$stem"."ietur",
                    "$stem"."iemur","$stem"."iemini","$stem"."ientur" );

    @per_ind_pa_4 = ( "Fourth Conjugation: Perfect Indicative Passive",
                    "$pp4"."us sum","$pp4"."us es","$pp4"."us est",
                    "$pp4"."i sumus","$pp4"."i estis","$pp4"."i sunt" );

    @plu_ind_pa_4 = ( "Fourth Conjugation: Pluperfect Indicative Passive",
                    "$pp4"."us eram","$pp4"."us eras","$pp4"."us erat",
                    "$pp4"."i eramus","$pp4"."i eratis","$pp4"."i erant" );

    @fup_ind_pa_4 = ( "Fourth Conjugation: Future Perfect Indicative Passive",
                    "$pp4"."us ero","$pp4"."us eris","$pp4"."us erit",
                    "$pp4"."i erimus","$pp4"."i eritis","$pp4"."i erunt" );

    @pr_sub_pa_4 = ( "Fourth Conjugation: Present Subjunctive Passive",
                    "$stem"."iar","$stem"."iaris","$stem"."iatur",
                    "$stem"."iamur","$stem"."iamini","$stem"."iantur" );
    @imp_sub_pa_4 = ( "Fourth Conjugation: Imperfect Subjunctive Passive",
                    "$stem"."irer","$stem"."ireris","$stem"."iretur",
                    "$stem"."iremur","$stem"."iremini","$stem"."irentur" );

    @per_sub_pa_4 = ( "Fourth Conjugation: Perfect Subjunctive Passive",
                    "$pp4"."us sim","$pp4"."us sis","$pp4"."us sit",
                    "$pp4"."i simus","$pp4"."i sitis","$pp4"."i sint" );
    @plu_sub_pa_4 = ( "Fourth Conjugation: Pluperfect Subjunctive Passive",
                    "$pp4"."us essem","$pp4"."us esses","$pp4"."us esset",
                    "$pp4"."i essemus","$pp4"."i essetis","$pp4"."i essent" );
}

sub form_verbs_3_4
{
    local( $stem, $perfstem, $pp4 ) = @_;

    @imperative_ac_3_4 = ("Third/Fourth Conjugation: Active Imperative", 
                        "$stem"."e", "$stem"."ite" );

    # Unfortunately the horrible rule re the irregular mixed conj
    # verb 'facere' has to built in here!
    if ( $stem eq "fac" ) {
        $imperative_ac_3_4[1] = "$stem";
    }

    @imperative_pa_3_4 = ("Third/Fourth Conjugation: Passive Imperative",
                        "$stem"."ere", "$stem"."imini" );

    # Third/Fourth Conj Active
    @pr_ind_ac_3_4 = ( "Third/Fourth Conjugation: Present Indicative Active",
                    "$stem"."io","$stem"."is","$stem"."it",
                    "$stem"."imus","$stem"."itis","$stem"."iunt" );

    @imp_ind_ac_3_4 = ( "Third/Fourth Conjugation: Imperfect Indicative Active",
                    "$stem"."iebam","$stem"."iebas","$stem"."iebat",
                    "$stem"."iebamus","$stem"."iebatis","$stem"."iebant" );

    @fu_ind_ac_3_4 = ( "Third/Fourth Conjugation: Future Indicative Active",
                    "$stem"."iam","$stem"."ies","$stem"."iet",
                    "$stem"."iemus","$stem"."ietis","$stem"."ient" );

    @per_ind_ac_3_4 = ( "Third/Fourth Conjugation: Perfect Indicative Active",
                    "$perfstem"."i","$perfstem"."isti","$perfstem"."it",
                    "$perfstem"."imus","$perfstem"."istis","$perfstem"."erunt" );

    @plu_ind_ac_3_4 = ( "Third/Fourth Conjugation: Pluperfect Indicative Active",
                    "$perfstem"."eram","$perfstem"."eras","$perfstem"."erat",
                    "$perfstem"."eramus","$perfstem"."eratis","$perfstem"."erant" );

    @fup_ind_ac_3_4 = ( 
                    "Third/Fourth Conjugation: Future Perfect Indicative Active",
                    "$perfstem"."ero","$perfstem"."eris","$perfstem"."erit",
                    "$perfstem"."erimus","$perfstem"."eritis","$perfstem"."erint" );

    @pr_sub_ac_3_4 = ( "Third/Fourth Conjugation: Present Subjunctive Active",
                    "$stem"."iam",  "$stem"."ias",   "$stem"."iat",
                    "$stem"."iamus","$stem"."iatis","$stem"."iant" );

    @imp_sub_ac_3_4 = ( "Third/Fourth Conjugation: Imperfect Subjunctive Active",
                    "$stem"."erem","$stem"."eres","$stem"."eret",
                    "$stem"."eremus","$stem"."eretis","$stem"."erent" );

    @per_sub_ac_3_4 = ( "Third/Fourth Conjugation: Perfect Subjunctive Active",
                    "$perfstem"."erim","$perfstem"."eris","$perfstem"."erit",
                    "$perfstem"."erimus","$perfstem"."eritis","$perfstem"."erint" );

    @plu_sub_ac_3_4 = ( "Third/Fourth Conjugation: Pluperfect Subjunctive Active",
                    "$perfstem"."issem","$perfstem"."isses","$perfstem"."isset",
                 "$perfstem"."issemus","$perfstem"."issetis","$perfstem"."issent");

    # Third/Fourth conj Passive
    @pr_ind_pa_3_4 = ( "Third/Fourth Conjugation: Present Indicative Passive",
                    "$stem"."ior","$stem"."eris","$stem"."itur",
                    "$stem"."imur","$stem"."imini","$stem"."iuntur" );

    @imp_ind_pa_3_4 = ( "Third/Fourth Conjugation: Imperfect Indicative Passive",
                    "$stem"."iebar","$stem"."iebaris","$stem"."iebatur",
                    "$stem"."iebamur","$stem"."iebamini","$stem"."iebantur" );

    @fu_ind_pa_3_4 = ( "Third/Fourth Conjugation: Future Indicative Passive",
                    "$stem"."iar","$stem"."ieris","$stem"."ietur",
                    "$stem"."iemur","$stem"."iemini","$stem"."ientur" );

    @per_ind_pa_3_4 = ( "Third/Fourth Conjugation: Perfect Indicative Passive",
                    "$pp4"."us sum","$pp4"."us es","$pp4"."us est",
                    "$pp4"."i sumus","$pp4"."i estis","$pp4"."i sunt" );

    @plu_ind_pa_3_4 = ( "Third/Fourth Conjugation: Pluperfect Indicative Passive",
                    "$pp4"."us eram","$pp4"."us eras","$pp4"."us erat",
                    "$pp4"."i eramus","$pp4"."i eratis","$pp4"."i erant" );

    @fup_ind_pa_3_4 = ( 
                    "Third/Fourth Conjugation: Future Perfect Indicative Passive",
                    "$pp4"."us ero","$pp4"."us eris","$pp4"."us erit",
                    "$pp4"."i erimus","$pp4"."i eritis","$pp4"."i erunt" );

    @pr_sub_pa_3_4 = ( "Third/Fourth Conjugation: Present Subjunctive Passive",
                    "$stem"."iar","$stem"."iaris","$stem"."iatur",
                    "$stem"."iamur","$stem"."iamini","$stem"."iantur" );
    @imp_sub_pa_3_4 = ( "Third/Fourth Conjugation: Imperfect Subjunctive Passive",
                    "$stem"."erer","$stem"."ereris","$stem"."eretur",
                    "$stem"."eremur","$stem"."eremini","$stem"."erentur" );

    @per_sub_pa_3_4 = ( "Third/Fourth Conjugation: Perfect Subjunctive Passive",
                    "$pp4"."us sim","$pp4"."us sis","$pp4"."us sit",
                    "$pp4"."i simus","$pp4"."i sitis","$pp4"."i sint" );
    @plu_sub_pa_3_4 = ( "Third/Fourth Conjugation: Pluperfect Subjunctive Passive",
                    "$pp4"."us essem","$pp4"."us esses","$pp4"."us esset",
                    "$pp4"."i essemus","$pp4"."i essetis","$pp4"."i essent" );
}

## Deponent Verbs
#################
sub form_dep_verbs_1
{
    local( $stem, $pp4 ) = @_;

    @imperative_dep_1 = ("First Conjugation: Imperative Deponent", 
                        "$stem"."are", "$stem"."amini" );

    @pr_ind_dep_1 = ( "First Conjugation: Present Indicative Deponent",
                    "$stem"."or","$stem"."aris","$stem"."atur",
                    "$stem"."amur","$stem"."amini","$stem"."antur" );
    @imp_ind_dep_1 = ( "First Conjugation: Imperfect Indicative Deponent",
                    "$stem"."abar","$stem"."abaris","$stem"."abatur",
                    "$stem"."abamur","$stem"."abamini","$stem"."abantur" );
    @fu_ind_dep_1 = ( "First Conjugation: Future Indicative Deponent",
                    "$stem"."abor","$stem"."aberis","$stem"."abitur",
                    "$stem"."abimur","$stem"."abimini","$stem"."abuntur" );

    @per_ind_dep_1 = ( "First Conjugation: Perfect Indicative Deponent",
                    "$pp4"."us sum","$pp4"."us es","$pp4"."us est",
                    "$pp4"."i sumus","$pp4"."i estis","$pp4"."i sunt" );
    @plu_ind_dep_1 = ( "First Conjugation: Pluperfect Indicative Deponent",
                    "$pp4"."us eram","$pp4"."us eras","$pp4"."us erat",
                    "$pp4"."i eramus","$pp4"."i eratis","$pp4"."i erant" );
    @fup_ind_dep_1 = ( "First Conjugation: Future Perfect Indicative Deponent",
                    "$pp4"."us ero","$pp4"."us eris","$pp4"."us erit",
                    "$pp4"."i erimus","$pp4"."i eritis","$pp4"."i erunt" );

    @pr_sub_dep_1 = ( "First Conjugation: Present Subjunctive Deponent",
                    "$stem"."er","$stem"."eris","$stem"."etur",
                    "$stem"."emur","$stem"."emini","$stem"."entur" );

    @imp_sub_dep_1 = ( "First Conjugation: Imperfect Subjunctive Deponent",
                    "$stem"."arer","$stem"."areris","$stem"."aretur",
                    "$stem"."aremur","$stem"."aremini","$stem"."arentur" );

    @per_sub_dep_1 = ( "First Conjugation: Perfect Subjunctive Deponent",
                    "$pp4"."us sim","$pp4"."us sis","$pp4"."us sit",
                    "$pp4"."i simus","$pp4"."i sitis","$pp4"."i sint" );

    @plu_sub_dep_1 = ( "First Conjugation: Pluperfect Subjunctive Deponent",
                    "$pp4"."us essem","$pp4"."us esses","$pp4"."us esset",
                   "$pp4"."i essemus","$pp4"."i essetis","$pp4"."i essent");
}

sub form_dep_verbs_2
{
    local( $stem, $pp4 ) = @_;

    @imperative_dep_2 = ("Second Conjugation: Imperative Deponent",
                         "$stem"."ere", "$stem"."emini" );

    @pr_ind_dep_2 = ( "Second Conjugation: Present Indicative Deponent",
                    "$stem"."eor","$stem"."eris","$stem"."etur",
                    "$stem"."emur","$stem"."emini","$stem"."entur" );
    @imp_ind_dep_2 = ( "Second Conjugation: Imperfect Indicative Deponent",
                    "$stem"."ebar","$stem"."ebaris","$stem"."ebatur",
                    "$stem"."ebamur","$stem"."ebamini","$stem"."ebantur" );
    @fu_ind_dep_2 = ( "Second Conjugation: Future Indicative Deponent",
                    "$stem"."ebor","$stem"."eberis","$stem"."ebitur",
                    "$stem"."ebimur","$stem"."ebimini","$stem"."ebuntur" );

    @per_ind_dep_2 = ( "Second Conjugation: Perfect Indicative Deponent",
                    "$pp4"."us sum","$pp4"."us es","$pp4"."us est",
                    "$pp4"."i sumus","$pp4"."i estis","$pp4"."i sunt" );
    @plu_ind_dep_2 = ( "Second Conjugation: Pluperfect Indicative Deponent",
                    "$pp4"."us eram","$pp4"."us eras","$pp4"."us erat",
                    "$pp4"."i eramus","$pp4"."i eratis","$pp4"."i erant" );
    @fup_ind_dep_2 = ( "Second Conjugation: Future Perfect Indicative Deponent",
                    "$pp4"."us ero","$pp4"."us eris","$pp4"."us erit",
                    "$pp4"."i erimus","$pp4"."i eritis","$pp4"."i erunt" );

    @pr_sub_dep_2 = ( "Second Conjugation: Present Subjunctive Deponent",
                    "$stem"."ear","$stem"."earis","$stem"."eatur",
                    "$stem"."eamur","$stem"."eamini","$stem"."eantur" );

    @imp_sub_dep_2 = ( "Second Conjugation: Imperfect Subjunctive Deponent",
                    "$stem"."erer","$stem"."ereris","$stem"."eretur",
                    "$stem"."eremur","$stem"."eremini","$stem"."erentur" );

    @per_sub_dep_2 = ( "Second Conjugation: Perfect Subjunctive Deponent",
                    "$pp4"."us sim","$pp4"."us sis","$pp4"."us sit",
                    "$pp4"."i simus","$pp4"."i sitis","$pp4"."i sint" );

    @plu_sub_dep_2 = ( "Second Conjugation: Pluperfect Subjunctive Deponent",
                    "$pp4"."us essem","$pp4"."us esses","$pp4"."us esset",
                   "$pp4"."i essemus","$pp4"."i essetis","$pp4"."i essent");
}

sub form_dep_verbs_3
{
    local( $stem, $pp4 ) = @_;

    @imperative_dep_3 = ("Third Conjugation: Imperative Deponent", 
                          "$stem"."ere", "$stem"."imini" );

    # Third conj Deponent
    @pr_ind_dep_3 = ( "Third Conjugation: Present Indicative Deponent",
                    "$stem"."or","$stem"."eris","$stem"."itur",
                    "$stem"."imur","$stem"."imini","$stem"."untur" );

    @imp_ind_dep_3 = ( "Third Conjugation: Imperfect Indicative Deponent",
                    "$stem"."ebar","$stem"."ebaris","$stem"."ebatur",
                    "$stem"."ebamur","$stem"."ebamini","$stem"."ebantur" );

    @fu_ind_dep_3 = ( "Third Conjugation: Future Indicative Deponent",
                    "$stem"."ar","$stem"."eris","$stem"."etur",
                    "$stem"."emur","$stem"."emini","$stem"."entur" );

    @per_ind_dep_3 = ( "Third Conjugation: Perfect Indicative Deponent",
                    "$pp4"."us sum","$pp4"."us es","$pp4"."us est",
                    "$pp4"."i sumus","$pp4"."i estis","$pp4"."i sunt" );

    @plu_ind_dep_3 = ( "Third Conjugation: Pluperfect Indicative Deponent",
                    "$pp4"."us eram","$pp4"."us eras","$pp4"."us erat",
                    "$pp4"."i eramus","$pp4"."i eratis","$pp4"."i erant" );

    @fup_ind_dep_3 = ( "Third Conjugation: Future Perfect Indicative Deponent",
                    "$pp4"."us ero","$pp4"."us eris","$pp4"."us erit",
                    "$pp4"."i erimus","$pp4"."i eritis","$pp4"."i erunt" );

    @pr_sub_dep_3 = ( "Third Conjugation: Present Subjunctive Deponent",
                    "$stem"."ar","$stem"."aris","$stem"."atur",
                    "$stem"."amur","$stem"."amini","$stem"."antur" );
    @imp_sub_dep_3 = ( "Third Conjugation: Imperfect Subjunctive Deponent",
                    "$stem"."erer","$stem"."ereris","$stem"."eretur",
                    "$stem"."eremur","$stem"."eremini","$stem"."erentur" );

    @per_sub_dep_3 = ( "Third Conjugation: Perfect Subjunctive Deponent",
                    "$pp4"."us sim","$pp4"."us sis","$pp4"."us sit",
                    "$pp4"."i simus","$pp4"."i sitis","$pp4"."i sint" );
    @plu_sub_dep_3 = ( "Third Conjugation: Pluperfect Subjunctive Deponent",
                    "$pp4"."us essem","$pp4"."us esses","$pp4"."us esset",
                    "$pp4"."i essemus","$pp4"."i essetis","$pp4"."i essent" );
}

sub form_dep_verbs_4
{
    local( $stem, $pp4 ) = @_;

    @imperative_dep_4 = ("Fourth Conjugation: Imperative Deponent", 
                        "$stem"."ire", "$stem"."imini" );

    # Fourth conj Deponent
    @pr_ind_dep_4 = ( "Fourth Conjugation: Present Indicative Deponent",
                    "$stem"."ior","$stem"."iris","$stem"."itur",
                    "$stem"."imur","$stem"."imini","$stem"."iuntur" );

    @imp_ind_dep_4 = ( "Fourth Conjugation: Imperfect Indicative Deponent",
                    "$stem"."iebar","$stem"."iebaris","$stem"."iebatur",
                    "$stem"."iebamur","$stem"."iebamini","$stem"."iebantur" );

    @fu_ind_dep_4 = ( "Fourth Conjugation: Future Indicative Deponent",
                    "$stem"."iar","$stem"."ieris","$stem"."ietur",
                    "$stem"."iemur","$stem"."iemini","$stem"."ientur" );

    @per_ind_dep_4 = ( "Fourth Conjugation: Perfect Indicative Deponent",
                    "$pp4"."us sum","$pp4"."us es","$pp4"."us est",
                    "$pp4"."i sumus","$pp4"."i estis","$pp4"."i sunt" );

    @plu_ind_dep_4 = ( "Fourth Conjugation: Pluperfect Indicative Deponent",
                    "$pp4"."us eram","$pp4"."us eras","$pp4"."us erat",
                    "$pp4"."i eramus","$pp4"."i eratis","$pp4"."i erant" );

    @fup_ind_dep_4 = ( "Fourth Conjugation: Future Perfect Indicative Deponent",
                    "$pp4"."us ero","$pp4"."us eris","$pp4"."us erit",
                    "$pp4"."i erimus","$pp4"."i eritis","$pp4"."i erunt" );

    @pr_sub_dep_4 = ( "Fourth Conjugation: Present Subjunctive Deponent",
                    "$stem"."iar","$stem"."iaris","$stem"."iatur",
                    "$stem"."iamur","$stem"."iamini","$stem"."iantur" );
    @imp_sub_dep_4 = ( "Fourth Conjugation: Imperfect Subjunctive Deponent",
                    "$stem"."irer","$stem"."ireris","$stem"."iretur",
                    "$stem"."iremur","$stem"."iremini","$stem"."irentur" );

    @per_sub_dep_4 = ( "Fourth Conjugation: Perfect Subjunctive Deponent",
                    "$pp4"."us sim","$pp4"."us sis","$pp4"."us sit",
                    "$pp4"."i simus","$pp4"."i sitis","$pp4"."i sint" );
    @plu_sub_dep_4 = ( "Fourth Conjugation: Pluperfect Subjunctive Deponent",
                    "$pp4"."us essem","$pp4"."us esses","$pp4"."us esset",
                    "$pp4"."i essemus","$pp4"."i essetis","$pp4"."i essent" );
}

sub form_dep_verbs_3_4
{
    local( $stem, $pp4 ) = @_;

    @imperative_dep_3_4 = ("Third/Fourth Conjugation: Imperative Deponent", 
                        "$stem"."ere", "$stem"."imini" );

    # Third/Fourth conj Deponent
    @pr_ind_dep_3_4 = ( "Third/Fourth Conjugation: Present Indicative Deponent",
                    "$stem"."ior","$stem"."eris","$stem"."itur",
                    "$stem"."imur","$stem"."imini","$stem"."iuntur" );

    @imp_ind_dep_3_4 = ( "Third/Fourth Conjugation: Imperfect Indicative Deponent",
                    "$stem"."iebar","$stem"."iebaris","$stem"."iebatur",
                    "$stem"."iebamur","$stem"."iebamini","$stem"."iebantur" );

    @fu_ind_dep_3_4 = ( "Third/Fourth Conjugation: Future Indicative Deponent",
                    "$stem"."iar","$stem"."ieris","$stem"."ietur",
                    "$stem"."iemur","$stem"."iemini","$stem"."ientur" );

    @per_ind_dep_3_4 = ( "Third/Fourth Conjugation: Perfect Indicative Deponent",
                    "$pp4"."us sum","$pp4"."us es","$pp4"."us est",
                    "$pp4"."i sumus","$pp4"."i estis","$pp4"."i sunt" );

    @plu_ind_dep_3_4 = ( "Third/Fourth Conjugation: Pluperfect Indicative Deponent",
                    "$pp4"."us eram","$pp4"."us eras","$pp4"."us erat",
                    "$pp4"."i eramus","$pp4"."i eratis","$pp4"."i erant" );

    @fup_ind_dep_3_4 = ( 
                    "Third/Fourth Conjugation: Future Perfect Indicative Deponent",
                    "$pp4"."us ero","$pp4"."us eris","$pp4"."us erit",
                    "$pp4"."i erimus","$pp4"."i eritis","$pp4"."i erunt" );

    @pr_sub_dep_3_4 = ( "Third/Fourth Conjugation: Present Subjunctive Deponent",
                    "$stem"."iar","$stem"."iaris","$stem"."iatur",
                    "$stem"."iamur","$stem"."iamini","$stem"."iantur" );
    @imp_sub_dep_3_4 = ( 
                    "Third/Fourth Conjugation: Imperfect Subjunctive Deponent",
                    "$stem"."erer","$stem"."ereris","$stem"."eretur",
                    "$stem"."eremur","$stem"."eremini","$stem"."erentur" );

    @per_sub_dep_3_4 = ( "Third/Fourth Conjugation: Perfect Subjunctive Deponent",
                    "$pp4"."us sim","$pp4"."us sis","$pp4"."us sit",
                    "$pp4"."i simus","$pp4"."i sitis","$pp4"."i sint" );
    @plu_sub_dep_3_4 = ( 
               "Third/Fourth Conjugation: Pluperfect Subjunctive Deponent",
               "$pp4"."us essem","$pp4"."us esses","$pp4"."us esset",
               "$pp4"."i essemus","$pp4"."i essetis","$pp4"."i essent" );
}


## Irregular Verbs
sub form_verbs_esse
{
    # Only Active exists

    @imperative_esse = ("Esse: Imperative", "es", "este");

    @pr_ind_esse = ("Esse: Present Indicative", "sum","es","est",
                    "sumus","estis","sunt");
    @imp_ind_esse= ("Esse: Imperfect Indicative","eram","eras","erat",
                    "eramus", "eratis","erant");
    @fu_ind_esse=("Esse: Future Indicative","ero","eris","erit",
                  "erimus","eritis","erunt");
    @per_ind_esse = ("Esse: Perfect Indicative", "fui", "fuisti", "fuit",
                "fuimus", "fuistis", "fuerunt");
    @plu_ind_esse = ("Esse: Pluperfect Indicative", "fueram", "fueras", "fuerat",
                "fueramus", "fueratis", "fuerant");
    @fup_ind_esse = ("Esse: Future Perfect Indicative", "fuero", "fueris", "fuerit",
                "fuerimus" ,"fueritis", "fuerint");
    @pr_sub_esse = ("Esse: Present Subjunctive", "sim", "sis","sit",
                    "simus","sitis","sint");
    @imp_sub_esse =("Esse: Imperfect Subjunctive", "essem", "esses","esset",
               "essemus", "essetis","essent");
    @per_sub_esse = ("Esse: Perfect Subjunctive", "fuerim","fueris","fuerit",
                "fuerimus", "fueritis","fuerint");
    @plu_sub_esse = ("Esse: Pluperfect Subjunctive", "fuissem","fuisses","fuisset",
                "fuissemus", "fuissetis","fuissent");
}

sub form_verbs_posse
{
    # only Active exists
    @pr_ind_posse = ("Posse: Present Indicative", "possum","potes","potest",
                    "possumus","potestis","possunt");
    @imp_ind_posse= ("Posse: Imperfect Indicative","poteram","poteras","poterat",
                    "poteramus", "poteratis","poterant");
    @fu_ind_posse=("Posse: Future Indicative","potero","poteris","poterit",
                  "poterimus","poteritis","poterunt");

    @per_ind_posse = ("Posse: Perfect Indicative", "potui", "potuisti", "potuit",
                "potuimus", "potuistis", "potuerunt");

    @plu_ind_posse = ("Posse: Pluperfect Indicative", 
                      "potueram", "potueras", "potuerat",
                      "potueramus", "potueratis", "potuerant");
    @fup_ind_posse = ("Posse: Future Perfect Indicative", 
                      "potuero", "potueris", "potuerit",
                      "potuerimus" ,"potueritis", "potuerint");

    @pr_sub_posse = ("Posse: Present Subjunctive", 
                     "possim", "possis","possit",
                     "possimus","possitis","possint");

    @imp_sub_posse =("Posse: Imperfect Subjunctive", 
                     "possem", "posses","posset",
                     "possemus", "possetis","possent");

    @per_sub_posse = ("Posse: Perfect Subjunctive", 
                      "potuerim","potueris","potuerit",
                      "potuerimus", "potueritis","potuerint");
    @plu_sub_posse = ("Posse: Pluperfect Subjunctive", 
                      "potuissem","potuisses","potuisset",
                      "potuissemus", "potuissetis","potuissent");
}

sub form_verbs_ferre
{
    # Active forms
    @imperative_ac_ferre = ("Ferre: Active Imperative","fer","ferte");
    @imperative_pa_ferre = ("Ferre: Passive Imperative","ferre","ferimini");

    @pr_ind_ac_ferre = ("Ferre: Present Indicative", "fero","fers","fert",
                    "ferimus","fertis","ferunt");

    @imp_ind_ac_ferre = ("Ferre: Imperfect Indicative Active",
                        "ferebam","ferebas","ferebat",
                        "ferebamus", "ferebatis","ferebant");

    @fu_ind_ac_ferre = ("Ferre: Future Indicative Active",
                        "feram","feres","feret",
                        "feremus","feretis","ferent");

    @per_ind_ac_ferre = ("Ferre: Perfect Indicative Active", 
                         "tuli", "tulisti", "tulit",
                         "tulimus", "tulistis", "tulerunt");

    @plu_ind_ac_ferre = ("Ferre: Pluperfect Indicative Active", 
                         "tuleram", "tuleras", "tulerat",
                         "tuleramus", "tuleratis", "tulerant");

    @fup_ind_ac_ferre = ("Ferre: Future Perfect Indicative Active", 
                         "tulero", "tuleris", "tulerit",
                         "tulerimus" ,"tuleritis", "tulerint");

    @pr_sub_ac_ferre = ("Ferre: Present Subjunctive Active", 
                        "feram", "feras","ferat",
                        "feramus","feratis","ferant");

    @imp_sub_ac_ferre = ("Ferre: Imperfect Subjunctive Active", 
                         "ferrem", "ferres","ferret",
                         "ferremus", "ferretis","ferrent");

    @per_sub_ac_ferre = ("Ferre: Perfect Subjunctive Active", 
                         "tulerim","tuleris","tulerit",
                         "tulerimus", "tuleritis","tulerint");

    @plu_sub_ac_ferre = ("Ferre: Pluperfect Subjunctive Active", 
                         "tulissem","tulisses","tulisset",
                         "tulissemus", "tulissetis","tulissent");
    # Passive forms
    @pr_ind_pa_ferre = ( "Ferre: Present Indicative Passive",
                        "feror","ferris","fertur",
                        "ferimur","ferimini","feruntur" );

    @imp_ind_pa_ferre = ( "Ferre: Imperfect Indicative Passive",
                         "ferebar","ferebaris","ferebatur",
                         "ferebamur","ferebamini","ferebantur" );

    @fu_ind_pa_ferre = ( "Ferre: Future Indicative Passive",
                        "ferar","fereris","feretur",
                        "feremur","feremini","ferentur" );

    @per_ind_pa_ferre = ( "Ferre: Perfect Indicative Passive",
                         "latus sum","latus es","latus est",
                         "lati sumus","lati estis","lati sunt" );

    @plu_ind_pa_ferre = ( "Ferre: Pluperfect Indicative Passive",
                         "latus eram","latus eras","latus erat",
                         "lati eramus","lati eratis","lati erant" );

    @fup_ind_pa_ferre = ( "Ferre: Future Perfect Indicative Passive",
                         "latus ero","latus eris","latus erit",
                         "lati erimus","lati eritis","lati erunt" );

    @pr_sub_pa_ferre = ( "Ferre: Present Subjunctive Passive",
                        "ferar","feraris","feratur",
                        "feramur","feramini","ferantur" );

    @imp_sub_pa_ferre = ( "Ferre: Imperfect Subjunctive Passive",
                         "ferrer","ferreris","ferretur",
                         "ferremur","ferremini","ferrentur" );

    @per_sub_pa_ferre = ( "Ferre: Perfect Subjunctive Passive",
                         "latus sim","latus sis","latus sit",
                         "lati simus","lati sitis","lati sint" );

    @plu_sub_pa_ferre = ( "Ferre: Pluperfect Subjunctive Passive",
                     "latus essem","latus esses","latus esset",
                     "lati essemus","lati essetis","lati essent" );

}

sub form_verbs_velle
{
    # Only Active exists
    @pr_ind_velle = ("Velle: Present Indicative", "volo","vis","vult",
                     "volumus","vultis","volunt");
    
    @imp_ind_velle= ("Velle: Imperfect Indicative","volebam","volebas","volebat",
                     "volebamus", "volebatis","volebant");

    @fu_ind_velle=("Velle: Future Indicative","volam","voles","volet",
                   "volemus","voletis","volent");

    @per_ind_velle = ("Velle: Perfect Indicative", 
                      "volui", "voluisti", "voluit",
                      "voluimus", "voluistis", "voluerunt");

    @plu_ind_velle = ("Velle: Pluperfect Indicative", 
                      "volueram", "volueras", "voluerat",
                      "volueramus", "volueratis", "voluerant");

    @fup_ind_velle = ("Velle: Future Perfect Indicative", 
                      "voluero", "volueris", "voluerit",
                      "voluerimus" ,"volueritis", "voluerint");

    @pr_sub_velle = ("Velle: Present Subjunctive", "velim", "velis","velit",
                     "velimus","velitis","velint");

    @imp_sub_velle =("Velle: Imperfect Subjunctive", "vellem", "velles","vellet",
                     "vellemus", "velletis","vellent");

    @per_sub_velle = ("Velle: Perfect Subjunctive", 
                      "voluerim","volueris","voluerit",
                      "voluerimus", "volueritis","voluerint");

    @plu_sub_velle = ("Velle: Pluperfect Subjunctive", 
                      "voluissem","voluisses","voluisset",
                      "voluissemus", "voluissetis","voluissent");
}

sub form_verbs_ire
{
    # Only Active exists

    @imperative_ire = ("Ire: Imperative", "i", "ite");

    @pr_ind_ire = ("Ire: Present Indicative", "eo","is","it",
                    "imus","itis","eunt");

    @imp_ind_ire= ("Ire: Imperfect Indicative","ibam","ibas","ibat",
                    "ibamus", "ibatis","ibant");

    @fu_ind_ire=("Ire: Future Indicative","ibo","ibis","ibit",
                  "ibimus","ibitis","ibunt");

    @per_ind_ire = ("Ire: Perfect Indicative", "ii", "isti", "iit",
                "iimus", "istis", "ierunt");

    @plu_ind_ire = ("Ire: Pluperfect Indicative", "ieram", "ieras", "ierat",
                "ieramus", "ieratis", "ierant");

    @fup_ind_ire = ("Ire: Future Perfect Indicative", "iero", "ieris", "ierit",
                "ierimus" ,"ieritis", "ierint");

    @pr_sub_ire = ("Ire: Present Subjunctive", "eam", "eas","eat",
                    "eamus","eatis","eant");

    @imp_sub_ire =("Ire: Imperfect Subjunctive", "irem", "ires","iret",
               "iremus", "iretis","irent");

    @per_sub_ire = ("Ire: Perfect Subjunctive", "ierim","ieris","ierit",
                "ierimus", "ieritis","ierint");

    @plu_sub_ire = ("Ire: Pluperfect Subjunctive", "issem","isses","isset",
                "issemus", "issetis","issent");
}


# ensure any `require` succeeds, so return a 1
1;