msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity
Files
d589cedc6bdebf4d86db901989bbab0fa479ba65
gf-rgl/src/gaelic/MorphoGla.gf
Krasimir Angelov d589cedc6b fix typechecking with the normal type checker
2025-11-06 12:41:31 +01:00

10650 lines
388 KiB
Plaintext
Raw Blame History

This file contains ambiguous Unicode characters
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
resource MorphoGla = open CatGla, ResGla, Predef in {
oper
mkA001 : Str -> A ;
mkA001 base =
case base of {
base_1+base_2@("l"|"r"|"n"|(?+?)) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => base_1+base_2 ;
ASg (Dat _) Masc => base_1+base_2 ;
ASg (Dat _) Fem => base_1+"i"+base_2 ;
ASg Gen Masc => base_1+"i"+base_2 ;
ASg Gen Fem => base_1+"i"+base_2+"e" ;
APl => base_1+base_2
} ;
voc = table {
Masc => base_1+"i"+base_2 ;
Fem => base_1+base_2
} ;
compar = base_1+"i"+base_2+"e"
};
_ => error "Can't apply paradigm mkA001"
} ;
mkA002 : Str -> A ;
mkA002 base =
case base of {
base_1@?+base_2+base_3@("r"|"m"|"s"|"rbh"|(?+?)) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+base_3 ;
ASg (Dat _) Masc => base_1+"h"+base_2+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+"h"+base_2+"i"+base_3 ;
APl => base_1+base_2+base_3
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+"i"+base_3
} ;
compar = base_1+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA002"
} ;
mkA003 : Str -> A ;
mkA003 base =
case base of {
base_1@?+base_2 => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => base_1+"h"+base_2 ;
ASg (Dat _) Masc => base_1+base_2 ;
ASg (Dat _) Fem => base_1+"h"+base_2 ;
ASg Gen Masc => base_1+"h"+base_2 ;
ASg Gen Fem => base_1+base_2+"e" ;
APl => base_1+base_2+"e"
} ;
voc = table {
Masc => base_1+"h"+base_2 ;
Fem => base_1+"h"+base_2
} ;
compar = base_1+base_2+"e"
};
_ => error "Can't apply paradigm mkA003"
} ;
mkA004 : Str -> A ;
mkA004 base =
case base of {
base_1@?+base_2+"ea"+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"ea"+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+"ea"+base_3 ;
ASg (Dat _) Masc => base_1+base_2+"ea"+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+base_2+"i"+base_3+"e" ;
APl => base_1+base_2+"ea"+base_3
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+"ea"+base_3
} ;
compar = base_1+base_2+base_3+"e"
};
_ => error "Can't apply paradigm mkA004"
} ;
mkA005 : Str -> A ;
mkA005 base =
case base of {
base_1+"ea"+base_2@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"ea"+base_2 ;
ASg (Nom _) Fem => base_1+"ea"+base_2 ;
ASg (Dat _) Masc => base_1+"ea"+base_2 ; --guessed
ASg (Dat _) Fem => base_1+"hi"+base_2 ; --guessed
ASg Gen Masc => base_1+"i"+base_2 ;
ASg Gen Fem => base_1+"i"+base_2+"e" ;
APl => base_1+"ea"+base_2
} ;
voc = table {
Masc => base_1+"i"+base_2 ;
Fem => base_1+"hea"+base_2 --guessed
} ;
compar = base_1+"i"+base_2+"e"
};
_ => error "Can't apply paradigm mkA005"
} ;
mkA006 : Str -> A ;
mkA006 base =
case base of {
base_1@?+base_2+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+base_3 ;
ASg (Dat _) Masc => base_1+base_2+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+base_2+"i"+base_3+"e" ;
APl => base_1+base_2+base_3
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+base_3
} ;
compar = base_1+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA006"
} ;
mkA007 : Str -> A ;
mkA007 base =
case base of {
base_1 => lin A
{ s = table {
ASg (Nom _) Masc => base_1 ;
ASg (Nom _) Fem => base_1 ;
ASg (Dat _) Masc => base_1 ; --guessed
ASg (Dat _) Fem => base_1+"e" ; --guessed
ASg Gen Masc => base_1 ;
ASg Gen Fem => base_1+"e" ;
APl => base_1+"e"
} ;
voc = table {
Masc => base_1 ; --guessed
Fem => base_1 --guessed
} ;
compar = base_1+"e"
};
_ => error "Can't apply paradigm mkA007"
} ;
mkA008 : Str -> A ;
mkA008 base =
case base of {
base_1@?+base_2+"ea"+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"ea"+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+"ea"+base_3 ;
ASg (Dat _) Masc => base_1+"h"+base_2+"ea"+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+base_2+"i"+base_3+"e" ;
APl => base_1+base_2+"ea"+base_3
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+"ea"+base_3
} ;
compar = base_1+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA008"
} ;
mkA009 : Str -> A ;
mkA009 base =
case base of {
base_1 => lin A
{ s = table {
ASg (Nom _) Masc => base_1 ;
ASg (Nom _) Fem => base_1 ;
ASg (Dat _) Masc => base_1 ; --guessed
ASg (Dat _) Fem => base_1+"e" ; --guessed
ASg Gen Masc => base_1 ; --guessed
ASg Gen Fem => base_1 ; --guessed
APl => base_1+"a"
} ;
voc = table {
Masc => base_1 ; --guessed
Fem => base_1 --guessed
} ;
compar = base_1
};
_ => error "Can't apply paradigm mkA009"
} ;
mkA010 : Str -> A ;
mkA010 base =
case base of {
base_1+"o"+base_2@("rch"|"rb"|"rm"|?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"o"+base_2 ;
ASg (Nom _) Fem => base_1+"ho"+base_2 ;
ASg (Dat _) Masc => base_1+"ho"+base_2 ;
ASg (Dat _) Fem => base_1+"hui"+base_2 ;
ASg Gen Masc => base_1+"hui"+base_2 ;
ASg Gen Fem => base_1+"hui"+base_2 ;
APl => base_1+"o"+base_2
} ;
voc = table {
Masc => base_1+"hui"+base_2 ;
Fem => base_1+"ho"+base_2
} ;
compar = base_1+"ui"+base_2+"e"
};
_ => error "Can't apply paradigm mkA010"
} ;
mkA011 : Str -> A ;
mkA011 base =
case base of {
base_1+base_2@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => base_1+base_2 ;
ASg (Dat _) Masc => base_1+base_2 ;
ASg (Dat _) Fem => base_1+"i"+base_2 ;
ASg Gen Masc => base_1+"i"+base_2 ;
ASg Gen Fem => base_1+"i"+base_2 ;
APl => base_1+base_2
} ;
voc = table {
Masc => base_1+"i"+base_2 ;
Fem => base_1+"i"+base_2
} ;
compar = base_1+"i"+base_2+"e"
};
_ => error "Can't apply paradigm mkA011"
} ;
mkA012 : Str -> A ;
mkA012 base =
case base of {
base_1+"ea"+base_2@? => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"ea"+base_2 ;
ASg (Nom _) Fem => base_1+"hea"+base_2 ;
ASg (Dat _) Masc => base_1+"ea"+base_2 ;
ASg (Dat _) Fem => base_1+"hi"+base_2 ;
ASg Gen Masc => base_1+"i"+base_2 ;
ASg Gen Fem => base_1+"i"+base_2+"e" ;
APl => base_1+"ea"+base_2+"a"
} ;
voc = table {
Masc => base_1+"hi"+base_2 ;
Fem => base_1+"hea"+base_2
} ;
compar = base_1+"i"+base_2+"e"
};
_ => error "Can't apply paradigm mkA012"
} ;
mkA013 : Str -> A ;
mkA013 base =
case base of {
base_1+base_2@(?+?+?+?)+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+base_3 ;
ASg (Dat _) Masc => base_1+"h"+base_2+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+"h"+base_2+"i"+base_3 ;
APl => base_1+"h"+base_2+base_3
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+"i"+base_3
} ;
compar = base_1+base_2+"i"+base_3+"e" --guessed
};
_ => error "Can't apply paradigm mkA013"
} ;
mkA014 : Str -> A ;
mkA014 base =
case base of {
base_1@?+base_2+base_3@("r"|"n"|(?+?)) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+base_3 ;
ASg (Dat _) Masc => base_1+base_2+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+base_2+"i"+base_3+"e" ;
APl => base_1+base_2+base_3+"a"
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+base_3
} ;
compar = base_1+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA014"
} ;
mkA015 : Str -> A ;
mkA015 base =
case base of {
base_1@?+base_2 => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => base_1+"h"+base_2 ;
ASg (Dat _) Masc => base_1+base_2 ;
ASg (Dat _) Fem => base_1+"h"+base_2 ;
ASg Gen Masc => base_1+"h"+base_2 ;
ASg Gen Fem => base_1+base_2+"a" ;
APl => base_1+base_2+"a"
} ;
voc = table {
Masc => base_1+"h"+base_2 ;
Fem => base_1+"h"+base_2
} ;
compar = base_1+base_2+"a"
};
_ => error "Can't apply paradigm mkA015"
} ;
mkA016 : Str -> A ;
mkA016 base =
case base of {
base_1+"o"+base_2@(?+?)+"a"+base_3@? => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"o"+base_2+"a"+base_3 ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"ui"+base_2+base_3+"e"
};
_ => error "Can't apply paradigm mkA016"
} ;
mkA017 : Str -> A ;
mkA017 base =
case base of {
base_1+base_2@(?+?+?+?+?+?+?+?)+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+base_3 ;
ASg (Dat _) Masc => base_1+base_2+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+base_2+"i"+base_3+"e" ;
APl => base_1+base_2+base_3
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+base_3
} ;
compar = base_1+base_2+"i"+base_3
};
_ => error "Can't apply paradigm mkA017"
} ;
mkA018 : Str -> A ;
mkA018 base =
case base of {
base_1+base_2@?+"ea"+base_3@? => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"ea"+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+"ea"+base_3 ;
ASg (Dat _) Masc => base_1+base_2+"ea"+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+base_2+"i"+base_3+"e" ;
APl => base_1+base_2+"ea"+base_3+"a"
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+"ea"+base_3
} ;
compar = base_1+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA018"
} ;
mkA019 : Str -> A ;
mkA019 base =
case base of {
base_1+base_2@?+"un" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"un" ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"èin"+base_2
};
_ => error "Can't apply paradigm mkA019"
} ;
mkA020 : Str -> A ;
mkA020 base =
case base of {
base_1+base_2@(?+?+?+?+?+?+?+?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => base_1+"h"+base_2 ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => base_1+base_2 ;
ASg Gen Fem => base_1+base_2+"e" ;
APl => base_1+base_2+"e"
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+base_2+"e"
};
_ => error "Can't apply paradigm mkA020"
} ;
mkA021 : Str -> A ;
mkA021 base =
case base of {
base_1@?+base_2 => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => base_1+"h"+base_2 ;
ASg (Dat _) Masc => base_1+"h"+base_2 ;
ASg (Dat _) Fem => base_1+"h"+base_2 ;
ASg Gen Masc => base_1+"h"+base_2 ;
ASg Gen Fem => base_1+"h"+base_2 ;
APl => base_1+base_2
} ;
voc = table {
Masc => base_1+"h"+base_2 ;
Fem => base_1+"h"+base_2
} ;
compar = base_1+base_2+"a" --guessed
};
_ => error "Can't apply paradigm mkA021"
} ;
mkA022 : Str -> A ;
mkA022 base =
case base of {
base_1+base_2@(?+?+?+?)+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+base_3 ;
ASg (Dat _) Masc => base_1+"h"+base_2+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+"h"+base_2+"i"+base_3 ;
APl => base_1+base_2+base_3
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+base_3
} ;
compar = base_1+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA022"
} ;
mkA023 : Str -> A ;
mkA023 base =
case base of {
base_1+"_1" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"_1" ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1
};
_ => error "Can't apply paradigm mkA023"
} ;
mkA024 : Str -> A ;
mkA024 base =
case base of {
base_1+base_2@("dh"|"ch"|"rd"|?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => base_1+base_2 ;
ASg (Dat _) Masc => base_1+base_2 ;
ASg (Dat _) Fem => base_1+"i"+base_2 ;
ASg Gen Masc => base_1+"i"+base_2 ;
ASg Gen Fem => base_1+"i"+base_2+"e" ;
APl => base_1+base_2+"a"
} ;
voc = table {
Masc => base_1+"i"+base_2 ;
Fem => base_1+base_2
} ;
compar = base_1+"i"+base_2+"e"
};
_ => error "Can't apply paradigm mkA024"
} ;
mkA025 : Str -> A ;
mkA025 base =
case base of {
base_1@?+base_2+"a"+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"a"+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+"a"+base_3 ;
ASg (Dat _) Masc => base_1+base_2+"a"+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+base_2+"i"+base_3+"e" ;
APl => base_1+base_2+"a"+base_3+"a"
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+"a"+base_3
} ;
compar = base_1+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA025"
} ;
mkA026 : Str -> A ;
mkA026 base =
case base of {
base_1 => lin A
{ s = table {
ASg (Nom _) Masc => base_1 ;
ASg (Nom _) Fem => base_1 ; --guessed
ASg (Dat _) Masc => base_1 ; --guessed
ASg (Dat _) Fem => base_1+"e" ; --guessed
ASg Gen Masc => base_1 ; --guessed
ASg Gen Fem => base_1 ; --guessed
APl => base_1+"a" --guessed
} ;
voc = table {
Masc => base_1 ; --guessed
Fem => base_1 --guessed
} ;
compar = base_1+"a"
};
_ => error "Can't apply paradigm mkA026"
} ;
mkA027 : Str -> A ;
mkA027 base =
case base of {
base_1@?+base_2@?+"a"+base_3 => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"a"+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+"a"+base_3 ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"è"+base_2+base_3+"e"
};
_ => error "Can't apply paradigm mkA027"
} ;
mkA028 : Str -> A ;
mkA028 base =
case base of {
base_1@?+base_2 => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => base_1+"h"+base_2 ;
ASg (Dat _) Masc => base_1+base_2 ;
ASg (Dat _) Fem => base_1+"h"+base_2 ;
ASg Gen Masc => base_1+"h"+base_2 ;
ASg Gen Fem => base_1+base_2+"e" ;
APl => base_1+base_2
} ;
voc = table {
Masc => base_1+"h"+base_2 ;
Fem => base_1+"h"+base_2
} ;
compar = base_1+base_2+"a" --guessed
};
_ => error "Can't apply paradigm mkA028"
} ;
mkA029 : Str -> A ;
mkA029 base =
case base of {
base_1+"a"+base_2@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"a"+base_2 ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"oi"+base_2+"e"
};
_ => error "Can't apply paradigm mkA029"
} ;
mkA030 : Str -> A ;
mkA030 base =
case base of {
base_1@(?+?)+"a"+base_2 => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"a"+base_2 ;
ASg (Nom _) Fem => base_1+"a"+base_2 ;
ASg (Dat _) Masc => base_1+"a"+base_2 ; --guessed
ASg (Dat _) Fem => base_1+"i"+base_2 ; --guessed
ASg Gen Masc => base_1+"i"+base_2 ; --guessed
ASg Gen Fem => base_1+"i"+base_2+"e" ; --guessed
APl => base_1+"a"+base_2+"a" --guessed
} ;
voc = table {
Masc => base_1+"i"+base_2 ; --guessed
Fem => base_1+"a"+base_2 --guessed
} ;
compar = base_1+"i"+base_2+"e"
};
_ => error "Can't apply paradigm mkA030"
} ;
mkA031 : Str -> A ;
mkA031 base =
case base of {
base_1+base_2@(?+?+?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => base_1+"h"+base_2 ;
ASg (Dat _) Masc => base_1+"h"+base_2 ;
ASg (Dat _) Fem => base_1+"h"+base_2 ;
ASg Gen Masc => base_1+"h"+base_2 ;
ASg Gen Fem => base_1+base_2+"e" ;
APl => base_1+base_2
} ;
voc = table {
Masc => base_1+"h"+base_2+"e" ;
Fem => base_1+"h"+base_2+"e"
} ;
compar = base_1+base_2+"a" --guessed
};
_ => error "Can't apply paradigm mkA031"
} ;
mkA032 : Str -> A ;
mkA032 base =
case base of {
base_1+base_2@?+base_3@(?+?)+"ai"+base_4@?+"n" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+base_3+"ai"+base_4+"n" ;
ASg (Nom _) Fem => base_1+"h"+base_2+base_3+"ai"+base_4+"n" ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+base_2+"i"+base_3+base_4+"e"
};
_ => error "Can't apply paradigm mkA032"
} ;
mkA033 : Str -> A ;
mkA033 base =
case base of {
"d"+base_1+"n"+base_2@? => lin A
{ s = table {
ASg (Nom _) Masc => "d"+base_1+"n"+base_2 ;
ASg (Nom _) Fem => "dh"+base_1+"n"+base_2 ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = "mi"+base_1+"s"+base_2
};
_ => error "Can't apply paradigm mkA033"
} ;
mkA034 : Str -> A ;
mkA034 base =
case base of {
base_1+"o"+base_2@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"o"+base_2 ;
ASg (Nom _) Fem => base_1+"ho"+base_2 ;
ASg (Dat _) Masc => base_1+"o"+base_2 ;
ASg (Dat _) Fem => base_1+"hui"+base_2 ;
ASg Gen Masc => base_1+"hui"+base_2 ;
ASg Gen Fem => base_1+"ui"+base_2+"e" ;
APl => base_1+"o"+base_2+"a"
} ;
voc = table {
Masc => base_1+"hui"+base_2 ;
Fem => base_1+"ho"+base_2
} ;
compar = base_1+"ui"+base_2+"e"
};
_ => error "Can't apply paradigm mkA034"
} ;
mkA035 : Str -> A ;
mkA035 base =
case base of {
base_1+"o"+base_2@(?+?+?)+"a" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"o"+base_2+"a" ;
ASg (Nom _) Fem => base_1+"ho"+base_2+"a" ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"ui"+base_2+"e"
};
_ => error "Can't apply paradigm mkA035"
} ;
mkA036 : Str -> A ;
mkA036 base =
case base of {
"dr"+base_1+"ch" => lin A
{ s = table {
ASg (Nom _) Masc => "dr"+base_1+"ch" ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = "mi"+base_1+"sa"
};
_ => error "Can't apply paradigm mkA036"
} ;
mkA037 : Str -> A ;
mkA037 base =
case base of {
base_1+base_2@(?+?+?+?+?+?)+"ea"+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"ea"+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+"ea"+base_3 ;
ASg (Dat _) Masc => base_1+"h"+base_2+"ea"+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+base_2+"i"+base_3 ;
APl => base_1+base_2+"ea"+base_3
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+"i"+base_3
} ;
compar = base_1+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA037"
} ;
mkA038 : Str -> A ;
mkA038 base =
case base of {
base_1@?+base_2+base_3@("r"|(?+?)) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+base_3 ;
ASg (Dat _) Masc => base_1+"h"+base_2+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+base_2+"i"+base_3 ;
APl => base_1+base_2+base_3
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+"i"+base_3
} ;
compar = base_1+"h"+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA038"
} ;
mkA039 : Str -> A ;
mkA039 base =
case base of {
base_1+base_2@(?+?+?)+"ic"+base_3@? => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"ic"+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+"ic"+base_3 ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+base_2+"g"+base_3+"e"
};
_ => error "Can't apply paradigm mkA039"
} ;
mkA040 : Str -> A ;
mkA040 base =
case base of {
base_1+base_2@?+"as" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"as" ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"s"+base_2
};
_ => error "Can't apply paradigm mkA040"
} ;
mkA041 : Str -> A ;
mkA041 base =
case base of {
base_1+base_2@?+base_3@?+"a" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+base_3+"a" ;
ASg (Nom _) Fem => base_1+"h"+base_2+base_3+"a" ;
ASg (Dat _) Masc => base_1+base_2+base_3+"a" ;
ASg (Dat _) Fem => base_1+"h"+base_2+base_3+"a" ;
ASg Gen Masc => base_1+"h"+base_2+base_3+"a" ;
ASg Gen Fem => base_1+base_2+base_3+"a" ;
APl => base_1+base_2+base_3+"a"
} ;
voc = table {
Masc => base_1+"h"+base_2+base_3+"a" ;
Fem => base_1+"h"+base_2+base_3+"a"
} ;
compar = base_1+"h"+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA041"
} ;
mkA042 : Str -> A ;
mkA042 base =
case base of {
base_1+base_2@(?+?+?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => base_1+base_2+"e" ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"h"+base_2+"e"
};
_ => error "Can't apply paradigm mkA042"
} ;
mkA043 : Str -> A ;
mkA043 base =
case base of {
base_1+"ur"+base_2@(?+?)+"d"+base_3@? => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"ur"+base_2+"d"+base_3 ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"h"+base_2+base_3
};
_ => error "Can't apply paradigm mkA043"
} ;
mkA044 : Str -> A ;
mkA044 base =
case base of {
base_1+"ur"+base_2@(?+?)+"t"+base_3@? => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"ur"+base_2+"t"+base_3 ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"h"+base_2+base_3
};
_ => error "Can't apply paradigm mkA044"
} ;
mkA045 : Str -> A ;
mkA045 base =
case base of {
base_1+base_2@("ch"|(?+?+?+?+?+?+?)) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => base_1+"h"+base_2 ;
ASg (Dat _) Masc => base_1+base_2 ;
ASg (Dat _) Fem => base_1+base_2 ;
ASg Gen Masc => base_1+"h"+base_2 ;
ASg Gen Fem => base_1+"h"+base_2 ;
APl => base_1+base_2
} ;
voc = table {
Masc => base_1+"h"+base_2 ;
Fem => base_1+"h"+base_2
} ;
compar = base_1+"i"+base_2
};
_ => error "Can't apply paradigm mkA045"
} ;
mkA046 : Str -> A ;
mkA046 base =
case base of {
base_1+"ea"+base_2@? => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"ea"+base_2 ;
ASg (Nom _) Fem => base_1+"hea"+base_2 ;
ASg (Dat _) Masc => base_1+"ea"+base_2 ;
ASg (Dat _) Fem => base_1+"hi"+base_2 ;
ASg Gen Masc => base_1+"hi"+base_2 ;
ASg Gen Fem => base_1+"i"+base_2+"e" ;
APl => base_1+"ea"+base_2+"a"
} ;
voc = table {
Masc => base_1+"hi"+base_2 ;
Fem => base_1+"hea"+base_2
} ;
compar = base_1+"i"+base_2+"e"
};
_ => error "Can't apply paradigm mkA046"
} ;
mkA047 : Str -> A ;
mkA047 base =
case base of {
base_1+base_2@?+"ur" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"ur" ;
ASg (Nom _) Fem => base_1+"h"+base_2+"ur" ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"èir"+base_2
};
_ => error "Can't apply paradigm mkA047"
} ;
mkA048 : Str -> A ;
mkA048 base =
case base of {
base_1+"eà"+base_2@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"eà"+base_2 ;
ASg (Nom _) Fem => base_1+"heà"+base_2 ;
ASg (Dat _) Masc => base_1+"eà"+base_2 ;
ASg (Dat _) Fem => base_1+"heà"+base_2 ;
ASg Gen Masc => base_1+"heà"+base_2 ;
ASg Gen Fem => base_1+"eà"+base_2 ;
APl => base_1+"eà"+base_2
} ;
voc = table {
Masc => base_1+"heà"+base_2 ;
Fem => base_1+"heà"+base_2
} ;
compar = base_1+"io"+base_2+"a"
};
_ => error "Can't apply paradigm mkA048"
} ;
mkA049 : Str -> A ;
mkA049 base =
case base of {
base_1+base_2@(?+?+?+?)+"ea"+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"ea"+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+"ea"+base_3 ;
ASg (Dat _) Masc => base_1+base_2+"ea"+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+base_2+"i"+base_3+"e" ;
APl => base_1+base_2+"ea"+base_3
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+"ea"+base_3
} ;
compar = nonExist
};
_ => error "Can't apply paradigm mkA049"
} ;
mkA050 : Str -> A ;
mkA050 base =
case base of {
base_1+base_2@?+"o"+base_3@?+"a"+base_4@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"o"+base_3+"a"+base_4 ;
ASg (Nom _) Fem => base_1+"h"+base_2+"o"+base_3+"a"+base_4 ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => base_1+base_2+base_3+"i"+base_4+"e" ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+base_2+base_3+"i"+base_4+"e"
};
_ => error "Can't apply paradigm mkA050"
} ;
mkA051 : Str -> A ;
mkA051 base =
case base of {
base_1+base_2@(?+?)+base_3@? => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+base_3 ;
ASg (Dat _) Masc => base_1+base_2+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+"h"+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+base_2+"i"+base_3+"e" ;
APl => base_1+base_2+base_3+"a"
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+base_3
} ;
compar = base_1+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA051"
} ;
mkA052 : Str -> A ;
mkA052 base =
case base of {
base_1+"o"+base_2@?+base_3@?+"id" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"o"+base_2+base_3+"id" ;
ASg (Nom _) Fem => base_1+"ho"+base_2+base_3+"id" ;
ASg (Dat _) Masc => base_1+"o"+base_2+base_3+"id" ;
ASg (Dat _) Fem => base_1+"ho"+base_2+base_3+"id" ;
ASg Gen Masc => base_1+"ho"+base_2+base_3+"id" ;
ASg Gen Fem => base_1+"o"+base_2+base_3+"ide" ;
APl => base_1+"o"+base_2+base_3+"ide"
} ;
voc = table {
Masc => base_1+"ho"+base_2+base_3+"id" ;
Fem => base_1+"ho"+base_2+base_3+"id"
} ;
compar = base_1+base_2+"o"+base_3+"ra"
};
_ => error "Can't apply paradigm mkA052"
} ;
mkA053 : Str -> A ;
mkA053 base =
case base of {
base_1+base_2@(?+?)+"a"+base_3@(?+?+?)+base_4@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"a"+base_3+base_4 ;
ASg (Nom _) Fem => base_1+"h"+base_2+"a"+base_3+base_4 ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+base_2+base_3+"i"+base_4+"e"
};
_ => error "Can't apply paradigm mkA053"
} ;
mkA054 : Str -> A ;
mkA054 base =
case base of {
base_1+"ri"+base_2@?+"n" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"ri"+base_2+"n" ;
ASg (Nom _) Fem => base_1+"hri"+base_2+"n" ;
ASg (Dat _) Masc => base_1+"hri"+base_2+"n" ;
ASg (Dat _) Fem => base_1+"hri"+base_2+"n" ;
ASg Gen Masc => base_1+"hri"+base_2+"n" ;
ASg Gen Fem => base_1+"hri"+base_2+"n" ;
APl => base_1+"la"+base_2
} ;
voc = table {
Masc => base_1+"hri"+base_2+"n" ;
Fem => base_1+"hri"+base_2+"n"
} ;
compar = nonExist
};
_ => error "Can't apply paradigm mkA054"
} ;
mkA055 : Str -> A ;
mkA055 base =
case base of {
base_1+base_2@(?+?+?+?+?)+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+base_3 ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => base_1+base_2+"i"+base_3 ;
ASg Gen Fem => nonExist ;
APl => base_1+"h"+base_2+base_3
} ;
voc = table {
Masc => base_1+"h"+base_2+"i"+base_3 ;
Fem => base_1+"h"+base_2+base_3
} ;
compar = base_1+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA055"
} ;
mkA056 : Str -> A ;
mkA056 base =
case base of {
base_1@?+base_2@(?+?)+base_3+"a" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+base_3+"a" ;
ASg (Nom _) Fem => base_1+"h"+base_2+base_3+"a" ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA056"
} ;
mkA057 : Str -> A ;
mkA057 base =
case base of {
base_1+"ea"+base_2@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"ea"+base_2 ;
ASg (Nom _) Fem => base_1+"ea"+base_2 ;
ASg (Dat _) Masc => base_1+"ea"+base_2 ;
ASg (Dat _) Fem => base_1+"i"+base_2 ;
ASg Gen Masc => base_1+"i"+base_2 ;
ASg Gen Fem => base_1+"i"+base_2 ;
APl => base_1+"ea"+base_2
} ;
voc = table {
Masc => base_1+"i"+base_2 ;
Fem => base_1+"ea"+base_2
} ;
compar = base_1+"i"+base_2+"e"
};
_ => error "Can't apply paradigm mkA057"
} ;
mkA058 : Str -> A ;
mkA058 base =
case base of {
"ionmh"+base_1+"i"+base_2@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => "ionmh"+base_1+"i"+base_2 ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+base_2+"sa"
};
_ => error "Can't apply paradigm mkA058"
} ;
mkA059 : Str -> A ;
mkA059 base =
case base of {
"ionmhui"+base_1 => lin A
{ s = table {
ASg (Nom _) Masc => "ionmhui"+base_1 ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = "a"+base_1+"sa"
};
_ => error "Can't apply paradigm mkA059"
} ;
mkA060 : Str -> A ;
mkA060 base =
case base of {
base_1+"nn" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"nn" ;
ASg (Nom _) Fem => base_1+"nn" ;
ASg (Dat _) Masc => base_1+"nn" ;
ASg (Dat _) Fem => base_1+"inn" ;
ASg Gen Masc => base_1+"inn" ;
ASg Gen Fem => base_1+"inne" ;
APl => base_1+"nna"
} ;
voc = table {
Masc => base_1+"inn" ;
Fem => base_1+"nn"
} ;
compar = base_1
};
_ => error "Can't apply paradigm mkA060"
} ;
mkA061 : Str -> A ;
mkA061 base =
case base of {
"mat"+base_1 => lin A
{ s = table {
ASg (Nom _) Masc => "mat"+base_1 ;
ASg (Nom _) Fem => "m"+base_1+"ath" ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => "mait"+base_1 ;
ASg Gen Fem => "mait"+base_1+"e" ;
APl => "mat"+base_1+"a"
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = "f"+base_1+"eàrr"
};
_ => error "Can't apply paradigm mkA061"
} ;
mkA062 : Str -> A ;
mkA062 base =
case base of {
base_1+"i"+base_2@?+"i"+base_3@? => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"i"+base_2+"i"+base_3 ;
ASg (Nom _) Fem => base_1+"hi"+base_2+"i"+base_3 ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => base_1+"hi"+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+"ì"+base_2+base_3+"e" ;
APl => base_1+"ì"+base_2+base_3+"e"
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"ì"+base_2+base_3+"e"
};
_ => error "Can't apply paradigm mkA062"
} ;
mkA063 : Str -> A ;
mkA063 base =
case base of {
base_1+base_2@(?+?)+"_1" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"_1" ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => base_1+"i"+base_2 ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"i"+base_2+"e"
};
_ => error "Can't apply paradigm mkA063"
} ;
mkA064 : Str -> A ;
mkA064 base =
case base of {
base_1+"òr" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"òr" ;
ASg (Nom _) Fem => base_1+"hòr" ;
ASg (Dat _) Masc => base_1+"òr" ;
ASg (Dat _) Fem => base_1+"hòir" ;
ASg Gen Masc => base_1+"hòir" ;
ASg Gen Fem => base_1+"òire" ;
APl => base_1+"òra"
} ;
voc = table {
Masc => base_1+"hòir" ;
Fem => base_1+"hòr"
} ;
compar = base_1+"otha"
};
_ => error "Can't apply paradigm mkA064"
} ;
mkA065 : Str -> A ;
mkA065 base =
case base of {
base_1+base_2@(?+?+?+?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => base_1+"h"+base_2 ;
ASg (Dat _) Masc => base_1+"h"+base_2 ;
ASg (Dat _) Fem => base_1+"h"+base_2 ;
ASg Gen Masc => base_1+"h"+base_2 ;
ASg Gen Fem => base_1+base_2+"e" ;
APl => base_1+base_2+"e"
} ;
voc = table {
Masc => base_1+"h"+base_2 ;
Fem => base_1+"h"+base_2
} ;
compar = base_1+base_2+"e"
};
_ => error "Can't apply paradigm mkA065"
} ;
mkA066 : Str -> A ;
mkA066 base =
case base of {
base_1+"ór" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"ór" ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"otha"
};
_ => error "Can't apply paradigm mkA066"
} ;
mkA067 : Str -> A ;
mkA067 base =
case base of {
"neo-"+base_1+"h"+base_2@(?+?+?)+base_3@? => lin A
{ s = table {
ASg (Nom _) Masc => "neo-"+base_1+"h"+base_2+base_3 ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => base_1+base_2+base_3+"a"
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA067"
} ;
mkA068 : Str -> A ;
mkA068 base =
case base of {
base_1 => lin A
{ s = table {
ASg (Nom _) Masc => base_1 ;
ASg (Nom _) Fem => base_1 ;
ASg (Dat _) Masc => base_1 ;
ASg (Dat _) Fem => base_1+"e" ;
ASg Gen Masc => base_1 ;
ASg Gen Fem => base_1 ;
APl => base_1
} ;
voc = table {
Masc => base_1 ;
Fem => base_1
} ;
compar = nonExist
};
_ => error "Can't apply paradigm mkA068"
} ;
mkA069 : Str -> A ;
mkA069 base =
case base of {
base_1 => lin A
{ s = table {
ASg (Nom _) Masc => base_1 ;
ASg (Nom _) Fem => base_1 ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => base_1 ;
ASg Gen Fem => base_1+"e" ;
APl => base_1+"e"
} ;
voc = table {
Masc => base_1 ;
Fem => base_1
} ;
compar = base_1+"e"
};
_ => error "Can't apply paradigm mkA069"
} ;
mkA070 : Str -> A ;
mkA070 base =
case base of {
base_1+"lc" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"lc" ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = "mi"+base_1+"sa"
};
_ => error "Can't apply paradigm mkA070"
} ;
mkA071 : Str -> A ;
mkA071 base =
case base of {
base_1+"a"+base_2@(?+?)+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"a"+base_2+base_3 ;
ASg (Nom _) Fem => base_1+"a"+base_2+base_3 ;
ASg (Dat _) Masc => base_1+"a"+base_2+base_3 ;
ASg (Dat _) Fem => base_1+"a"+base_2+"i"+base_3 ;
ASg Gen Masc => base_1+"a"+base_2+"i"+base_3 ;
ASg Gen Fem => base_1+"o"+base_2+"i"+base_3+"e" ;
APl => base_1+"a"+base_2+base_3
} ;
voc = table {
Masc => base_1+"a"+base_2+"i"+base_3 ;
Fem => base_1+"a"+base_2+base_3
} ;
compar = nonExist
};
_ => error "Can't apply paradigm mkA071"
} ;
mkA072 : Str -> A ;
mkA072 base =
case base of {
base_1+base_2@?+"o"+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"o"+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+"o"+base_3 ;
ASg (Dat _) Masc => base_1+base_2+"o"+base_3 ;
ASg (Dat _) Fem => base_1+"h"+base_2+"ui"+base_3 ;
ASg Gen Masc => base_1+base_2+"ui"+base_3 ;
ASg Gen Fem => base_1+base_2+"ui"+base_3+"e" ;
APl => base_1+base_2+"o"+base_3+"a"
} ;
voc = table {
Masc => base_1+"h"+base_2+"ui"+base_3 ;
Fem => base_1+"h"+base_2+"o"+base_3
} ;
compar = base_1+base_2+"ui"+base_3+"e"
};
_ => error "Can't apply paradigm mkA072"
} ;
mkA073 : Str -> A ;
mkA073 base =
case base of {
base_1+base_2@(?+?+?+?+?+?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => base_1+"h"+base_2 ;
ASg (Dat _) Masc => base_1+base_2 ;
ASg (Dat _) Fem => base_1+"h"+base_2 ;
ASg Gen Masc => base_1+"h"+base_2 ;
ASg Gen Fem => base_1+"h"+base_2 ;
APl => base_1+base_2
} ;
voc = table {
Masc => base_1+"h"+base_2 ;
Fem => base_1+"h"+base_2
} ;
compar = base_1+base_2+"e"
};
_ => error "Can't apply paradigm mkA073"
} ;
mkA074 : Str -> A ;
mkA074 base =
case base of {
base_1+"a"+base_2@? => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"a"+base_2 ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+base_2+"a"
};
_ => error "Can't apply paradigm mkA074"
} ;
mkA075 : Str -> A ;
mkA075 base =
case base of {
base_1 => lin A
{ s = table {
ASg (Nom _) Masc => base_1 ;
ASg (Nom _) Fem => base_1 ;
ASg (Dat _) Masc => base_1 ;
ASg (Dat _) Fem => base_1 ;
ASg Gen Masc => base_1 ;
ASg Gen Fem => base_1 ;
APl => base_1
} ;
voc = table {
Masc => base_1 ;
Fem => base_1
} ;
compar = base_1+"e"
};
_ => error "Can't apply paradigm mkA075"
} ;
mkA076 : Str -> A ;
mkA076 base =
case base of {
base_1+"è"+base_2@(?+?)+"ea"+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"è"+base_2+"ea"+base_3 ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => base_1+"è"+base_2+"i"+base_3 ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"é"+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkA076"
} ;
mkA077 : Str -> A ;
mkA077 base =
case base of {
base_1+base_2@("g"|(?+?)) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => base_1+base_2 ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => base_1+"i"+base_2 ;
ASg Gen Fem => base_1+"i"+base_2+"e" ;
APl => base_1+base_2+"a"
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"i"+base_2+"e"
};
_ => error "Can't apply paradigm mkA077"
} ;
mkA078 : Str -> A ;
mkA078 base =
case base of {
base_1+base_2@?+"an" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"an" ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"in"+base_2
};
_ => error "Can't apply paradigm mkA078"
} ;
mkA079 : Str -> A ;
mkA079 base =
case base of {
base_1+"a"+base_2@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"a"+base_2 ;
ASg (Nom _) Fem => base_1+"a"+base_2 ;
ASg (Dat _) Masc => base_1+"a"+base_2 ;
ASg (Dat _) Fem => base_1+"i"+base_2 ;
ASg Gen Masc => base_1+"i"+base_2 ;
ASg Gen Fem => base_1+"i"+base_2+"e" ;
APl => base_1+"a"+base_2+"a"
} ;
voc = table {
Masc => base_1+"i"+base_2 ;
Fem => base_1+"a"+base_2
} ;
compar = base_1+"i"+base_2+"e"
};
_ => error "Can't apply paradigm mkA079"
} ;
mkA080 : Str -> A ;
mkA080 base =
case base of {
base_1+base_2@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2 ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => base_1+base_2 ;
ASg Gen Fem => base_1+base_2 ;
APl => base_1+base_2
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"i"+base_2+"e"
};
_ => error "Can't apply paradigm mkA080"
} ;
mkA081 : Str -> A ;
mkA081 base =
case base of {
base_1+"ea"+base_2@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"ea"+base_2 ;
ASg (Nom _) Fem => base_1+"ea"+base_2 ;
ASg (Dat _) Masc => base_1+"ea"+base_2 ;
ASg (Dat _) Fem => base_1+"i"+base_2 ;
ASg Gen Masc => base_1+"i"+base_2 ;
ASg Gen Fem => base_1+"i"+base_2+"e" ;
APl => base_1+"ea"+base_2
} ;
voc = table {
Masc => base_1+"i"+base_2 ;
Fem => base_1+"ea"+base_2
} ;
compar = nonExist
};
_ => error "Can't apply paradigm mkA081"
} ;
mkA082 : Str -> A ;
mkA082 base =
case base of {
base_1 => lin A
{ s = table {
ASg (Nom _) Masc => base_1 ;
ASg (Nom _) Fem => base_1 ;
ASg (Dat _) Masc => base_1 ;
ASg (Dat _) Fem => base_1 ;
ASg Gen Masc => base_1 ;
ASg Gen Fem => base_1+"e" ;
APl => base_1
} ;
voc = table {
Masc => base_1 ;
Fem => base_1
} ;
compar = nonExist
};
_ => error "Can't apply paradigm mkA082"
} ;
mkA083 : Str -> A ;
mkA083 base =
case base of {
base_1+base_2@?+"inn" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"inn" ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"n"+base_2
};
_ => error "Can't apply paradigm mkA083"
} ;
mkA084 : Str -> A ;
mkA084 base =
case base of {
base_1@(?+?)+base_2+"a" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"a" ;
ASg (Nom _) Fem => base_1+base_2+"a" ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"i"+base_2+"e"
};
_ => error "Can't apply paradigm mkA084"
} ;
mkA085 : Str -> A ;
mkA085 base =
case base of {
base_1+base_2@?+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+base_3 ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+base_2+"o"+base_3+"a"
};
_ => error "Can't apply paradigm mkA085"
} ;
mkA086 : Str -> A ;
mkA086 base =
case base of {
base_1+base_2@?+"u"+base_3@(?+?) => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"u"+base_3 ;
ASg (Nom _) Fem => base_1+"h"+base_2+"u"+base_3 ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+base_2+base_3+"e"
};
_ => error "Can't apply paradigm mkA086"
} ;
mkA087 : Str -> A ;
mkA087 base =
case base of {
base_1+base_2@?+base_3@?+"un" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+base_3+"un" ;
ASg (Nom _) Fem => base_1+"h"+base_2+base_3+"un" ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+base_2+"èin"+base_3
};
_ => error "Can't apply paradigm mkA087"
} ;
mkA088 : Str -> A ;
mkA088 base =
case base of {
base_1 => lin A
{ s = table {
ASg (Nom _) Masc => base_1 ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => base_1 ;
ASg Gen Fem => nonExist ;
APl => base_1+"an"
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = nonExist
};
_ => error "Can't apply paradigm mkA088"
} ;
mkA089 : Str -> A ;
mkA089 base =
case base of {
base_1+base_2@?+"ai"+base_3@?+"n" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"ai"+base_3+"n" ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"i"+base_2+base_3+"e"
};
_ => error "Can't apply paradigm mkA089"
} ;
mkA090 : Str -> A ;
mkA090 base =
case base of {
base_1+"o"+base_2@?+"a"+base_3@? => lin A
{ s = table {
ASg (Nom _) Masc => base_1+"o"+base_2+"a"+base_3 ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+base_2+base_3+"e"
};
_ => error "Can't apply paradigm mkA090"
} ;
mkA091 : Str -> A ;
mkA091 base =
case base of {
base_1+base_2@?+"al" => lin A
{ s = table {
ASg (Nom _) Masc => base_1+base_2+"al" ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = base_1+"l"+base_2
};
_ => error "Can't apply paradigm mkA091"
} ;
mkA092 : Str -> A ;
mkA092 base =
case base of {
"ù"+base_1+base_2@? => lin A
{ s = table {
ASg (Nom _) Masc => "ù"+base_1+base_2 ;
ASg (Nom _) Fem => nonExist ;
ASg (Dat _) Masc => nonExist ;
ASg (Dat _) Fem => nonExist ;
ASg Gen Masc => nonExist ;
ASg Gen Fem => nonExist ;
APl => nonExist
} ;
voc = table {
Masc => nonExist ;
Fem => nonExist
} ;
compar = "u"+base_1+"i"+base_2+"e"
};
_ => error "Can't apply paradigm mkA092"
} ;
reg4N' : (_,_,_,_ : Str) -> Gender -> LinN ;
reg4N' nom pl gen pal g =
lin N
{ s = table {
Nom _ => table {
Indef => table {
Sg => nom ;
Pl => pl
} ;
Def => table {
Sg => nom ;
Pl => pl
}
} ;
Dat _ => table {
Indef => table {
Sg => nom ;
Pl => pl
} ;
Def => table {
Sg => lenite nom ;
Pl => pl
}
} ;
Gen => table {
Indef => table {
Sg => gen ;
Pl => pl
} ;
Def => table {
Sg => case g of {
Fem => gen ;
Masc => lenite pal
} ;
Pl => pl
}
}
} ;
voc = table {
Sg => lenite pal ;
Pl => pl
} ;
g = g
};
mkN001 : Str -> LinN ;
mkN001 base =
let pal = palatalise base
in mk5N base base pal (base+"an") pal Masc ;
mkN002 : Str -> LinN ;
mkN002 base =
let pal = palatalise base
in mk5N base base pal pal pal Masc ;
mkN004 : Str -> LinN ;
mkN004 base = mk5N base base base (base+"an") (palatalise base) Fem ;
mkN005 : Str -> LinN ;
mkN005 base =
case base of {
base_1+base_2@(?+?)+"r" =>
let pal = palatalise base
in mk5N base base pal (base_1+"r"+base_2+"chean") pal Masc ;
_ => error "Can't apply paradigm mkN005"
} ;
mkN007 : Str -> LinN ;
mkN007 base = mk5N base base (base+"e") (base+"ean") (palatalise base) Fem ;
mkN009 : Str -> LinN ;
mkN009 base = mk5N base base base (base+"an") (palatalise base) Masc ;
mkN010 : Str -> LinN ;
mkN010 base = mk5N base base (base+"e") (base+"ean") (palatalise base) Masc ;
mkN011 : Str -> LinN ;
mkN011 base =
case base of {
base_1@(_+("e"|"è"))+"a"+base_2@("sg"|"mh"|"nd"|"nn"|"bh"|"rt"|"nt"|"rg"|?) => mk5N base base (base_1+"i"+base_2) (base+"an") (base_1+"i"+base_2) Masc ;
_ => error "Can't apply paradigm mkN011"
} ;
mkN013 : Str -> LinN ;
mkN013 base =
case base of {
base_1+"ia" => mk5N base base (base_1+"hè") (base+"than") (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN013"
} ;
mkN014 : Str -> LinN ;
mkN014 base =
case base of {
base_1+base_2@(?+?) => mk5N base base (base_1+"i"+base_2+"e") base (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN014"
} ;
mkN015 : Str -> LinN ;
mkN015 base =
case base of {
base_1+"a"+base_2@("ng"|?) => mk5N base base (base_1+"i"+base_2) (base_1+"i"+base_2) (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN015"
} ;
mkN016 : Str -> LinN ;
mkN016 base =
case base of {
base_1+"a"+base_2@(?+?) => mk5N base base (base_1+"oi"+base_2) (base_1+"oi"+base_2) (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN016"
} ;
mkN017 : Str -> LinN ;
mkN017 base =
let pal = palatalise base
in mk5N base base pal (pal+"ean") pal Masc ;
mkN019 : Str -> LinN ;
mkN019 base =
case base of {
base_1+"a"+base_2@("rc"|"ch"|"ng"|"rg"|"lg"|?) => mk5N base base (base_1+"i"+base_2+"e") (base+"an") (base_1+"i"+base_2) Fem ;
_ => error "Can't apply paradigm mkN019"
} ;
mkN020 : Str -> LinN ;
mkN020 base =
let pal = palatalise base ;
len = lenite base
in mkNoun base pal base pal base pal base pal pal len pal base (lenite pal) (len+"a") Masc ;
mkN021 : Str -> LinN ;
mkN021 base = mk5N base base (base+"a") (base+"achan") (palatalise base) Masc ;
mkN022 : Str -> LinN ;
mkN022 base = reg4N' base (base+"chan") base (palatalise base) Masc ;
mkN023 : Str -> LinN ;
mkN023 base =
let pal = palatalise base
in mk5N base base pal (base+"an") pal Fem ;
mkN024 : Str -> LinN ;
mkN024 base =
case base of {
base_1@?+base_2+"ainn" => mk5N base base (base_1+"i"+base_2+"ne") (base_1+"i"+base_2+"nichean") (palatalise base) Fem ;
_ => error "Can't apply paradigm mkN024"
} ;
mkN025 : Str -> LinN ;
mkN025 base = mk5N base base base (base+"ean") (palatalise base) Fem ;
mkN026 : Str -> LinN ;
mkN026 base =
case base of {
base_1+base_2@?+"ir" => mk5N base base (base_1+"r"+base_2+"ch") (base_1+"r"+base_2+"ichean") (palatalise base) Fem ;
_ => error "Can't apply paradigm mkN026"
} ;
mkN027 : Str -> LinN ;
mkN027 base = mk5N base base base (base+"annan") (palatalise base) Fem ;
mkN028 : Str -> LinN ;
mkN028 base = mk5N base base base (base+"ean") (palatalise base) Masc ;
mkN029 : Str -> LinN ;
mkN029 base =
case base of {
base_1+"as" =>
let pal = palatalise base
in mk5N base base pal (base_1+"an") pal Masc ;
_ => error "Can't apply paradigm mkN029"
} ;
mkN030 : Str -> LinN ;
mkN030 base =
let pal = palatalise base
in mk5N base base (pal+"e") (base+"an") pal Fem ;
mkN031 : Str -> LinN ;
mkN031 base =
case base of {
"adha" => mk5N base base base "àinean" (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN031"
} ;
mkN032 : Str -> LinN ;
mkN032 base = mk5N base base (palatalise base+"e") base (palatalise base) Fem ;
mkN033 : Str -> LinN ;
mkN033 base = mk5N base base (palatalise base) (base+"aichean") (palatalise base) Masc ;
mkN034 : Str -> LinN ;
mkN034 base = mk5N base base (palatalise base) (palatalise base+"an") (palatalise base) Masc ;
mkN035 : Str -> LinN ;
mkN035 base = mk5N base base (base+"aig") (base+"an") (palatalise base) Masc ;
mkN036 : Str -> LinN ;
mkN036 base = mkNoun base (palatalise base+"ean") base (palatalise base+"ean") (palatalise base) (palatalise base+"ean") (palatalise base) (palatalise base+"ean") (palatalise base+"e") base (palatalise base+"e") base (lenite base) (lenite base+"a") Fem ;
mkN037 : Str -> LinN ;
mkN037 base =
case base of {
"aghann" => mk5N base base "aighne" (base+"an") (palatalise base) Fem ;
_ => error "Can't apply paradigm mkN037"
} ;
mkN038 : Str -> LinN ;
mkN038 base = reg4N' base (base+"an") base (palatalise base) Masc ;
mkN039 : Str -> LinN ;
mkN039 base =
case base of {
base_1@(_+"e")+"a"+base_2@? => reg4N' base (base+"an") (base_1+"i"+base_2) (base_1+"i"+base_2) Masc ;
_ => error "Can't apply paradigm mkN039"
} ;
mkN040 : Str -> LinN ;
mkN040 base = reg4N' base (base+"ean") (base+"e") base Fem ;
mkN041 : Str -> LinN ;
mkN041 base = mkNoun base (base+"ean") base (base+"ean") base (base+"ean") base (base+"ean") base (base+"ean") (base+"e") (base+"ean") (lenite base) (base+"ean") Fem ;
mkN042 : Str -> LinN ;
mkN042 base =
case base of {
base_1+"ea"+base_2@(?+?) => mk5N base base base (base_1+"i"+base_2) (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN042"
} ;
mkN043 : Str -> LinN ;
mkN043 base =
case base of {
base_1@(_+("e"|"è"))+"a"+base_2@("bh"|"rt"|"lg"|"mh"|?) => mk5N base base (base_1+"i"+base_2) (base+"an") (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN043"
} ;
mkN044 : Str -> LinN ;
mkN044 base =
case base of {
base_1+"iach" => mk5N base base (base_1+"eich") (base_1+"iachan") (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN044"
} ;
mkN045 : Str -> LinN ;
mkN045 base = mk5N base base (palatalise base) (palatalise base) (palatalise base) Fem ;
mkN046 : Str -> LinN ;
mkN046 base = mk5N base base base (base+"n") (palatalise base) Masc ;
mkN047 : Str -> LinN ;
mkN047 base =
case base of {
base_1+"o"+base_2@("n"|"d"|"ll") => mk5N base base (base_1+base_2) (base+"tan") (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN047"
} ;
mkN048 : Str -> LinN ;
mkN048 base = mk5N base base base base (palatalise base) Fem ;
mkN049 : Str -> LinN ;
mkN049 base =
case base of {
base_1+"i"+base_2@? => mk5N base base (base_1+base_2+"e") (base_1+base_2+"ean") (palatalise base) Fem ;
_ => error "Can't apply paradigm mkN049"
} ;
mkN050 : Str -> LinN ;
mkN050 base =
case base of {
base_1+"ea"+base_2@(?+?) => mk5N base base (base_1+"io"+base_2+"a") (base+"an") (palatalise base) Fem ;
_ => error "Can't apply paradigm mkN050"
} ;
mkN051 : Str -> LinN ;
mkN051 base =
case base of {
("a"|"o")+base_1 => mk5N base base ("ui"+base_1) ("ui"+base_1) (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN051"
} ;
mkN052 : Str -> LinN ;
mkN052 base =
case base of {
"alp" => mk5N base base "ailp" (base+"a") (palatalise base) Fem ;
_ => error "Can't apply paradigm mkN052"
} ;
mkN053 : Str -> LinN ;
mkN053 base =
case base of {
"alt" => mk5N base base "uilt" "altan" (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN053"
} ;
mkN054 : Str -> LinN ;
mkN054 base = mk5N base base (palatalise base) (palatalise base+"ean") (palatalise base) Fem ;
mkN055 : Str -> LinN ;
mkN055 base =
case base of {
base_1+"i"+base_2@? => mk5N base base (base_1+base_2+"ach") (base+"ean") (palatalise base) Fem ;
_ => error "Can't apply paradigm mkN055"
} ;
mkN056 : Str -> LinN ;
mkN056 base =
case base of {
base_1+"am" => mk5N base base (base_1+"ma") (base_1+"man") (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN056"
} ;
mkN057 : Str -> LinN ;
mkN057 base = mk5N base base base (base+"ichean") (palatalise base) Fem ;
mkN058 : Str -> LinN ;
mkN058 base =
case base of {
base_1+"air" => mkNoun base (base_1+"raichean") base (base_1+"raichean") base (base_1+"raichean") base (base_1+"raichean") (base_1+"ar") (base_1+"raichean") (base_1+"ar") (base_1+"raichean") base (base_1+"raichean") Masc ;
_ => error "Can't apply paradigm mkN058"
} ;
mkN059 : Str -> LinN ;
mkN059 base = mk5N base base (base+"a") (base+"an") (palatalise base) Masc ;
mkN060 : Str -> LinN ;
mkN060 base = mkNoun base (palatalise base+"ean") base (palatalise base+"ean") base (palatalise base+"ean") (lenite base) (palatalise base+"ean") (palatalise base) (lenite (palatalise base)+"ean") (lenite (palatalise base)) (palatalise base+"ean") (lenite (palatalise base)) (lenite (palatalise base)+"ean") Masc ;
mkN061 : Str -> LinN ;
mkN061 base = mk5N base base base (base+"ichean") (palatalise base) Masc ;
mkN062 : Str -> LinN ;
mkN062 base =
case base of {
base_1+"e" => mkNoun base (base_1+"tean") base (palatalise base) base (base_1+"tean") (base_1+"he") (palatalise base) base (lenite base) (base_1+"he") base (base_1+"he") (base+"a") Masc ;
_ => error "Can't apply paradigm mkN062"
} ;
mkN063 : Str -> LinN ;
mkN063 base = mk5N base base base (base+"rean") (palatalise base) Fem ;
mkN064 : Str -> LinN ;
mkN064 base =
case base of {
"baintighearna" => mkNoun base (base+"n") (lenite base) (base+"n") base (base+"n") (lenite base) (base+"n") base (lenite base+"n") base (base+"n") (lenite base) (lenite base+"n") Fem ;
_ => error "Can't apply paradigm mkN064"
} ;
mkN067 : Str -> LinN ;
mkN067 base =
case base of {
base_1+"a"+base_2@(?+?) => mk5N base base (base_1+"ui"+base_2) (base_1+"ui"+base_2) (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN067"
} ;
mkN068 : Str -> LinN ;
mkN068 base =
case base of {
"balla" => mkNoun base (base+"chan") base (base+"chan") base (base+"chan") (lenite base) (base+"chan") base (lenite base+"chan") (lenite base) (base+"chan") (lenite base) (lenite base+"chan") Masc ;
_ => error "Can't apply paradigm mkN068"
} ;
mkN069 : Str -> LinN ;
mkN069 base =
case base of {
base_1+("a"|"o")+base_2@("sg"|"lt"|"rt"|"rc"|"nn"|?) => mk5N base base (base_1+"ui"+base_2) (base+"an") (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN069"
} ;
mkN070 : Str -> LinN ;
mkN070 base = mk5N base base base (base+"thaichean") (palatalise base) Masc ;
mkN071 : Str -> LinN ;
mkN071 base =
case base of {
base_1+"nais" => mk5N base base (base_1+"innse") (base_1+"innsean") (palatalise base) Fem ;
_ => error "Can't apply paradigm mkN071"
} ;
mkN072 : Str -> LinN ;
mkN072 base =
case base of {
base_1+"a"+base_2@("s"|"ch") => mk5N base (base_1+"oi"+base_2) (base_1+"oi"+base_2+"e") (base+"an") (palatalise base) Fem ;
_ => error "Can't apply paradigm mkN072"
} ;
mkN073 : Str -> LinN ;
mkN073 base =
case base of {
"bea"+base_1 => mkNoun base ("m"+base_1+"athan") (lenite base) ("m"+base_1+"athan") base ("m"+base_1+"athan") (lenite base) ("m"+base_1+"athan") ("m"+base_1+"à") ("ba"+base_1) ("m"+base_1+"à") ("ba"+base_1) (lenite base) ("mh"+base_1+"athan") Fem ;
_ => error "Can't apply paradigm mkN073"
} ;
mkN074 : Str -> LinN ;
mkN074 base =
case base of {
"beann" => mkNoun base (base+"an") (lenite base) (base+"an") "beinn" (base+"an") (lenite "beinn") (base+"an") "beinn" (lenite base) "beinne" base (lenite base) (lenite base+"a") Fem ;
_ => error "Can't apply paradigm mkN074"
} ;
mkN075 : Str -> LinN ;
mkN075 base =
case base of {
"beatha" => mkNoun base (base+"nnan") base (base+"nnan") base (base+"nnan") (palatalise base) (base+"nnan") base (lenite base) base base (lenite base) (base+"a") Fem ;
_ => error "Can't apply paradigm mkN075"
} ;
mkN076 : Str -> LinN ;
mkN076 base = mkNoun base (base+"ean") (lenite base) (base+"ean") base (base+"ean") (lenite base) (base+"ean") (base+"e") (lenite base+"ean") (base+"e") (base+"ean") (lenite base) (lenite base+"ean") Fem ;
mkN077 : Str -> LinN ;
mkN077 base =
case base of {
"beinn" => mkNoun base "beanntan" (lenite base) "beanntan" base "beanntan" (lenite base) "beanntan" (base+"e") "beann" (base+"e") "beann" (lenite base) (lenite "beannta") Fem ;
_ => error "Can't apply paradigm mkN077"
} ;
mkN078 : Str -> LinN ;
mkN078 base =
case base of {
"beithe" => mkNoun base (base+"an") "bheithe" (base+"an") base (base+"an") "bheithe" (base+"an") base "bheithean" base (base+"an") "bheithe" "bheithean" Fem ;
_ => error "Can't apply paradigm mkN078"
} ;
mkN079 : Str -> LinN ;
mkN079 base =
case base of {
base_1+"i"+base_2@(?+?)+"i"+base_3@? => mkNoun base (base_1+"i"+base_2+base_3+"ichean") base (palatalise base) base (base_1+"i"+base_2+base_3+"ichean") (lenite base) (palatalise base) (base_1+"a"+base_2+base_3+"ach") (lenite base) (lenite (palatalise base)) (base) (lenite (palatalise base)) (base+"a") Masc ;
_ => error "Can't apply paradigm mkN079"
} ;
mkN080 : Str -> LinN ;
mkN080 base =
case base of {
base_1+"u"+base_2@? => mkNoun base (base+"an") base (palatalise base) base (base+"an") (lenite base) (palatalise base) (base_1+"òi"+base_2) (base_1+"òi"+base_2) (lenite (palatalise base)) base (lenite (palatalise base)) (base+"a") Masc ;
_ => error "Can't apply paradigm mkN080"
} ;
mkN081 : Str -> LinN ;
mkN081 base =
case base of {
base_1+"u"+base_2@? => mk5N base base (base_1+"òi"+base_2) (base_1+"òi"+base_2) (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN081"
} ;
mkN082 : Str -> LinN ;
mkN082 base = mk5N base base (base+"a") (base+"an") (palatalise base) Fem ;
mkN083 : Str -> LinN ;
mkN083 base =
case base of {
base_1+"eà"+base_2@(?+?) => mkNoun base (base+"an") base (palatalise base) base (base+"an") (lenite base) (palatalise base) (base_1+"èi"+base_2) (lenite base) (lenite (palatalise base)) base (lenite (palatalise base)) (base+"a") Masc ;
_ => error "Can't apply paradigm mkN083"
} ;
mkN084 : Str -> LinN ;
mkN084 base = mk5N base base base (base+"aichean") (palatalise base) Masc ;
mkN085 : Str -> LinN ;
mkN085 base = mk5N base base base (base+"than") (palatalise base) Masc ;
mkN086 : Str -> LinN ;
mkN086 base =
case base of {
base_1+"ia"+base_2@(?+?) => mk5N base base (base_1+"ì"+base_2) (base+"an") (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN086"
} ;
mkN088 : Str -> LinN ;
mkN088 base = mk5N base base base (base+"chan") (palatalise base) Masc ;
mkN089 : Str -> LinN ;
mkN089 base =
case base of {
base_1@("st"|"cn"|"cr"|?)+"o"+base_2 => mkNoun base (base_1+"ui"+base_2) (base_1+"o"+base_2) (palatalise base) base (base_1+"ui"+base_2) (lenite base) (palatalise base) (base_1+"ui"+base_2) (lenite base) (lenite (palatalise base)) (base_1+"o"+base_2) (lenite (palatalise base)) (base_1+"o"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN089"
} ;
mkN090 : Str -> LinN ;
mkN090 base =
case base of {
base_1@?+base_2 => mkNoun base (base+"an") base (base+"an") base (base+"an") (lenite base) (base+"an") base (lenite base+"an") (lenite base) (base+"an") (lenite base) (lenite base+"an") Masc ;
_ => error "Can't apply paradigm mkN090"
} ;
mkN092 : Str -> LinN ;
mkN092 base =
case base of {
base_1+"i"+base_2@? => mk5N base base (base_1+"ma") (base_1+base_2+"annan") (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN092"
} ;
mkN093 : Str -> LinN ;
mkN093 base =
case base of {
base_1+"ea"+base_2@("s"|(?+?)) => mkNoun base (base+"an") base (palatalise base) base (base+"an") (lenite base) (palatalise base) (base_1+"i"+base_2) (base_1+"i"+base_2) (lenite (palatalise base)) base (lenite (palatalise base)) (base+"a") Masc ;
_ => error "Can't apply paradigm mkN093"
} ;
mkN094 : Str -> LinN ;
mkN094 base =
case base of {
base_1+base_2@?+"ug" => mk5N base base (base_1+"èig"+base_2) (base+"an") (palatalise base) Fem ;
_ => error "Can't apply paradigm mkN094"
} ;
mkN095 : Str -> LinN ;
mkN095 base =
case base of {
base_1+"ar" => mk5N base base (base_1+"air") (base_1+"ran") (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN095"
} ;
mkN096 : Str -> LinN ;
mkN096 base =
case base of {
base_1+base_2@?+"o"+base_3@? => mkNoun base (base_1+base_2+"ui"+base_3) base (base_1+base_2+"ui"+base_3) base (base_1+base_2+"ui"+base_3) (base_1+"h"+base_2+"o"+base_3) (base_1+base_2+"ui"+base_3) (base_1+base_2+"ui"+base_3) (base_1+"h"+base_2+"o"+base_3) (base_1+"h"+base_2+"ui"+base_3) base (base_1+"h"+base_2+"ui"+base_3) (base_1+"h"+base_2+"o"+base_3+"a") Masc ;
_ => error "Can't apply paradigm mkN096"
} ;
mkN098 : Str -> LinN ;
mkN098 base =
case base of {
base_1@?+base_2+base_3@("s"|"c"|"g"|"ch"|"bh"|"th") => mkNoun base (base_1+base_2+base_3+"an") (base_1+"h"+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+base_2+base_3+"an") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+"i"+base_3+"e") (base_1+"h"+base_2+base_3) (base_1+base_2+"i"+base_3+"e") (base_1+base_2+base_3) (base_1+"h"+base_2+base_3) (base_1+"h"+base_2+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN098"
} ;
mkN100 : Str -> LinN ;
mkN100 base =
case base of {
base_1+"inn" => mk5N base base (base_1+"ne") (base_1+"nean") (palatalise base) Fem ;
_ => error "Can't apply paradigm mkN100"
} ;
mkN101 : Str -> LinN ;
mkN101 base =
case base of {
"brà" => mkNoun base (base+"thntan") "bhrà" (base+"thntan") base (base+"thntan") "bhrà" (base+"thntan") (base+"than") "bhràthntan" (base+"than") (base+"thntan") "bhrà" "bhràthntan" Fem ;
_ => error "Can't apply paradigm mkN101"
} ;
mkN102 : Str -> LinN ;
mkN102 base =
case base of {
base_1+base_2@(?+?)+"i"+base_3@(?+?) => mkNoun base (base+"eachan") base (base+"eachan") base (base+"eachan") (base_1+"h"+base_2+"i"+base_3) (base+"eachan") (base_1+base_2+base_3+"ad") (base_1+"h"+base_2+"i"+base_3+"eachan") (base_1+"h"+base_2+base_3+"ad") (base+"eachan") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+"i"+base_3+"eachan") Masc ;
_ => error "Can't apply paradigm mkN102"
} ;
mkN103 : Str -> LinN ;
mkN103 base =
case base of {
base_1+base_2@(?+?)+base_3@(?+?)+"ai"+base_4@? => mkNoun (base_1+base_2+base_3+"ai"+base_4) (base_1+base_2+"i"+base_3+base_4+"ean") (base_1+base_2+base_3+"ai"+base_4) (base_1+base_2+"i"+base_3+base_4+"ean") (base_1+base_2+base_3+"ai"+base_4) (base_1+base_2+"i"+base_3+base_4+"ean") (base_1+"h"+base_2+base_3+"ai"+base_4) (base_1+base_2+"i"+base_3+base_4+"ean") (base_1+base_2+base_3+"a"+base_4) (base_1+"h"+base_2+"i"+base_3+base_4+"ean") (base_1+"h"+base_2+base_3+"a"+base_4) (base_1+base_2+"i"+base_3+base_4+"ean") (base_1+"h"+base_2+base_3+"ai"+base_4) (base_1+"h"+base_2+"i"+base_3+base_4+"ean") Masc ;
_ => error "Can't apply paradigm mkN103"
} ;
mkN104 : Str -> LinN ;
mkN104 base =
case base of {
base_1+"ea"+base_2@(?+?) => mkNoun (base_1+"ea"+base_2) (base_1+"i"+base_2) (base_1+"ea"+base_2) (base_1+"i"+base_2) base (base_1+"i"+base_2) (palatalise base) (base_1+"i"+base_2) (base_1+"i"+base_2) (lenite base) (base_1+"i"+base_2) (base_1+"ea"+base_2) (lenite base) (base_1+"ea"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN104"
} ;
mkN105 : Str -> LinN ;
mkN105 base =
case base of {
base_1+base_2@?+"ù" => mkNoun (base_1+base_2+"ù") (base_1+base_2+"ùthan") (base_1+"h"+base_2+"ù") (base_1+base_2+"ùthan") (base_1+base_2+"oinn") (base_1+base_2+"onnaibh") (base_1+"h"+base_2+"oinn") (base_1+base_2+"onnaibh") (base_1+base_2+"onn") (base_1+"h"+base_2+"onn") (base_1+base_2+"onn") (base_1+base_2+"onn") (base_1+"h"+base_2+"ù") (base_1+"h"+base_2+"ùtha") Fem ;
_ => error "Can't apply paradigm mkN105"
} ;
mkN106 : Str -> LinN ;
mkN106 base =
case base of {
base_1+"i"+base_2@? => mkNoun (base_1+"i"+base_2) (base_1+base_2+"annan") (base_1+"i"+base_2) (base_1+base_2+"annan") base (base_1+base_2+"annan") (palatalise base) (base_1+base_2+"annan") (base_1+base_2+"a") (lenite base) (base_1+base_2+"a") (base_1+"i"+base_2) (lenite base) (base_1+"i"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN106"
} ;
mkN107 : Str -> LinN ;
mkN107 base =
case base of {
base_1+base_2@? => mkNoun (base_1+base_2) (base_1+"i"+base_2) (base_1+base_2) (palatalise base) base (base_1+"i"+base_2) (lenite base) (palatalise base) (base_1+base_2+"a") (lenite base) (lenite (palatalise base)) (base_1+base_2) (lenite (palatalise base)) (base_1+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN107"
} ;
mkN108 : Str -> LinN ;
mkN108 base =
case base of {
base_1+base_2@(?+?+?+?+?+?) => mkNoun (base_1+base_2) (base_1+"i"+base_2+"ean") (base_1+base_2) (palatalise base) base (base_1+"i"+base_2+"ean") (lenite base) (palatalise base) (base_1+"h"+base_2) (lenite base) (lenite (palatalise base)) (base_1+base_2) (lenite (palatalise base)) (base_1+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN108"
} ;
mkN109 : Str -> LinN ;
mkN109 base =
case base of {
base_1+"ea"+base_2@(?+?) => mkNoun (base_1+"ea"+base_2) (base_1+"i"+base_2+"ean") (base_1+"ea"+base_2) (base_1+"i"+base_2+"ean") base (base_1+"i"+base_2+"ean") (palatalise base) (base_1+"i"+base_2+"ean") (base_1+"i"+base_2) (lenite base) (base_1+"i"+base_2) (base_1+"ea"+base_2) (lenite base) (base_1+"ea"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN109"
} ;
mkN110 : Str -> LinN ;
mkN110 base =
case base of {
base_1+"à"+base_2@(?+?) => mkNoun (base_1+"à"+base_2) (base_1+"a"+base_2+"an") (base_1+"à"+base_2) (palatalise base) base (base_1+"a"+base_2+"an") (lenite base) (palatalise base) (base_1+"a"+base_2+"a") (lenite base) (lenite (palatalise base)) (base_1+"à"+base_2) (lenite (palatalise base)) (base_1+"à"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN110"
} ;
mkN111 : Str -> LinN ;
mkN111 base =
case base of {
base_1+"ò" => mkNoun (base_1+"ò") (base_1+"à") (base_1+"hò") (base_1+"à") (base_1+"ò") (base_1+"à") (base_1+"hoin") (base_1+"à") (base_1+"à") (base_1+"ò") (base_1+"à") (base_1+"ò") (base_1+"hò") (base_1+"hà") Fem ;
_ => error "Can't apply paradigm mkN111"
} ;
mkN112 : Str -> LinN ;
mkN112 base =
case base of {
base_1+"l" => mkNoun (base_1+"l") (base_1+"gais") (base_1+"l") (palatalise base) base (base_1+"gais") (lenite base) (palatalise base) (base_1+"gais") (lenite base) (lenite (palatalise base)) (base_1+"l") (lenite (palatalise base)) (base_1+"la") Masc ;
_ => error "Can't apply paradigm mkN112"
} ;
mkN113 : Str -> LinN ;
mkN113 base =
case base of {
base_1+"ò"+base_2@(?+?) => mkNoun (base_1+"ò"+base_2) (base_1+"ùi"+base_2) (base_1+"ò"+base_2) (palatalise base) base (base_1+"ùi"+base_2) (lenite base) (palatalise base) (base_1+"ùi"+base_2) (lenite base) (lenite (palatalise base)) (base_1+"ò"+base_2) (lenite (palatalise base)) (base_1+"ò"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN113"
} ;
mkN114 : Str -> LinN ;
mkN114 base =
case base of {
base_1+"ó" => mkNoun (base_1+"ó") (base_1+"à") (base_1+"ó") (base_1+"à") (base_1+"oin") (base_1+"à") (palatalise base) (base_1+"à") (base_1+"à") (base_1+"ó") (base_1+"à") (base_1+"ó") (base_1+"ó") (base_1+"óa") Fem ;
_ => error "Can't apply paradigm mkN114"
} ;
mkN115 : Str -> LinN ;
mkN115 base =
case base of {
base_1@?+base_2 => mkNoun (base_1+base_2) (base_1+base_2+"ean") (base_1+"h"+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+"h"+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+"h"+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+"h"+base_2) (base_1+"h"+base_2+"ean") Masc ;
_ => error "Can't apply paradigm mkN115"
} ;
mkN116 : Str -> LinN ;
mkN116 base = mk5N base base base (base+"annan") (palatalise base) Masc ;
mkN117 : Str -> LinN ;
mkN117 base =
case base of {
base_1+"ea"+base_2@(?+?) => mkNoun (base_1+"ea"+base_2) (base_1+"ea"+base_2+"an") (base_1+"ea"+base_2) (base_1+"ea"+base_2+"an") (base_1+"ea"+base_2) (base_1+"ea"+base_2+"an") (palatalise base) (base_1+"ea"+base_2+"an") (base_1+"i"+base_2+"e") (lenite base) (base_1+"i"+base_2+"e") (base_1+"ea"+base_2) (lenite base) (base_1+"ea"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN117"
} ;
mkN118 : Str -> LinN ;
mkN118 base = mk5N base base base (base+"idhean") (palatalise base) Masc ;
mkN119 : Str -> LinN ;
mkN119 base = mk5N base base (base+"a") (base+"aidhean") (palatalise base) Masc ;
mkN120 : Str -> LinN ;
mkN120 base = mk5N base base (base+"e") base (palatalise base) Masc ;
mkN121 : Str -> LinN ;
mkN121 base = mk5N base base base (base+"nnan") (palatalise base) Masc ;
mkN123 : Str -> LinN ;
mkN123 base =
case base of {
base_1+base_2@(?+?+?+?+?+?) => mkNoun (base_1+base_2) (base_1+base_2+"than") (base_1+base_2) (base_1+base_2+"than") (base_1+base_2) (base_1+base_2+"than") (base_1+"h"+base_2) (base_1+base_2+"than") (base_1+base_2) (base_1+"h"+base_2+"than") (base_1+"h"+base_2) (base_1+base_2+"than") (base_1+"h"+base_2) (base_1+"h"+base_2+"than") Masc ;
_ => error "Can't apply paradigm mkN123"
} ;
mkN124 : Str -> LinN ;
mkN124 base =
case base of {
base_1+base_2@? => mkNoun (base_1+base_2) (base_1+"i"+base_2+"tean") (base_1+base_2) (palatalise base) base (base_1+"i"+base_2+"tean") (lenite base) (palatalise base) (base_1+"i"+base_2) (lenite base) (lenite (palatalise base)) (base_1+base_2) (lenite (palatalise base)) (base_1+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN124"
} ;
mkN125 : Str -> LinN ;
mkN125 base =
case base of {
base_1+base_2@(?+?+?+?) => mkNoun (base_1+base_2) (base_1+base_2+"ich") (base_1+"h"+base_2) (base_1+base_2+"ich") (base_1+base_2) (base_1+base_2+"ibh") (base_1+"h"+base_2) (base_1+base_2+"ibh") (base_1+base_2+"ch") (base_1+base_2+"ch") (base_1+base_2+"ch") (base_1+base_2+"ch") (base_1+"h"+base_2) (base_1+"h"+base_2+"ich") Fem ;
_ => error "Can't apply paradigm mkN125"
} ;
mkN126 : Str -> LinN ;
mkN126 base =
case base of {
base_1+"a"+base_2@?+base_3@?+"id" => mkNoun (base_1+"a"+base_2+base_3+"id") (base_1+"ài"+base_2+"de"+base_3+"n") (base_1+"a"+base_2+base_3+"id") (palatalise base) base (base_1+"ài"+base_2+"de"+base_3+"n") (lenite base) (palatalise base) (base_1+"a"+base_2+base_3+"id") (lenite base) (lenite (palatalise base)) (base_1+"a"+base_2+base_3+"id") (lenite (palatalise base)) (base_1+"a"+base_2+base_3+"ida") Masc ;
_ => error "Can't apply paradigm mkN126"
} ;
mkN127 : Str -> LinN ;
mkN127 base =
case base of {
base_1@?+base_2+base_3@("gh"|?) => mkNoun (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+"h"+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+"h"+base_2+base_3+"an") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+base_3+"an") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+base_3+"an") Masc ;
_ => error "Can't apply paradigm mkN127"
} ;
mkN128 : Str -> LinN ;
mkN128 base =
case base of {
base_1+"u" => mkNoun (base_1+"u") (base_1+"othan") (base_1+"u") (palatalise base) base (base_1+"othan") (lenite base) (palatalise base) (base_1+"u") (lenite base) (lenite (palatalise base)) (base_1+"u") (lenite (palatalise base)) (base_1+"ua") Masc ;
_ => error "Can't apply paradigm mkN128"
} ;
mkN129 : Str -> LinN ;
mkN129 base =
case base of {
base_1+base_2@(?+?+?)+base_3@?+"ir" => mkNoun (base_1+base_2+base_3+"ir") (base_1+base_2+"r"+base_3+"ichean") (base_1+"h"+base_2+base_3+"ir") (base_1+base_2+"r"+base_3+"ichean") (base_1+base_2+base_3+"ir") (base_1+base_2+"r"+base_3+"ichean") (base_1+"h"+base_2+base_3+"ir") (base_1+base_2+"r"+base_3+"ichean") (base_1+base_2+"r"+base_3+"ch") (base_1+"h"+base_2+"r"+base_3+"ichean") (base_1+base_2+"r"+base_3+"ch") (base_1+base_2+"r"+base_3+"ichean") (base_1+"h"+base_2+base_3+"ir") (base_1+"h"+base_2+"r"+base_3+"ichean") Fem ;
_ => error "Can't apply paradigm mkN129"
} ;
mkN131 : Str -> LinN ;
mkN131 base =
case base of {
base_1+base_2@?+"l" => mkNoun (base_1+base_2+"l") (base_1+"l"+base_2+"n") (base_1+base_2+"l") (base_1+"l"+base_2+"n") base (base_1+"l"+base_2+"n") (lenite base) (base_1+"l"+base_2+"n") (base_1+base_2+"il") (lenite base) (lenite (palatalise base)) (base_1+base_2+"l") (lenite (palatalise base)) (base_1+base_2+"la") Masc ;
_ => error "Can't apply paradigm mkN131"
} ;
mkN132 : Str -> LinN ;
mkN132 base =
case base of {
base_1+"eò"+base_2@? => mkNoun (base_1+"eò"+base_2) (base_1+"iùi"+base_2) (base_1+"eò"+base_2) (palatalise base) base (base_1+"iùi"+base_2) (lenite base) (palatalise base) (base_1+"iùi"+base_2) (lenite base) (lenite (palatalise base)) (base_1+"eò"+base_2) (lenite (palatalise base)) (base_1+"eò"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN132"
} ;
mkN133 : Str -> LinN ;
mkN133 base =
case base of {
base_1+base_2@?+"a"+base_3@("s"|"n"|(?+?)) => mkNoun (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (palatalise base) (base_1+base_2+"a"+base_3+"an") (base_1+"è"+base_2+base_3+"e") (lenite base) (base_1+"è"+base_2+base_3+"e") (base_1+base_2+"a"+base_3) (lenite base) (base_1+base_2+"a"+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN133"
} ;
mkN134 : Str -> LinN ;
mkN134 base =
case base of {
base_1@?+base_2@?+"a"+base_3 => mkNoun (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (palatalise base) (base_1+"è"+base_2+base_3) (base_1+base_2+"a"+base_3+"an") (lenite base) (palatalise base) (base_1+"è"+base_2+base_3) (lenite base) (lenite (palatalise base)) (base_1+base_2+"a"+base_3) (lenite (palatalise base)) (base_1+base_2+"a"+base_3+"a") Masc ;
_ => error "Can't apply paradigm mkN134"
} ;
mkN135 : Str -> LinN ;
mkN135 base = mk5N base base (base+"e") (base+"tean") (palatalise base) Masc ;
mkN137 : Str -> LinN ;
mkN137 base =
case base of {
base_1+base_2@?+"a"+base_3@? => mkNoun (base_1+base_2+"a"+base_3) (base_1+base_2+"ui"+base_3) (base_1+base_2+"a"+base_3) (base_1+base_2+"ui"+base_3) (base_1+base_2+"a"+base_3) (base_1+base_2+"ui"+base_3) (base_1+"h"+base_2+"a"+base_3) (base_1+base_2+"ui"+base_3) (base_1+base_2+"ui"+base_3) (base_1+"h"+base_2+"a"+base_3) (base_1+"h"+base_2+"ui"+base_3) (base_1+base_2+"a"+base_3) (base_1+"h"+base_2+"ui"+base_3) (base_1+"h"+base_2+"a"+base_3+"a") Masc ;
_ => error "Can't apply paradigm mkN137"
} ;
mkN138 : Str -> LinN ;
mkN138 base =
case base of {
base_1+"ea"+base_2@?+base_3@? => mkNoun (base_1+"ea"+base_2+base_3) (base_1+base_2+"ea"+base_3) (base_1+"ea"+base_2+base_3) (palatalise base) base (base_1+base_2+"ea"+base_3) (lenite base) (palatalise base) (base_1+"i"+base_2+base_3) (lenite base) (lenite (palatalise base)) (base_1+"ea"+base_2+base_3) (lenite (palatalise base)) (base_1+"ea"+base_2+base_3+"a") Masc ;
_ => error "Can't apply paradigm mkN138"
} ;
mkN139 : Str -> LinN ;
mkN139 base =
case base of {
base_1+base_2@?+"a"+base_3@(?+?) => mkNoun (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+"h"+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"oi"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+"h"+base_2+"oi"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"oi"+base_3+"e") (base_1+"h"+base_2+"a"+base_3) (base_1+base_2+"oi"+base_3+"e") (base_1+base_2+"a"+base_3) (base_1+"h"+base_2+"a"+base_3) (base_1+"h"+base_2+"a"+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN139"
} ;
mkN140 : Str -> LinN ;
mkN140 base =
case base of {
base_1+base_2@?+"a"+base_3@(?+?) => mkNoun (base_1+base_2+"a"+base_3) (base_1+"è"+base_2+base_3) (base_1+base_2+"a"+base_3) (palatalise base) base (base_1+"è"+base_2+base_3) (lenite base) (palatalise base) (base_1+"è"+base_2+base_3) (lenite base) (lenite (palatalise base)) (base_1+base_2+"a"+base_3) (lenite (palatalise base)) (base_1+base_2+"a"+base_3+"a") Masc ;
_ => error "Can't apply paradigm mkN140"
} ;
mkN141 : Str -> LinN ;
mkN141 base =
case base of {
base_1+"i"+base_2@(?+?+?)+base_3@?+"inn" => mkNoun (base_1+"i"+base_2+base_3+"inn") (base_1+"e"+base_2+"n"+base_3+"n") (base_1+"i"+base_2+base_3+"inn") (palatalise base) base (base_1+"e"+base_2+"n"+base_3+"n") (lenite base) (palatalise base) (base_1+"e"+base_2+"n"+base_3) (lenite base) (lenite (palatalise base)) (base_1+"i"+base_2+base_3+"inn") (lenite (palatalise base)) (base_1+"i"+base_2+base_3+"inna") Masc ;
_ => error "Can't apply paradigm mkN141"
} ;
mkN142 : Str -> LinN ;
mkN142 base =
case base of {
base_1@?+base_2+"a"+base_3@("ct"|?) => mkNoun (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+"h"+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+"h"+base_2+"a"+base_3+"an") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+"a"+base_3+"an") Masc ;
_ => error "Can't apply paradigm mkN142"
} ;
mkN143 : Str -> LinN ;
mkN143 base = mk5N base base base (base+"ithean") (palatalise base) Masc ;
mkN144 : Str -> LinN ;
mkN144 base = mk5N base base (base+"dha") (base+"dhan") (palatalise base) Masc ;
mkN145 : Str -> LinN ;
mkN145 base =
case base of {
base_1+"imh" => mk5N base base (base_1+"mha") (base_1+"mhan") (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN145"
} ;
mkN147 : Str -> LinN ;
mkN147 base =
case base of {
base_1+base_2@(?+?+?+?)+base_3@? => mkNoun (base_1+base_2+base_3) (base_1+base_2+"t"+base_3+"an") (base_1+"h"+base_2+base_3) (base_1+base_2+"t"+base_3+"an") (base_1+base_2+base_3) (base_1+base_2+"t"+base_3+"an") (base_1+"h"+base_2+base_3) (base_1+base_2+"t"+base_3+"an") (base_1+base_2+base_3) (base_1+base_2+"t"+base_3+"an") (base_1+base_2+base_3) (base_1+base_2+"t"+base_3+"an") (base_1+"h"+base_2+base_3) (base_1+base_2+"t"+base_3+"an") Fem ;
_ => error "Can't apply paradigm mkN147"
} ;
mkN148 : Str -> LinN ;
mkN148 base =
case base of {
base_1+"i"+base_2@(?+?+?+?+?+?+?+?) => mkNoun (base_1+"i"+base_2) (base_1+base_2+"ean") (base_1+"i"+base_2) (palatalise base) base (base_1+base_2+"ean") (lenite base) (palatalise base) (base_1+"i"+base_2) (lenite base) (lenite (palatalise base)) (base_1+"i"+base_2) (lenite (palatalise base)) (base_1+"i"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN148"
} ;
mkN149 : Str -> LinN ;
mkN149 base =
case base of {
base_1+base_2@?+"al" => mkNoun (base_1+base_2+"al") (base_1+"l"+base_2+"an") (base_1+base_2+"al") (base_1+"l"+base_2+"an") base (base_1+"l"+base_2+"an") (palatalise base) (base_1+"l"+base_2+"an") (base_1+"l"+base_2) (lenite base) (base_1+"l"+base_2) (base_1+base_2+"al") (lenite base) (base_1+base_2+"ala") Fem ;
_ => error "Can't apply paradigm mkN149"
} ;
mkN150 : Str -> LinN ;
mkN150 base = mk5N base base base (base+"achan") (palatalise base) Masc ;
mkN151 : Str -> LinN ;
mkN151 base =
case base of {
base_1+base_2@(?+?) => mkNoun (base_1+base_2) (base_1+"i"+base_2+"ean") (base_1+base_2) (base_1+"i"+base_2+"ean") (base_1+"i"+base_2) (base_1+"i"+base_2+"ean") (base_1+"i"+base_2) (base_1+"i"+base_2+"ean") (base_1+"i"+base_2) (lenite base) (base_1+"i"+base_2+"e") (base_1+base_2) (base_1+base_2) (base_1+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN151"
} ;
mkN152 : Str -> LinN ;
mkN152 base =
case base of {
base_1+base_2@(?+?+?+?+?+?+?+?+?) => mkNoun (base_1+base_2) (base_1+base_2+"ean") (base_1+"h"+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+"h"+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+"h"+base_2+"ean") (base_1+base_2+"e") (base_1+base_2+"ean") (base_1+"h"+base_2) (base_1+"h"+base_2+"ean") Fem ;
_ => error "Can't apply paradigm mkN152"
} ;
mkN153 : Str -> LinN ;
mkN153 base =
case base of {
base_1+base_2@?+"ll" => mkNoun (base_1+base_2+"ll") (base_1+"l"+base_2+"ichean") (base_1+base_2+"ll") (base_1+"l"+base_2+"ichean") base (base_1+"l"+base_2+"ichean") (palatalise base) (base_1+"l"+base_2+"ichean") (base_1+"l"+base_2+"ch") (lenite base) (base_1+"l"+base_2+"ch") (base_1+base_2+"ll") (lenite base) (base_1+base_2+"lla") Fem ;
_ => error "Can't apply paradigm mkN153"
} ;
mkN154 : Str -> LinN ;
mkN154 base =
case base of {
base_1+base_2@(?+?) => mkNoun (base_1+base_2) (base_1+"i"+base_2) (base_1+base_2) (palatalise base) (base_1+base_2) (base_1+"i"+base_2) (base_1+"h"+base_2) (palatalise base) (base_1+base_2) (lenite base) (base_1+"h"+base_2) (base_1+base_2) (base_1+"h"+base_2) (base_1+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN154"
} ;
mkN155 : Str -> LinN ;
mkN155 base =
case base of {
base_1+"i"+base_2@("l"|(?+?)) => mkNoun (base_1+"i"+base_2) (base_1+base_2+"aichean") (base_1+"i"+base_2) (base_1+base_2+"aichean") base (base_1+base_2+"aichean") (palatalise base) (base_1+base_2+"aichean") (base_1+base_2+"ach") (lenite base) (base_1+base_2+"ach") (base_1+"i"+base_2) (lenite base) (base_1+"i"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN155"
} ;
mkN156 : Str -> LinN ;
mkN156 base =
case base of {
base_1+base_2@(?+?)+"a" => mkNoun (base_1+base_2+"a") (base_1+"i"+base_2+"ean") (base_1+base_2+"a") (palatalise base) base (base_1+"i"+base_2+"ean") (lenite base) (palatalise base) (base_1+"i"+base_2+"e") (lenite base) (lenite (palatalise base)) (base_1+base_2+"a") (lenite (palatalise base)) (base_1+base_2+"aa") Masc ;
_ => error "Can't apply paradigm mkN156"
} ;
mkN157 : Str -> LinN ;
mkN157 base =
case base of {
base_1+"o"+base_2@(?+?) => mkNoun (base_1+"o"+base_2) (base_1+"o"+base_2+"an") (base_1+"o"+base_2) (base_1+"o"+base_2+"an") (base_1+base_2) (base_1+"o"+base_2+"an") (palatalise base) (base_1+"o"+base_2+"an") (base_1+base_2+"e") (lenite base) (base_1+base_2+"e") (base_1+"o"+base_2) (lenite base) (base_1+"o"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN157"
} ;
mkN158 : Str -> LinN ;
mkN158 base =
case base of {
base_1+base_2@? => mkNoun (base_1+base_2) (base_1+base_2+"tan") (base_1+base_2) (palatalise base) base (base_1+base_2+"tan") (lenite base) (palatalise base) (base_1+"i"+base_2) (lenite base) (lenite (palatalise base)) (base_1+base_2) (lenite (palatalise base)) (base_1+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN158"
} ;
mkN159 : Str -> LinN ;
mkN159 base = mk5N base base base base (palatalise base) Masc ;
mkN160 : Str -> LinN ;
mkN160 base =
case base of {
base_1+"ui"+base_2@? => mkNoun (base_1+"ui"+base_2) (base_1+"o"+base_2+"aichean") (base_1+"hui"+base_2) (base_1+"o"+base_2+"aichean") (base_1+"ui"+base_2) (base_1+"o"+base_2+"aichean") (base_1+"hui"+base_2) (base_1+"o"+base_2+"aichean") (base_1+"o"+base_2+"ach") (base_1+"ho"+base_2+"aichean") (base_1+"o"+base_2+"ach") (base_1+"o"+base_2+"aichean") (base_1+"hui"+base_2) (base_1+"ho"+base_2+"aiche") Fem ;
_ => error "Can't apply paradigm mkN160"
} ;
mkN161 : Str -> LinN ;
mkN161 base =
case base of {
base_1+"ea"+base_2@?+"l" => mkNoun (base_1+"ea"+base_2+"l") (base_1+base_2+"eachan") (base_1+"ea"+base_2+"l") (base_1+base_2+"eachan") base (base_1+base_2+"eachan") (palatalise base) (base_1+base_2+"eachan") (base_1+"i"+base_2+"l") (lenite base) (base_1+"i"+base_2+"l") (base_1+"ea"+base_2+"l") (lenite base) (base_1+"ea"+base_2+"la") Fem ;
_ => error "Can't apply paradigm mkN161"
} ;
mkN163 : Str -> LinN ;
mkN163 base =
case base of {
base_1+"s"+base_2@?+"a"+base_3@? => mkNoun (base_1+"s"+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+"s"+base_2+"a"+base_3) (palatalise base) base (base_1+base_2+"a"+base_3+"an") (lenite base) (palatalise base) (base_1+"s"+base_2+"i"+base_3) (lenite base) (lenite (palatalise base)) (base_1+"s"+base_2+"a"+base_3) (lenite (palatalise base)) (base_1+"s"+base_2+"a"+base_3+"a") Masc ;
_ => error "Can't apply paradigm mkN163"
} ;
mkN164 : Str -> LinN ;
mkN164 base =
case base of {
base_1+base_2@?+base_3@? => mkNoun (base_1+base_2+base_3) (base_1+base_2+base_3+"aichean") (base_1+base_2+base_3) (base_1+base_2+base_3+"aichean") (base_1+base_2+base_3) (base_1+base_2+base_3+"aichean") (base_1+"h"+base_2+base_3) (base_1+base_2+base_3+"aichean") (base_1+base_2+"i"+base_3) (base_1+"h"+base_2+base_3+"aichean") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+base_3+"aichean") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+base_3+"aichean") Masc ;
_ => error "Can't apply paradigm mkN164"
} ;
mkN165 : Str -> LinN ;
mkN165 base =
case base of {
base_1+"à"+base_2@(?+?) => mkNoun (base_1+"à"+base_2) (base_1+"ùi"+base_2) (base_1+"à"+base_2) (base_1+"ùi"+base_2) (base_1+"à"+base_2) (base_1+"ùi"+base_2) (base_1+"hà"+base_2) (base_1+"ùi"+base_2) (base_1+"ùi"+base_2) (base_1+"hà"+base_2) (base_1+"hùi"+base_2) (base_1+"à"+base_2) (base_1+"hùi"+base_2) (base_1+"hà"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN165"
} ;
mkN166 : Str -> LinN ;
mkN166 base = mk5N base base (base+"ithe") (base+"ithean") (palatalise base) Masc ;
mkN167 : Str -> LinN ;
mkN167 base =
case base of {
base_1+"o"+base_2@(?+?) => mkNoun (base_1+"o"+base_2) (base_1+"o"+base_2+"an") (base_1+"o"+base_2) (base_1+"o"+base_2+"an") (base_1+"o"+base_2) (base_1+"o"+base_2+"an") (palatalise base) (base_1+"o"+base_2+"an") (base_1+base_2+"e") (lenite base) (base_1+base_2+"e") (base_1+"o"+base_2) (lenite base) (base_1+"o"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN167"
} ;
mkN168 : Str -> LinN ;
mkN168 base =
case base of {
base_1+"ò"+base_2@(?+?+?+?)+"a"+base_3@? => mkNoun (base_1+"ò"+base_2+"a"+base_3) (base_1+"ó"+base_2+"a"+base_3+"an") (base_1+"ò"+base_2+"a"+base_3) (palatalise base) base (base_1+"ó"+base_2+"a"+base_3+"an") (lenite base) (palatalise base) (base_1+"ó"+base_2+"i"+base_3) (lenite base) (lenite (palatalise base)) (base_1+"ò"+base_2+"a"+base_3) (lenite (palatalise base)) (base_1+"ò"+base_2+"a"+base_3+"a") Masc ;
_ => error "Can't apply paradigm mkN168"
} ;
mkN169 : Str -> LinN ;
mkN169 base =
case base of {
base_1+base_2@?+"i"+base_3@? => mkNoun (base_1+base_2+"i"+base_3) (base_1+base_2+base_3+"aichean") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+base_3+"aichean") (base_1+base_2+"i"+base_3) (base_1+base_2+base_3+"aichean") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+base_3+"aichean") (base_1+base_2+base_3+"ach") (base_1+base_2+base_3+"aichean") (base_1+base_2+base_3+"ach") (base_1+base_2+base_3+"aichean") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+base_3+"aiche") Fem ;
_ => error "Can't apply paradigm mkN169"
} ;
mkN170 : Str -> LinN ;
mkN170 base =
case base of {
base_1+"h"+base_2@?+"i"+base_3@? => mkNoun (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+base_3+"aichean") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+base_3+"aichean") base (base_1+base_2+base_3+"aichean") (palatalise base) (base_1+base_2+base_3+"aichean") (base_1+base_2+base_3+"ach") (lenite base) (base_1+base_2+base_3+"ach") (base_1+"h"+base_2+"i"+base_3) (lenite base) (base_1+"h"+base_2+"i"+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN170"
} ;
mkN171 : Str -> LinN ;
mkN171 base =
case base of {
base_1+"ù" => mkNoun (base_1+"ù") (base_1+"oin") (base_1+"ù") (base_1+"oin") (base_1+"ù") (base_1+"oin") (base_1+"hù") (base_1+"oin") (base_1+"oin") (base_1+"hon") (base_1+"hoin") (base_1+"on") (base_1+"hoin") (base_1+"hona") Masc ;
_ => error "Can't apply paradigm mkN171"
} ;
mkN172 : Str -> LinN ;
mkN172 base =
case base of {
base_1+"ea"+base_2@(?+?) => mkNoun (base_1+"ea"+base_2) (base_1+"i"+base_2+"ean") (base_1+"ea"+base_2) (base_1+"i"+base_2+"ean") base (base_1+"i"+base_2+"ean") (palatalise base) (base_1+"i"+base_2+"ean") (base_1+"i"+base_2+"e") (lenite base) (base_1+"i"+base_2+"e") (base_1+"ea"+base_2) (lenite base) (base_1+"ea"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN172"
} ;
mkN173 : Str -> LinN ;
mkN173 base =
case base of {
base_1@?+base_2+base_3@("ch"|?) => mkNoun (base_1+base_2+base_3) (base_1+base_2+"i"+base_3) (base_1+base_2+base_3) (base_1+base_2+"i"+base_3) (base_1+base_2+base_3) (base_1+base_2+"i"+base_3) (base_1+base_2+base_3) (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3) (base_1+"h"+base_2+base_3) (base_1+base_2+"i"+base_3) (base_1+base_2+base_3) (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+base_3+"a") Masc ;
_ => error "Can't apply paradigm mkN173"
} ;
mkN174 : Str -> LinN ;
mkN174 base =
case base of {
base_1@?+base_2+base_3@? => mkNoun (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+"h"+base_2+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+base_2+base_3+"an") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+base_3+"an") Masc ;
_ => error "Can't apply paradigm mkN174"
} ;
mkN175 : Str -> LinN ;
mkN175 base =
case base of {
base_1+base_2@?+"och" => mkNoun (base_1+base_2+"och") (base_1+base_2+"ochan") (base_1+base_2+"och") (base_1+base_2+"ochan") base (base_1+base_2+"ochan") (palatalise base) (base_1+base_2+"ochan") (base_1+"igh"+base_2) (lenite base) (base_1+"igh"+base_2) (base_1+base_2+"och") (lenite base) (base_1+base_2+"ocha") Fem ;
_ => error "Can't apply paradigm mkN175"
} ;
mkN176 : Str -> LinN ;
mkN176 base =
case base of {
base_1+"u"+base_2@? => mkNoun (base_1+"u"+base_2) (base_1+"u"+base_2+"an") (base_1+"u"+base_2) (base_1+"u"+base_2+"an") base (base_1+"u"+base_2+"an") (lenite base) (base_1+"u"+base_2+"an") (base_1+"i"+base_2) (lenite base) (lenite (palatalise base)) (base_1+"u"+base_2) (lenite (palatalise base)) (base_1+"u"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN176"
} ;
mkN177 : Str -> LinN ;
mkN177 base =
case base of {
base_1+"ia" => mkNoun (base_1+"ia") (base_1+"iathan") (base_1+"ia") (base_1+"iathan") (base_1+"ia") (base_1+"iathan") (base_1+"ia") (base_1+"iathan") (base_1+"è") (base_1+"hia") (base_1+"è") (base_1+"ia") (base_1+"hè") (base_1+"hiatha") Masc ;
_ => error "Can't apply paradigm mkN177"
} ;
mkN178 : Str -> LinN ;
mkN178 base =
case base of {
base_1@?+base_2+"a"+base_3@? => mkNoun (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+"h"+base_2+"a"+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+"a"+base_3+"an") Masc ;
_ => error "Can't apply paradigm mkN178"
} ;
mkN179 : Str -> LinN ;
mkN179 base =
case base of {
base_1+base_2@?+"s" => mkNoun (base_1+base_2+"s") (base_1+"s"+base_2+"n") (base_1+base_2+"s") (palatalise base) base (base_1+"s"+base_2+"n") (lenite base) (palatalise base) (base_1+base_2+"is") (lenite base) (lenite (palatalise base)) (base_1+base_2+"s") (lenite (palatalise base)) (base_1+base_2+"sa") Masc ;
_ => error "Can't apply paradigm mkN179"
} ;
mkN180 : Str -> LinN ;
mkN180 base =
case base of {
base_1+base_2@?+"st" => mkNoun (base_1+base_2+"st") (base_1+"s"+base_2+"n") (base_1+base_2+"st") (palatalise base) base (base_1+"s"+base_2+"n") (lenite base) (palatalise base) (base_1+base_2+"ist") (lenite base) (lenite (palatalise base)) (base_1+base_2+"st") (lenite (palatalise base)) (base_1+base_2+"sta") Masc ;
_ => error "Can't apply paradigm mkN180"
} ;
mkN181 : Str -> LinN ;
mkN181 base =
case base of {
base_1+"u"+base_2@? => mkNoun (base_1+"u"+base_2) (base_1+base_2+"an") (base_1+"u"+base_2) (palatalise base) base (base_1+base_2+"an") (lenite base) (palatalise base) (base_1+"ui"+base_2) (lenite base) (lenite (palatalise base)) (base_1+"u"+base_2) (lenite (palatalise base)) (base_1+"u"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN181"
} ;
mkN182 : Str -> LinN ;
mkN182 base = mk5N base base (base+"a") (base+"annan") (palatalise base) Masc ;
mkN183 : Str -> LinN ;
mkN183 base =
case base of {
base_1+base_2@?+"as" => mkNoun (base_1+base_2+"as") (base_1+base_2+"asan") (base_1+base_2+"as") (base_1+base_2+"asan") base (base_1+base_2+"asan") (palatalise base) (base_1+base_2+"asan") (base_1+"is"+base_2) (lenite base) (base_1+"is"+base_2) (base_1+base_2+"as") (lenite base) (base_1+base_2+"asa") Fem ;
_ => error "Can't apply paradigm mkN183"
} ;
mkN184 : Str -> LinN ;
mkN184 base =
case base of {
base_1+"ui"+base_2@? => mkNoun (base_1+"ui"+base_2) (base_1+"o"+base_2+"annan") (base_1+"ui"+base_2) (palatalise base) base (base_1+"o"+base_2+"annan") (lenite base) (palatalise base) (base_1+"o"+base_2+"a") (lenite base) (lenite (palatalise base)) (base_1+"ui"+base_2) (lenite (palatalise base)) (base_1+"ui"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN184"
} ;
mkN185 : Str -> LinN ;
mkN185 base =
case base of {
base_1+base_2@(?+?+?+?) => mkNoun (base_1+base_2) (base_1+base_2+"ichean") (base_1+base_2) (base_1+base_2+"ichean") (base_1+base_2) (base_1+base_2+"ichean") (base_1+base_2) (base_1+base_2+"ichean") (base_1+base_2) (base_1+"h"+base_2+"ichean") (base_1+base_2) (base_1+base_2+"ichean") (base_1+"h"+base_2) (base_1+"h"+base_2+"ichean") Fem ;
_ => error "Can't apply paradigm mkN185"
} ;
mkN186 : Str -> LinN ;
mkN186 base =
case base of {
base_1+"à"+base_2@? => mkNoun (base_1+"à"+base_2) (base_1+"a"+base_2+"annan") (base_1+"à"+base_2) (palatalise base) base (base_1+"a"+base_2+"annan") (lenite base) (palatalise base) (base_1+"a"+base_2+"a") (lenite base) (lenite (palatalise base)) (base_1+"à"+base_2) (lenite (palatalise base)) (base_1+"à"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN186"
} ;
mkN187 : Str -> LinN ;
mkN187 base =
case base of {
base_1+"u"+base_2@(?+?+?) => mkNoun (base_1+"u"+base_2) (base_1+"ao"+base_2) (base_1+"u"+base_2) (palatalise base) base (base_1+"ao"+base_2) (lenite base) (palatalise base) (base_1+"u"+base_2) (lenite base) (lenite (palatalise base)) (base_1+"u"+base_2) (lenite (palatalise base)) (base_1+"u"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN187"
} ;
mkN188 : Str -> LinN ;
mkN188 base =
case base of {
base_1+"e" => mkNoun (base_1+"e") (base_1+"eannan") (base_1+"e") (base_1+"eannan") (base_1+"inn") (base_1+"eannan") (palatalise base) (base_1+"eannan") (base_1+"eann") (lenite base) (base_1+"eann") (base_1+"e") (lenite base) (base_1+"ea") Fem ;
_ => error "Can't apply paradigm mkN188"
} ;
mkN189 : Str -> LinN ;
mkN189 base =
case base of {
base_1+"i"+base_2@? => mkNoun (base_1+"i"+base_2) (base_1+"i"+base_2+"ean") (base_1+"i"+base_2) (base_1+"i"+base_2+"ean") base (base_1+"i"+base_2+"ean") (palatalise base) (base_1+"i"+base_2+"ean") (base_1+"i"+base_2+"e") (base_1+base_2) (base_1+"i"+base_2+"e") (base_1+"i"+base_2) (base_1+base_2) (base_1+"i"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN189"
} ;
mkN190 : Str -> LinN ;
mkN190 base =
case base of {
base_1+base_2@(?+?+?)+"ai"+base_3@(?+?) => mkNoun (base_1+base_2+"ai"+base_3) (base_1+base_2+base_3+"annan") (base_1+base_2+"ai"+base_3) (base_1+base_2+base_3+"annan") (base_1+base_2+"ai"+base_3) (base_1+base_2+base_3+"annan") (base_1+base_2+"ai"+base_3) (base_1+base_2+base_3+"annan") (base_1+base_2+base_3+"a") (base_1+"h"+base_2+base_3+"annan") (base_1+base_2+base_3+"a") (base_1+base_2+base_3+"annan") (base_1+"h"+base_2+"ai"+base_3) (base_1+"h"+base_2+base_3+"annan") Fem ;
_ => error "Can't apply paradigm mkN190"
} ;
mkN191 : Str -> LinN ;
mkN191 base =
case base of {
base_1+"a"+base_2@("n"|(?+?)) => mkNoun (base_1+"a"+base_2) (base_1+"i"+base_2) (base_1+"a"+base_2) (base_1+"i"+base_2) (base_1+"a"+base_2) (base_1+"i"+base_2) (base_1+"a"+base_2) (base_1+"i"+base_2) (base_1+"i"+base_2) (base_1+"a"+base_2) (base_1+"i"+base_2) (base_1+"a"+base_2) (base_1+"i"+base_2) (base_1+"a"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN191"
} ;
mkN192 : Str -> LinN ;
mkN192 base = mk5N base base (base+"idh") (base+"chan") (palatalise base) Masc ;
mkN193 : Str -> LinN ;
mkN193 base =
case base of {
base_1+base_2@?+"r" => mkNoun (base_1+base_2+"r") (base_1+"r"+base_2+"ichean") (base_1+base_2+"r") (palatalise base) base (base_1+"r"+base_2+"ichean") (lenite base) (palatalise base) (base_1+base_2+"ir") (lenite base) (lenite (palatalise base)) (base_1+base_2+"r") (lenite (palatalise base)) (base_1+base_2+"ra") Masc ;
_ => error "Can't apply paradigm mkN193"
} ;
mkN194 : Str -> LinN ;
mkN194 base =
case base of {
base_1+base_2@?+"ann" => mkNoun (base_1+base_2+"ann") (nonExist) (base_1+base_2+"ann") (nonExist) base (nonExist) (palatalise base) nonExist (base_1+"n"+base_2) (lenite base) (base_1+"n"+base_2) (base_1+base_2+"ann") (lenite base) (base_1+base_2+"anna") Fem ;
_ => error "Can't apply paradigm mkN194"
} ;
mkN195 : Str -> LinN ;
mkN195 base =
case base of {
"e"+base_1+"i"+base_2@? => mkNoun ("e"+base_1+"i"+base_2) ("è"+base_1+base_2+"ean") ("e"+base_1+"i"+base_2) ("è"+base_1+base_2+"ean") base ("è"+base_1+base_2+"ean") (palatalise base) ("è"+base_1+base_2+"ean") ("è"+base_1+base_2+"e") (lenite base) ("è"+base_1+base_2+"e") ("e"+base_1+"i"+base_2) (lenite base) ("e"+base_1+"i"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN195"
} ;
mkN196 : Str -> LinN ;
mkN196 base =
case base of {
"eu"+base_1 => mk5N base base ("èi"+base_1) (palatalise base) (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN196"
} ;
mkN197 : Str -> LinN ;
mkN197 base =
case base of {
"eò" => mkNoun ("eò") ("iach") ("eò") (palatalise base) base ("iach") (lenite base) (palatalise base) ("iach") (lenite base) (lenite (palatalise base)) ("eò") (lenite (palatalise base)) ("eòa") Masc ;
_ => error "Can't apply paradigm mkN197"
} ;
mkN199 : Str -> LinN ;
mkN199 base =
case base of {
base_1+base_2@? => mkNoun (base_1+base_2) (base_1+"ich"+base_2+"an") (base_1+base_2) (palatalise base) (base_1+base_2) (base_1+"ich"+base_2+"an") (base_1+"h"+base_2) (palatalise base) (base_1+base_2) (lenite base) (base_1+"h"+base_2) (base_1+base_2) (base_1+"h"+base_2) (base_1+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN199"
} ;
mkN200 : Str -> LinN ;
mkN200 base =
case base of {
base_1+base_2@?+"a"+base_3@? => mkNoun (base_1+base_2+"a"+base_3) (base_1+"n"+base_2+"a"+base_3) (base_1+base_2+"a"+base_3) (palatalise base) base (base_1+"n"+base_2+"a"+base_3) (lenite base) (palatalise base) (base_1+base_2+"i"+base_3) (lenite base) (lenite (palatalise base)) (base_1+base_2+"a"+base_3) (lenite (palatalise base)) (base_1+base_2+"a"+base_3+"a") Masc ;
_ => error "Can't apply paradigm mkN200"
} ;
mkN201 : Str -> LinN ;
mkN201 base =
case base of {
base_1+"i"+base_2@(?+?) => mkNoun (base_1+"i"+base_2) (base+"an") (base_1+"i"+base_2) (base+"an") base (base+"an") (palatalise base) (base+"an") (base_1+base_2) (lenite base) (base_1+base_2) (base_1+"i"+base_2) (lenite base) (base_1+"i"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN201"
} ;
mkN202 : Str -> LinN ;
mkN202 base =
case base of {
base_1+"ea"+base_2@? => mkNoun (base_1+"ea"+base_2) (base_1+"i"+base_2) (base_1+"ea"+base_2) (base_1+"i"+base_2) (base_1+"ea"+base_2) (base_1+"i"+base_2) (base_1+"hea"+base_2) (base_1+"i"+base_2) (base_1+"i"+base_2) (base_1+"hea"+base_2) (base_1+"hi"+base_2) (base_1+"ea"+base_2) (base_1+"hi"+base_2) (base_1+"hea"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN202"
} ;
mkN203 : Str -> LinN ;
mkN203 base =
case base of {
base_1+base_2@(?+?)+"i"+base_3@? => mkNoun (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+base_3+"a") (base_1+"h"+base_2+"i"+base_3+"ean") (base_1+base_2+base_3+"a") (base_1+base_2+"i"+base_3+"ean") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN203"
} ;
mkN204 : Str -> LinN ;
mkN204 base =
case base of {
base_1+base_2@?+"ill" => mk5N base base (base_1+"l"+base_2) (base_1+"l"+base_2+"n") (palatalise base) Fem ;
_ => error "Can't apply paradigm mkN204"
} ;
mkN205 : Str -> LinN ;
mkN205 base =
case base of {
base_1+base_2@?+"a"+base_3@(?+?) => mkNoun base (base_1+"è"+base_2+base_3) base (base_1+"è"+base_2+base_3) base (base_1+"è"+base_2+base_3) (lenite base) (base_1+"è"+base_2+base_3) (base_1+"è"+base_2+base_3) (lenite base) (base_1+"hè"+base_2+base_3) base (base_1+"hè"+base_2+base_3) (lenite base+"a") Masc ;
_ => error "Can't apply paradigm mkN205"
} ;
mkN206 : Str -> LinN ;
mkN206 base =
case base of {
base_1+"i"+base_2@(?+?)+"ea"+base_3@?+"l" => mkNoun (base_1+"i"+base_2+"ea"+base_3+"l") (base_1+"ì"+base_2+base_3+"ean") (base_1+"i"+base_2+"ea"+base_3+"l") (base_1+"ì"+base_2+base_3+"ean") (base_1+"i"+base_2+"i"+base_3+"l") (base_1+"ì"+base_2+base_3+"ean") (palatalise base) (base_1+"ì"+base_2+base_3+"ean") (base_1+"ì"+base_2+base_3+"e") (lenite base) (base_1+"ì"+base_2+base_3+"e") (base_1+"i"+base_2+"ea"+base_3+"l") (lenite base) (base_1+"i"+base_2+"ea"+base_3+"la") Fem ;
_ => error "Can't apply paradigm mkN206"
} ;
mkN207 : Str -> LinN ;
mkN207 base =
case base of {
base_1+"o"+base_2@(?+?)+"a" => mkNoun base (base_1+"o"+base_2+"an") base (base_1+"o"+base_2+"an") base (base_1+"o"+base_2+"an") (palatalise base) base (base_1+"ui"+base_2+"e") (lenite base) (base_1+"ui"+base_2+"e") base (lenite base) (base+"a") Fem ;
_ => error "Can't apply paradigm mkN207"
} ;
mkN208 : Str -> LinN ;
mkN208 base =
case base of {
base_1+"ui"+base_2@? => mkNoun (base_1+"ui"+base_2) (base+"an") (base_1+"hui"+base_2) (base+"an") (base_1+"ui"+base_2) (base+"an") (base_1+"hui"+base_2) (base+"an") (base_1+"a"+base_2+"a") (lenite base) (base_1+"a"+base_2+"a") (base_1+"ui"+base_2) (base_1+"hui"+base_2) (base_1+"ui"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN208"
} ;
mkN209 : Str -> LinN ;
mkN209 base =
case base of {
base_1+base_2@(?+?+?)+"ea"+base_3@(?+?) => mkNoun (base_1+base_2+"ea"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"ea"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"ea"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+"h"+base_2+"ea"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+"h"+base_2+"i"+base_3+"ean") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+"i"+base_3+"ean") Masc ;
_ => error "Can't apply paradigm mkN209"
} ;
mkN210 : Str -> LinN ;
mkN210 base =
case base of {
base_1+base_2@? => mkNoun (base_1+base_2) (base_1+"ich"+base_2+"an") (base_1+base_2) (base_1+"ich"+base_2+"an") (base_1+base_2) (base_1+"ich"+base_2+"an") (base_1+"h"+base_2) (base_1+"ich"+base_2+"an") (base_1+base_2) (lenite base) (base_1+base_2) (base_1+base_2) (base_1+"h"+base_2) (base_1+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN210"
} ;
mkN211 : Str -> LinN ;
mkN211 base = mk5N base base (base+"a") (base+"tan") (palatalise base) Masc ;
mkN212 : Str -> LinN ;
mkN212 base =
case base of {
base_1+base_2@(?+?+?+?)+"i"+base_3@? => mkNoun (base_1+base_2+"i"+base_3) (base_1+base_2+base_3+"aichean") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+base_3+"aichean") (base_1+base_2+"i"+base_3) (base_1+base_2+base_3+"aichean") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+base_3+"aichean") (base_1+base_2+base_3+"ach") (base_1+"h"+base_2+base_3+"aichean") (base_1+base_2+base_3+"ach") (base_1+base_2+base_3+"aichean") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+base_3+"aichean") Masc ;
_ => error "Can't apply paradigm mkN212"
} ;
mkN213 : Str -> LinN ;
mkN213 base =
case base of {
base_1+"a"+base_2@?+"a"+base_3@(?+?+?) => mkNoun (base_1+"a"+base_2+"a"+base_3) (base_1+"i"+base_2+base_3+"ean") (base_1+"a"+base_2+"a"+base_3) (palatalise base) base (base_1+"i"+base_2+base_3+"ean") (lenite base) (palatalise base) (base_1+"i"+base_2+base_3) (lenite base) (lenite (palatalise base)) (base_1+"a"+base_2+"a"+base_3) (lenite (palatalise base)) (base_1+"a"+base_2+"a"+base_3+"a") Masc ;
_ => error "Can't apply paradigm mkN213"
} ;
mkN214 : Str -> LinN ;
mkN214 base =
case base of {
base_1+base_2@(?+?+?+?+?)+"ea"+base_3@(?+?) => mkNoun (base_1+base_2+"ea"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+"h"+base_2+"ea"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+"h"+base_2+"ea"+base_3) (base_1+base_2+"i"+base_3+"e") (base_1+base_2+"ea"+base_3) (base_1+"h"+base_2+"ea"+base_3) (base_1+"h"+base_2+"ea"+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN214"
} ;
mkN216 : Str -> LinN ;
mkN216 base =
case base of {
base_1+base_2@(?+?)+"ai"+base_3@?+"n" => mkNoun base (base_1+base_2+base_3+"a") (base_1+base_2+"ai"+base_3+"n") (palatalise base) base (base_1+base_2+base_3+"a") (lenite base) (palatalise base) (base_1+"i"+base_2+base_3+"e") (lenite base) (lenite (palatalise base)) base (lenite (palatalise base)) (base+"a") Masc ;
_ => error "Can't apply paradigm mkN216"
} ;
mkN217 : Str -> LinN ;
mkN217 base =
case base of {
base_1+base_2@(?+?+?) => mkNoun base (base+"an") base (base+"an") (base+"a") (base+"an") (base_1+"h"+base_2+"a") (base+"an") (base+"a") (base_1+"h"+base_2+"an") (base_1+"h"+base_2+"a") (base+"an") (base_1+"h"+base_2) (base_1+"h"+base_2+"an") Masc ;
_ => error "Can't apply paradigm mkN217"
} ;
mkN219 : Str -> LinN ;
mkN219 base =
case base of {
base_1+base_2@?+"a"+base_3@? => mkNoun base (base+"an") (base_1+"h"+base_2+"a"+base_3) (base+"an") (base+"a") (base+"an") (base_1+"h"+base_2+"a"+base_3+"a") (base+"an") (base_1+base_2+"i"+base_3) (base_1+"h"+base_2+"a"+base_3+"an") (base+"a") (base+"an") (base_1+"h"+base_2+"a"+base_3) (base_1+"h"+base_2+"a"+base_3+"an") Fem ;
_ => error "Can't apply paradigm mkN219"
} ;
mkN220 : Str -> LinN ;
mkN220 base =
case base of {
base_1+"ug" => mkNoun base (base+"an") base (base+"an") base (base+"an") (palatalise base) (base+"an") ("gèi"+base_1) (lenite base) ("gèi"+base_1) base (lenite base) (base+"a") Fem ;
_ => error "Can't apply paradigm mkN220"
} ;
mkN221 : Str -> LinN ;
mkN221 base =
case base of {
base_1+base_2@?+"à"+base_3@(?+?) => mkNoun (base_1+base_2+"à"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+"h"+base_2+"à"+base_3) (base_1+base_2+"à"+base_3+"an") (base_1+base_2+"à"+base_3+"a") (base_1+base_2+"à"+base_3+"an") (base_1+"h"+base_2+"à"+base_3+"a") (base_1+base_2+"à"+base_3+"an") (base_1+base_2+"a"+base_3+"a") (base_1+"h"+base_2+"à"+base_3+"an") (base_1+base_2+"à"+base_3+"a") (base_1+base_2+"à"+base_3+"an") (base_1+"h"+base_2+"à"+base_3) (base_1+"h"+base_2+"à"+base_3+"an") Fem ;
_ => error "Can't apply paradigm mkN221"
} ;
mkN222 : Str -> LinN ;
mkN222 base =
case base of {
base_1+base_2@(?+?+?+?) => mkNoun (base_1+base_2) (base_1+base_2+"an") (base_1+"h"+base_2) (base_1+base_2+"an") (base_1+base_2+"a") (base_1+base_2+"an") (base_1+"h"+base_2+"a") (base_1+base_2+"an") (base_1+base_2+"a") (base_1+"h"+base_2+"an") (base_1+base_2+"a") (base_1+base_2+"an") (base_1+"h"+base_2) (base_1+"h"+base_2+"an") Fem ;
_ => error "Can't apply paradigm mkN222"
} ;
mkN224 : Str -> LinN ;
mkN224 base =
case base of {
base_1@?+base_2 => mkNoun (base_1+base_2) (base_1+base_2+"an") (base_1+"h"+base_2) (base_1+base_2+"an") (base_1+base_2) (base_1+base_2+"an") (base_1+"h"+base_2) (base_1+base_2+"an") (base_1+base_2) (base_1+"h"+base_2+"an") (base_1+base_2) (base_1+base_2+"an") (base_1+"h"+base_2) (base_1+"h"+base_2+"an") Masc ;
_ => error "Can't apply paradigm mkN224"
} ;
mkN225 : Str -> LinN ;
mkN225 base = mk5N base base base (base+"dhean") (palatalise base) Masc ;
mkN226 : Str -> LinN ;
mkN226 base =
case base of {
base_1+"ea"+base_2@(?+?) => mkNoun (base_1+"ea"+base_2) (base_1+"ea"+base_2+"tan") (base_1+"ea"+base_2) (palatalise base) base (base_1+"ea"+base_2+"tan") (lenite base) (palatalise base) (base_1+"i"+base_2+"e") (lenite base) (lenite (palatalise base)) (base_1+"ea"+base_2) (lenite (palatalise base)) (base_1+"ea"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN226"
} ;
mkN227 : Str -> LinN ;
mkN227 base = mk5N base base base (base+"ithean") (palatalise base) Fem ;
mkN228 : Str -> LinN ;
mkN228 base =
case base of {
base_1+base_2@?+base_3@(?+?)+base_4@? => mkNoun (base_1+base_2+base_3+base_4) (base_1+base_2+"i"+base_3+"ne"+base_4+"n") (base_1+base_2+base_3+base_4) (base_1+base_2+"i"+base_3+"ne"+base_4+"n") (base_1+base_2+base_3+base_4) (base_1+base_2+"i"+base_3+"ne"+base_4+"n") (base_1+"h"+base_2+base_3+base_4) (base_1+base_2+"i"+base_3+"ne"+base_4+"n") (base_1+base_2+base_3+base_4+"inn") (base_1+"h"+base_2+"i"+base_3+"ne"+base_4+"n") (base_1+"h"+base_2+base_3+base_4+"inn") (base_1+base_2+"i"+base_3+"ne"+base_4+"n") (base_1+"h"+base_2+base_3+base_4) (base_1+"h"+base_2+"i"+base_3+"ne"+base_4+"n") Masc ;
_ => error "Can't apply paradigm mkN228"
} ;
mkN229 : Str -> LinN ;
mkN229 base =
case base of {
base_1@(?+?)+base_2+base_3@?+"l" => mkNoun (base_1+base_2+base_3+"l") (base_1+"i"+base_2+"le"+base_3+"n") (base_1+base_2+base_3+"l") (palatalise base) base (base_1+"i"+base_2+"le"+base_3+"n") (lenite base) (palatalise base) (base_1+base_2+base_3+"il") (lenite base) (lenite (palatalise base)) (base_1+base_2+base_3+"l") (lenite (palatalise base)) (base_1+base_2+base_3+"la") Masc ;
_ => error "Can't apply paradigm mkN229"
} ;
mkN230 : Str -> LinN ;
mkN230 base = mk5N base base (base+"a") (base+"aichean") (palatalise base) Masc ;
mkN231 : Str -> LinN ;
mkN231 base = mk5N base base (base+"e") (base+"eannan") (palatalise base) Masc ;
mkN232 : Str -> LinN ;
mkN232 base =
case base of {
base_1+base_2@(?+?+?+?+?)+"a"+base_3@? => mkNoun (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+"h"+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"i"+base_3+"e") (base_1+"h"+base_2+"a"+base_3) (base_1+base_2+"i"+base_3+"e") (base_1+base_2+"a"+base_3) (base_1+"h"+base_2+"a"+base_3) (base_1+"h"+base_2+"a"+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN232"
} ;
mkN233 : Str -> LinN ;
mkN233 base =
case base of {
base_1+base_2@(?+?)+base_3@?+base_4@? => mkNoun (base_1+base_2+base_3+base_4) (base_1+base_2+"i"+base_3+"ne"+base_4+"n") (base_1+"h"+base_2+base_3+base_4) (base_1+base_2+"i"+base_3+"ne"+base_4+"n") (base_1+base_2+base_3+base_4) (base_1+base_2+"i"+base_3+"ne"+base_4+"n") (base_1+"h"+base_2+base_3+base_4) (base_1+base_2+"i"+base_3+"ne"+base_4+"n") (base_1+base_2+base_3+base_4+"inn") (base_1+"h"+base_2+"i"+base_3+"ne"+base_4+"n") (base_1+base_2+base_3+base_4+"inn") (base_1+base_2+"i"+base_3+"ne"+base_4+"n") (base_1+"h"+base_2+base_3+base_4) (base_1+"h"+base_2+"i"+base_3+"ne"+base_4+"n") Fem ;
_ => error "Can't apply paradigm mkN233"
} ;
mkN234 : Str -> LinN ;
mkN234 base =
case base of {
base_1+base_2@(?+?)+base_3@?+base_4@?+base_5@?+"n" => mkNoun (base_1+base_2+base_3+base_4+base_5+"n") (base_1+base_2+"i"+base_3+"ne"+base_4+base_5) (base_1+"h"+base_2+base_3+base_4+base_5+"n") (base_1+base_2+"i"+base_3+"ne"+base_4+base_5) (base_1+base_2+base_3+base_4+base_5+"n") (base_1+base_2+"i"+base_3+"ne"+base_4+base_5) (base_1+"h"+base_2+base_3+base_4+base_5+"n") (base_1+base_2+"i"+base_3+"ne"+base_4+base_5) (base_1+base_2+base_3+base_4+"i"+base_5+"n") (base_1+"h"+base_2+"i"+base_3+"ne"+base_4+base_5) (base_1+base_2+base_3+base_4+"i"+base_5+"n") (base_1+base_2+"i"+base_3+"ne"+base_4+base_5) (base_1+"h"+base_2+base_3+base_4+base_5+"n") (base_1+"h"+base_2+"i"+base_3+"ne"+base_4+base_5) Fem ;
_ => error "Can't apply paradigm mkN234"
} ;
mkN235 : Str -> LinN ;
mkN235 base = mk5N base base (base+"an") (base+"s") (palatalise base) Masc ;
mkN236 : Str -> LinN ;
mkN236 base =
case base of {
base_1+"a"+base_2@("dh"|?) => mkNoun (base_1+"a"+base_2) (base_1+"i"+base_2+"ean") (base_1+"a"+base_2) (palatalise base) base (base_1+"i"+base_2+"ean") (lenite base) (palatalise base) (base_1+"i"+base_2) (lenite base) (lenite (palatalise base)) (base_1+"a"+base_2) (lenite (palatalise base)) (base_1+"a"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN236"
} ;
mkN237 : Str -> LinN ;
mkN237 base =
case base of {
base_1+"èa"+base_2@(?+?) => mkNoun (base_1+"èa"+base_2) (base_1+"eòi"+base_2) (base_1+"èa"+base_2) (base_1+"eòi"+base_2) (base_1+"èa"+base_2) (base_1+"eòi"+base_2) (base_1+"hèa"+base_2) (base_1+"eòi"+base_2) (base_1+"eòi"+base_2) (base_1+"hèa"+base_2) (base_1+"heòi"+base_2) (base_1+"èa"+base_2) (base_1+"heòi"+base_2) (base_1+"hèa"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN237"
} ;
mkN238 : Str -> LinN ;
mkN238 base =
case base of {
base_1 => mkNoun (base_1) (base_1+"ean") (base_1) (base_1+"ean") (base_1) (base_1+"ean") (lenite base) (base_1+"ean") (base_1) (base_1+"ean") (base_1) (base_1+"ean") (base_1) (base_1+"ean") Masc ;
_ => error "Can't apply paradigm mkN238"
} ;
mkN239 : Str -> LinN ;
mkN239 base =
case base of {
base_1+"a"+base_2@(?+?) => mkNoun (base_1+"a"+base_2) (base_1+"a"+base_2+"an") (base_1+"a"+base_2) (base_1+"a"+base_2+"an") base (base_1+"a"+base_2+"an") (palatalise base) (base_1+"a"+base_2+"an") ("è"+base_1+base_2+"e") (lenite base) (nonExist) (base_1+"a"+base_2) (lenite base) (base_1+"a"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN239"
} ;
mkN240 : Str -> LinN ;
mkN240 base =
case base of {
base_1+"a"+base_2@(?+?) => mkNoun (base_1+"a"+base_2) ("è"+base_1+base_2) (base_1+"a"+base_2) ("è"+base_1+base_2) (base_1+"a"+base_2) ("è"+base_1+base_2) (base_1+"a"+base_2) ("è"+base_1+base_2) ("è"+base_1+base_2) (base_1+"a"+base_2) ("è"+base_1+base_2) (base_1+"a"+base_2) ("è"+base_1+base_2) (base_1+"a"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN240"
} ;
mkN241 : Str -> LinN ;
mkN241 base = mk5N base base (base+"an") (base+"an") (palatalise base) Masc ;
mkN242 : Str -> LinN ;
mkN242 base =
case base of {
"in"+base_1+base_2@?+"an" => mkNoun ("in"+base_1+base_2+"an") ("in"+base_1+base_2+"anan") ("in"+base_1+base_2+"an") ("in"+base_1+base_2+"anan") base ("in"+base_1+base_2+"anan") (palatalise base) ("in"+base_1+base_2+"anan") ("ì"+base_1+"n"+base_2) (lenite base) ("ì"+base_1+"n"+base_2) ("in"+base_1+base_2+"an") (lenite base) ("in"+base_1+base_2+"ana") Fem ;
_ => error "Can't apply paradigm mkN242"
} ;
mkN243 : Str -> LinN ;
mkN243 base =
case base of {
"io"+base_1+"a" => mkNoun ("io"+base_1+"a") ("ì"+base_1+"nean") ("io"+base_1+"a") ("ì"+base_1+"nean") base ("ì"+base_1+"nean") (palatalise base) ("ì"+base_1+"nean") ("i"+base_1+"ne") (lenite base) ("i"+base_1+"ne") ("io"+base_1+"a") (lenite base) ("io"+base_1+"aa") Fem ;
_ => error "Can't apply paradigm mkN243"
} ;
mkN244 : Str -> LinN ;
mkN244 base =
case base of {
base_1+base_2@(?+?)+"a" => mkNoun (base_1+base_2+"a") (base_1+"i"+base_2+"ean") (base_1+base_2+"a") (base_1+"i"+base_2+"ean") base (base_1+"i"+base_2+"ean") (palatalise base) (base_1+"i"+base_2+"ean") (base_1+"i"+base_2+"e") (lenite base) (base_1+"i"+base_2+"e") (base_1+base_2+"a") (lenite base) (base_1+base_2+"aa") Fem ;
_ => error "Can't apply paradigm mkN244"
} ;
mkN245 : Str -> LinN ;
mkN245 base =
case base of {
base_1 => mkNoun (base_1) (base_1+"annan") (base_1) (base_1+"annan") (base_1+"a") (base_1+"annan") (base_1+"a") (base_1+"annan") (base_1+"a") (base_1+"annan") (base_1+"a") (base_1+"annan") (base_1) (base_1+"annan") Masc ;
_ => error "Can't apply paradigm mkN245"
} ;
mkN246 : Str -> LinN ;
mkN246 base =
case base of {
base_1+"t"+base_2@(?+?+?) => mkNoun (base_1+"t"+base_2) (base_1+"d"+base_2+"ean") (base_1+"t"+base_2) (palatalise base) base (base_1+"d"+base_2+"ean") (lenite base) (palatalise base) (nonExist) (lenite base) (lenite (palatalise base)) (base_1+"t"+base_2) (lenite (palatalise base)) (base_1+"t"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN246"
} ;
mkN247 : Str -> LinN ;
mkN247 base =
case base of {
base_1+"a"+base_2@(?+?)+base_3@? => mkNoun (base_1+"a"+base_2+base_3) (base_1+"ài"+base_2+"e"+base_3+"n") (base_1+"a"+base_2+base_3) (palatalise base) base (base_1+"ài"+base_2+"e"+base_3+"n") (lenite base) (palatalise base) (base_1+"a"+base_2+base_3) (lenite base) (lenite (palatalise base)) (base_1+"a"+base_2+base_3) (lenite (palatalise base)) (base_1+"a"+base_2+base_3+"a") Masc ;
_ => error "Can't apply paradigm mkN247"
} ;
mkN248 : Str -> LinN ;
mkN248 base =
case base of {
base_1+"b"+base_2@?+"idh" => mkNoun (base_1+"b"+base_2+"idh") (base_1+"b"+base_2+"ichean") (base_1+"b"+base_2+"idh") (base_1+"b"+base_2+"ichean") base (base_1+"b"+base_2+"ichean") (palatalise base) (base_1+"b"+base_2+"ichean") (base_1+"p"+base_2) (lenite base) (base_1+"p"+base_2) (base_1+"b"+base_2+"idh") (lenite base) (base_1+"b"+base_2+"idha") Fem ;
_ => error "Can't apply paradigm mkN248"
} ;
mkN249 : Str -> LinN ;
mkN249 base =
case base of {
base_1+base_2@?+"r" => mkNoun (base_1+base_2+"r") (base_1+"r"+base_2+"ichean") (base_1+base_2+"r") (base_1+"r"+base_2+"ichean") (base_1+base_2+"r") (base_1+"r"+base_2+"ichean") (base_1+base_2+"r") (base_1+"r"+base_2+"ichean") (base_1+base_2+"ir") (base_1+"r"+base_2+"ichean") (base_1+base_2+"ir") (base_1+"r"+base_2+"ichean") (base_1+base_2+"r") (base_1+"r"+base_2+"ichean") Masc ;
_ => error "Can't apply paradigm mkN249"
} ;
mkN250 : Str -> LinN ;
mkN250 base =
case base of {
base_1+"ea"+base_2@? => mkNoun (base_1+"ea"+base_2) (base_1+"ea"+base_2+"an") (base_1+"ea"+base_2) (base_1+"ea"+base_2+"an") (base_1+"i"+base_2) (base_1+"ea"+base_2+"an") (palatalise base) (base_1+"ea"+base_2+"an") (base_1+"i"+base_2+"e") (lenite base) (base_1+"i"+base_2+"e") (base_1+"ea"+base_2) (lenite base) (base_1+"ea"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN250"
} ;
mkN251 : Str -> LinN ;
mkN251 base =
case base of {
base_1+"a"+base_2@?+"a"+base_3@(?+?) => mkNoun (base_1+"a"+base_2+"a"+base_3) (base_1+"a"+base_2+"a"+base_3+"an") (base_1+"a"+base_2+"a"+base_3) (palatalise base) base (base_1+"a"+base_2+"a"+base_3+"an") (lenite base) (palatalise base) (base_1+"i"+base_2+"i"+base_3) (lenite base) (lenite (palatalise base)) (base_1+"a"+base_2+"a"+base_3) (lenite (palatalise base)) (base_1+"a"+base_2+"a"+base_3+"a") Masc ;
_ => error "Can't apply paradigm mkN251"
} ;
mkN252 : Str -> LinN ;
mkN252 base =
case base of {
base_1+base_2@?+"thad" => mkNoun (base_1+base_2+"thad") (base_1+"òide"+base_2+"n") (base_1+base_2+"thad") (palatalise base) base (base_1+"òide"+base_2+"n") (lenite base) (palatalise base) (base_1+base_2+"thaid") (lenite base) (lenite (palatalise base)) (base_1+base_2+"thad") (lenite (palatalise base)) (base_1+base_2+"thada") Masc ;
_ => error "Can't apply paradigm mkN252"
} ;
mkN253 : Str -> LinN ;
mkN253 base =
case base of {
base_1+"o"+base_2@? => mkNoun (base_1+"o"+base_2) (base_1+"o"+base_2+"an") (base_1+"o"+base_2) (palatalise base) base (base_1+"o"+base_2+"an") (lenite base) (palatalise base) (base_1+"ui"+base_2+"e") (lenite base) (lenite (palatalise base)) (base_1+"o"+base_2) (lenite (palatalise base)) (base_1+"o"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN253"
} ;
mkN254 : Str -> LinN ;
mkN254 base =
case base of {
base_1+"i"+base_2@? => mkNoun (base_1+"i"+base_2) (base_1+base_2+"ichean") (base_1+"i"+base_2) (base_1+base_2+"ichean") base (base_1+base_2+"ichean") (palatalise base) (base_1+base_2+"ichean") (base_1+base_2+"each") (lenite base) (base_1+base_2+"each") (base_1+"i"+base_2) (lenite base) (base_1+"i"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN254"
} ;
mkN255 : Str -> LinN ;
mkN255 base =
case base of {
base_1+base_2@?+"a"+base_3@(?+?) => mkNoun (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+"è"+base_2+base_3) (base_1+base_2+"a"+base_3+"an") (palatalise base) (base_1+base_2+"a"+base_3+"an") (base_1+"è"+base_2+base_3) (lenite base) (base_1+"è"+base_2+base_3) (base_1+base_2+"a"+base_3) (lenite base) (base_1+base_2+"a"+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN255"
} ;
mkN256 : Str -> LinN ;
mkN256 base = mk5N base base base (base+"tean") (palatalise base) Masc ;
mkN257 : Str -> LinN ;
mkN257 base =
case base of {
base_1+base_2@?+"o"+base_3@(?+?) => mkNoun (base_1+base_2+"o"+base_3) (base_1+base_2+"o"+base_3+"an") (base_1+base_2+"o"+base_3) (base_1+base_2+"o"+base_3+"an") base (base_1+base_2+"o"+base_3+"an") (palatalise base) (base_1+base_2+"o"+base_3+"an") (base_1+"è"+base_2+base_3) (lenite base) (base_1+"è"+base_2+base_3) (base_1+base_2+"o"+base_3) (lenite base) (base_1+base_2+"o"+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN257"
} ;
mkN258 : Str -> LinN ;
mkN258 base =
case base of {
base_1+"o"+base_2@? => mkNoun (base_1+"o"+base_2) (base_1+"o"+base_2+"an") (base_1+"o"+base_2) (palatalise base) (base_1+base_2) (base_1+"o"+base_2+"an") (lenite base) (palatalise base) (base_1+base_2+"e") (lenite base) (lenite (palatalise base)) (base_1+"o"+base_2) (lenite (palatalise base)) (base_1+"o"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN258"
} ;
mkN259 : Str -> LinN ;
mkN259 base =
case base of {
base_1+"i"+base_2@(?+?+?)+"a"+base_3@? => mkNoun (base_1+"i"+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+"i"+base_2+"a"+base_3) (palatalise base) base (base_1+base_2+"a"+base_3+"an") (lenite base) (palatalise base) (base_1+"i"+base_2+"i"+base_3) (lenite base) (lenite (palatalise base)) (base_1+"i"+base_2+"a"+base_3) (lenite (palatalise base)) (base_1+"i"+base_2+"a"+base_3+"a") Masc ;
_ => error "Can't apply paradigm mkN259"
} ;
mkN260 : Str -> LinN ;
mkN260 base =
case base of {
base_1+"o"+base_2@(?+?) => mkNoun (base_1+"o"+base_2) (base_1+"o"+base_2+"an") (base_1+"o"+base_2) (base_1+"o"+base_2+"an") base (base_1+"o"+base_2+"an") (palatalise base) (base_1+"o"+base_2+"an") (base_1+"ui"+base_2+"e") (lenite base) (base_1+"ui"+base_2+"e") (base_1+"o"+base_2) (lenite base) (base_1+"o"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN260"
} ;
mkN261 : Str -> LinN ;
mkN261 base = mk5N base base (base+"a") (base+"aichean") (palatalise base) Fem ;
mkN262 : Str -> LinN ;
mkN262 base =
case base of {
base_1 => mkNoun (base_1) (base_1+"an") (base_1) (base_1+"an") (base_1+"a") (base_1+"an") (base_1+"a") (base_1+"an") (base_1+"a") (base_1+"an") (base_1+"a") (base_1+"an") (base_1) (base_1+"an") Fem ;
_ => error "Can't apply paradigm mkN262"
} ;
mkN263 : Str -> LinN ;
mkN263 base =
case base of {
base_1+base_2@("mh"|?) => mkNoun (base_1+base_2) (base_1+base_2+"an") (base_1+base_2) (base_1+base_2+"an") (base_1+"i"+base_2) (base_1+base_2+"an") (base_1+"i"+base_2) (base_1+base_2+"an") (base_1+"i"+base_2+"e") (base_1+base_2) (base_1+"i"+base_2+"e") (base_1+base_2) (base_1+base_2) (base_1+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN263"
} ;
mkN264 : Str -> LinN ;
mkN264 base =
case base of {
base_1+base_2@(?+?+?+?+?) => mkNoun (base_1+base_2) (base_1+"i"+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2+"e") (base_1+base_2+"ean") (base_1+base_2+"e") (base_1+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") Fem ;
_ => error "Can't apply paradigm mkN264"
} ;
mkN265 : Str -> LinN ;
mkN265 base =
case base of {
base_1+"èi"+base_2@? => mkNoun (base_1+"èi"+base_2) (base_1+"eu"+base_2+"an") (base_1+"èi"+base_2) (palatalise base) base (base_1+"eu"+base_2+"an") (lenite base) (palatalise base) (base_1+"eu"+base_2+"a") (lenite base) (lenite (palatalise base)) (base_1+"èi"+base_2) (lenite (palatalise base)) (base_1+"èi"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN265"
} ;
mkN266 : Str -> LinN ;
mkN266 base =
case base of {
base_1+base_2@? => mkNoun (base_1+base_2) (base_1+"t"+base_2+"an") (base_1+base_2) (base_1+"t"+base_2+"an") (base_1+base_2) (base_1+"t"+base_2+"an") (palatalise base) (base_1+"t"+base_2+"an") (base_1+base_2) (lenite base) (base_1+base_2) (base_1+base_2) (base_1+"h"+base_2) (base_1+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN266"
} ;
mkN267 : Str -> LinN ;
mkN267 base = mk5N base base (base+"idh") (base+"idhean") (palatalise base) Masc ;
mkN268 : Str -> LinN ;
mkN268 base =
case base of {
base_1+"a"+base_2@? => mkNoun (base_1+"a"+base_2) (base_1+"i"+base_2) (base_1+"a"+base_2) (base_1+"i"+base_2) (base_1+"a"+base_2) (base_1+"i"+base_2) (base_1+"ha"+base_2) (base_1+"i"+base_2) (base_1+"i"+base_2) (base_1+"ha"+base_2) (base_1+"hi"+base_2) (base_1+"a"+base_2) (base_1+"hi"+base_2) (base_1+"ha"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN268"
} ;
mkN269 : Str -> LinN ;
mkN269 base =
case base of {
base_1+base_2@?+"ir" => mkNoun (base_1+base_2+"ir") (base_1+"r"+base_2+"ichean") (base_1+base_2+"ir") (palatalise base) base (base_1+"r"+base_2+"ichean") (lenite base) (palatalise base) (base_1+base_2+"rach") (lenite base) (lenite (palatalise base)) (base_1+base_2+"ir") (lenite (palatalise base)) (base_1+base_2+"ira") Masc ;
_ => error "Can't apply paradigm mkN269"
} ;
mkN270 : Str -> LinN ;
mkN270 base =
case base of {
base_1+"da"+base_2@?+base_3@?+"n" => mkNoun (base_1+"da"+base_2+base_3+"n") (base_1+base_2+"d"+base_3+"ean") (base_1+"da"+base_2+base_3+"n") (base_1+base_2+"d"+base_3+"ean") base (base_1+base_2+"d"+base_3+"ean") (palatalise base) (base_1+base_2+"d"+base_3+"ean") (base_1+base_2+"d"+base_3+"e") (lenite base) (base_1+base_2+"d"+base_3+"e") (base_1+"da"+base_2+base_3+"n") (lenite base) (base_1+"da"+base_2+base_3+"na") Fem ;
_ => error "Can't apply paradigm mkN270"
} ;
mkN271 : Str -> LinN ;
mkN271 base =
case base of {
base_1+base_2@?+"a"+base_3@? => mkNoun (base_1+base_2+"a"+base_3) (base_1+"inn"+base_2+"a"+base_3) (base_1+base_2+"a"+base_3) (base_1+"inn"+base_2+"a"+base_3) base (base_1+"inn"+base_2+"a"+base_3) (palatalise base) (base_1+"inn"+base_2+"a"+base_3) (base_1+base_2+"i"+base_3) (lenite base) (base_1+base_2+"i"+base_3) (base_1+base_2+"a"+base_3) (lenite base) (base_1+base_2+"a"+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN271"
} ;
mkN272 : Str -> LinN ;
mkN272 base =
case base of {
base_1+base_2@(?+?+?+?)+"ea"+base_3@(?+?) => mkNoun (base_1+base_2+"ea"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+"h"+base_2+"ea"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+"h"+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3+"e") (base_1+"h"+base_2+"ea"+base_3) (base_1+base_2+"i"+base_3+"e") (base_1+base_2+"ea"+base_3) (base_1+"h"+base_2+"ea"+base_3) (base_1+"h"+base_2+"ea"+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN272"
} ;
mkN273 : Str -> LinN ;
mkN273 base =
case base of {
base_1+base_2@("e"|(?+?+?+?+?+?+?+?+?)) => mkNoun (base_1+base_2) (base_1+"t"+base_2+"an") (base_1+base_2) (palatalise base) (base_1+base_2) (base_1+"t"+base_2+"an") (base_1+"h"+base_2) (palatalise base) (base_1+base_2) (lenite base) (base_1+"h"+base_2) (base_1+base_2) (base_1+"h"+base_2) (base_1+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN273"
} ;
mkN274 : Str -> LinN ;
mkN274 base =
case base of {
base_1+"a"+base_2@("g"|(?+?)) => mkNoun (base_1+"a"+base_2) (base_1+"a"+base_2+"an") (base_1+"a"+base_2) (base_1+"a"+base_2+"an") (base_1+"i"+base_2) (base_1+"a"+base_2+"an") (base_1+"i"+base_2) (base_1+"a"+base_2+"an") (base_1+"i"+base_2+"e") (base_1+"a"+base_2) (base_1+"i"+base_2+"e") (base_1+"a"+base_2) (base_1+"a"+base_2) (base_1+"a"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN274"
} ;
mkN275 : Str -> LinN ;
mkN275 base =
case base of {
base_1+"u"+base_2@? => mkNoun (base_1+"u"+base_2) (base_1+"u"+base_2+"an") (base_1+"u"+base_2) (base_1+"u"+base_2+"an") base (base_1+"u"+base_2+"an") (palatalise base) (base_1+"u"+base_2+"an") (base_1+"òi"+base_2) (base_1+"òi"+base_2) (base_1+"òi"+base_2) (base_1+"u"+base_2) (lenite base) (base_1+"u"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN275"
} ;
mkN276 : Str -> LinN ;
mkN276 base =
case base of {
base_1+"i"+base_2@? => mkNoun (base_1+"i"+base_2) (base_1+"ea"+base_2+"an") (base_1+"i"+base_2) (base_1+"ea"+base_2+"an") base (base_1+"ea"+base_2+"an") (palatalise base) (base_1+"ea"+base_2+"an") (base_1+"ea"+base_2+"ach") (lenite base) (base_1+"ea"+base_2+"ach") (base_1+"i"+base_2) (lenite base) (base_1+"i"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN276"
} ;
mkN277 : Str -> LinN ;
mkN277 base = mk5N base base (base+"ean") (base+"eachan") (palatalise base) Masc ;
mkN278 : Str -> LinN ;
mkN278 base =
case base of {
base_1+"ui"+base_2@? => mkNoun (base_1+"ui"+base_2) (base_1+"a"+base_2+"annan") (base_1+"hui"+base_2) (base_1+"a"+base_2+"annan") (base_1+"ui"+base_2) (base_1+"a"+base_2+"annan") (base_1+"hui"+base_2) (base_1+"a"+base_2+"annan") (base_1+"a"+base_2+"a") (base_1+"ha"+base_2+"annan") (base_1+"a"+base_2+"a") (base_1+"a"+base_2+"annan") (base_1+"hui"+base_2) (base_1+"ha"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN278"
} ;
mkN279 : Str -> LinN ;
mkN279 base =
case base of {
base_1+base_2@(?+?+?)+base_3@?+"ir" => mkNoun (base_1+base_2+base_3+"ir") (base_1+base_2+"r"+base_3+"ichean") (base_1+"h"+base_2+base_3+"ir") (base_1+base_2+"r"+base_3+"ichean") (base_1+base_2+base_3+"ir") (base_1+base_2+"r"+base_3+"ichean") (base_1+"h"+base_2+base_3+"ir") (base_1+base_2+"r"+base_3+"ichean") (base_1+base_2+base_3+"r") (base_1+"h"+base_2+"r"+base_3+"ichean") (base_1+base_2+base_3+"r") (base_1+base_2+"r"+base_3+"ichean") (base_1+"h"+base_2+base_3+"ir") (base_1+"h"+base_2+"r"+base_3+"ichean") Fem ;
_ => error "Can't apply paradigm mkN279"
} ;
mkN280 : Str -> LinN ;
mkN280 base =
case base of {
base_1+"n"+base_2@(?+?+?+?+?+?) => mkNoun (base_1+"n"+base_2) (base_1+base_2+"ean") (base_1+"n"+base_2) (palatalise base) base (base_1+base_2+"ean") (lenite base) (palatalise base) (base_1+"n"+base_2) (lenite base) (lenite (palatalise base)) (base_1+"n"+base_2) (lenite (palatalise base)) (base_1+"n"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN280"
} ;
mkN281 : Str -> LinN ;
mkN281 base = mk5N base base (base+"e") (base+"ichean") (palatalise base) Masc ;
mkN282 : Str -> LinN ;
mkN282 base =
case base of {
"neach" => mk5N base base base "luchd" (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN282"
} ;
mkN283 : Str -> LinN ;
mkN283 base =
case base of {
base_1+"ea"+base_2@(?+?) => mkNoun base (base_1+"i"+base_2) (base_1+"ea"+base_2) (palatalise base) base (base_1+"i"+base_2) (lenite base) (palatalise base) (base_1+"èi"+base_2) (lenite base) (lenite (palatalise base)) (base_1+"ea"+base_2) (lenite (palatalise base)) (base_1+"ea"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN283"
} ;
mkN284 : Str -> LinN ;
mkN284 base = mk5N base base base (base+"thean") (palatalise base) Masc ;
mkN285 : Str -> LinN ;
mkN285 base =
case base of {
base_1+"ea"+base_2@? => mkNoun (base_1+"ea"+base_2) (base_1+"ea"+base_2+"an") (base_1+"ea"+base_2) (base_1+"ea"+base_2+"an") (base_1+"i"+base_2+"n") (base_1+"ea"+base_2+"an") (palatalise base) (base_1+"ea"+base_2+"an") (base_1+"i"+base_2+"n") (lenite base) (base_1+"i"+base_2+"n") (base_1+"ea"+base_2) (lenite base) (base_1+"ea"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN285"
} ;
mkN287 : Str -> LinN ;
mkN287 base =
case base of {
base_1+base_2@(?+?)+base_3@?+"id" => mkNoun (base_1+base_2+base_3+"id") (base_1+"i"+base_2+"de"+base_3+"n") (base_1+base_2+base_3+"id") (palatalise base) base (base_1+"i"+base_2+"de"+base_3+"n") (lenite base) (palatalise base) (base_1+base_2+base_3+"d") (lenite base) (lenite (palatalise base)) (base_1+base_2+base_3+"id") (lenite (palatalise base)) (base_1+base_2+base_3+"ida") Masc ;
_ => error "Can't apply paradigm mkN287"
} ;
mkN288 : Str -> LinN ;
mkN288 base =
case base of {
base_1+"ì" => mkNoun (base_1+"ì") (base_1+"ithean") (base_1+"ì") (palatalise base) base (base_1+"ithean") (lenite base) (palatalise base) (base_1+"ì") (lenite base) (lenite (palatalise base)) (base_1+"ì") (lenite (palatalise base)) (base_1+"ìa") Masc ;
_ => error "Can't apply paradigm mkN288"
} ;
mkN289 : Str -> LinN ;
mkN289 base =
case base of {
base_1+"ì" => mkNoun (base_1+"ì") (base_1+"itheachan") (base_1+"ì") (palatalise base) base (base_1+"itheachan") (lenite base) (palatalise base) (base_1+"ith") (lenite base) (lenite (palatalise base)) (base_1+"ì") (lenite (palatalise base)) (base_1+"ìa") Masc ;
_ => error "Can't apply paradigm mkN289"
} ;
mkN290 : Str -> LinN ;
mkN290 base =
case base of {
base_1 => mkNoun (base_1) (base_1+"annan") (base_1) (base_1+"annan") (base_1) (base_1+"annan") (base_1) (base_1+"annan") (base_1) (base_1+"annan") (base_1) (base_1+"annan") (base_1) (base_1+"annan") Fem ;
_ => error "Can't apply paradigm mkN290"
} ;
mkN292 : Str -> LinN ;
mkN292 base = mk5N base base (base+"a") (base+"a") (palatalise base) Masc ;
mkN293 : Str -> LinN ;
mkN293 base =
case base of {
base_1 => mkNoun (base_1) (base_1+"idhean") (base_1) (base_1+"idhean") base (base_1+"idhean") (palatalise base) (base_1+"idhean") (base_1) (lenite base) (base_1) (base_1) (lenite base) (base_1+"a") Fem ;
_ => error "Can't apply paradigm mkN293"
} ;
mkN294 : Str -> LinN ;
mkN294 base =
case base of {
base_1 => mkNoun (base_1) (base_1) (base_1) (base_1) (base_1) (base_1) (palatalise base) (base_1) (base_1) (lenite base) (base_1) (base_1) (lenite base) (base_1+"a") Fem ;
_ => error "Can't apply paradigm mkN294"
} ;
mkN295 : Str -> LinN ;
mkN295 base =
case base of {
base_1+base_2@("i"|"ai")+"r" => mkNoun (base_1+base_2+"r") (base_1+"r"+base_2+"chean") (base_1+base_2+"r") (base_1+"r"+base_2+"chean") base (base_1+"r"+base_2+"chean") (palatalise base) (base_1+"r"+base_2+"chean") (base_1+base_2+"re") (lenite base) (base_1+base_2+"re") (base_1+base_2+"r") (lenite base) (base_1+base_2+"ra") Fem ;
_ => error "Can't apply paradigm mkN295"
} ;
mkN296 : Str -> LinN ;
mkN296 base =
case base of {
base_1+"ea"+base_2@(?+?) => mkNoun (base_1+"ea"+base_2) (base_1+"ea"+base_2+"ean") (base_1+"ea"+base_2) (palatalise base) base (base_1+"ea"+base_2+"ean") (lenite base) (palatalise base) (base_1+"i"+base_2) (lenite base) (lenite (palatalise base)) (base_1+"ea"+base_2) (lenite (palatalise base)) (base_1+"ea"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN296"
} ;
mkN297 : Str -> LinN ;
mkN297 base =
case base of {
base_1+base_2@?+"ur" => mkNoun (base_1+base_2+"ur") (base_1+base_2+"uran") (base_1+base_2+"ur") (base_1+base_2+"uran") base (base_1+base_2+"uran") (palatalise base) (base_1+base_2+"uran") (base_1+"èir"+base_2) (lenite base) (base_1+"èir"+base_2) (base_1+base_2+"ur") (lenite base) (base_1+base_2+"ura") Fem ;
_ => error "Can't apply paradigm mkN297"
} ;
mkN298 : Str -> LinN ;
mkN298 base =
case base of {
base_1+base_2@?+"a"+base_3@? => mkNoun (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"tan") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"tan") base (base_1+base_2+"a"+base_3+"tan") (palatalise base) (base_1+base_2+"a"+base_3+"tan") (base_1+"é"+base_2+base_3) (lenite base) (base_1+"é"+base_2+base_3) (base_1+base_2+"a"+base_3) (lenite base) (base_1+base_2+"a"+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN298"
} ;
mkN299 : Str -> LinN ;
mkN299 base = mk5N base base (base+"a") (base+"nan") (palatalise base) Masc ;
mkN300 : Str -> LinN ;
mkN300 base =
case base of {
base_1+"iu"+base_2@(?+?)+"a"+base_3@? => mkNoun (base_1+"iu"+base_2+"a"+base_3) (base_1+"ea"+base_2+base_3+"aichean") (base_1+"hiu"+base_2+"a"+base_3) (base_1+"ea"+base_2+base_3+"aichean") (base_1+"iu"+base_2+"a"+base_3) (base_1+"ea"+base_2+base_3+"aichean") (base_1+"hiu"+base_2+"a"+base_3) (base_1+"ea"+base_2+base_3+"aichean") (base_1+"ea"+base_2+"a"+base_3) (base_1+"hea"+base_2+base_3+"aichean") (base_1+"ea"+base_2+"a"+base_3) (base_1+"ea"+base_2+base_3+"aichean") (base_1+"hiu"+base_2+"a"+base_3) (base_1+"hea"+base_2+base_3+"aichean") Fem ;
_ => error "Can't apply paradigm mkN300"
} ;
mkN301 : Str -> LinN ;
mkN301 base =
case base of {
base_1+"a" => mkNoun (base_1+"a") (base_1+"othan") (base_1+"a") (palatalise base) base (base_1+"othan") (lenite base) (palatalise base) (base_1+"o") (lenite base) (lenite (palatalise base)) (base_1+"a") (lenite (palatalise base)) (base_1+"aa") Masc ;
_ => error "Can't apply paradigm mkN301"
} ;
mkN302 : Str -> LinN ;
mkN302 base =
case base of {
base_1+"i"+base_2@? => mkNoun (base_1+"i"+base_2) (base_1+"i"+base_2) (base_1+"i"+base_2) (base_1+"i"+base_2) base (base_1+"i"+base_2) (palatalise base) (base_1+"i"+base_2) (base_1+base_2+"ach") (lenite base) (base_1+base_2+"ach") (base_1+"i"+base_2) (lenite base) (base_1+"i"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN302"
} ;
mkN303 : Str -> LinN ;
mkN303 base =
case base of {
base_1 => mkNoun (base_1) (base_1+"ean") (base_1) (base_1+"ean") (base_1) (base_1+"ean") (base_1) (base_1+"ean") (base_1+"e") (base_1+"ean") (base_1+"e") (base_1+"ean") (base_1) (base_1+"ean") Fem ;
_ => error "Can't apply paradigm mkN303"
} ;
mkN304 : Str -> LinN ;
mkN304 base =
case base of {
base_1+base_2@?+"ul" => mkNoun (base_1+base_2+"ul") (base_1+base_2+"ultan") (base_1+base_2+"ul") (base_1+base_2+"ultan") base (base_1+base_2+"ultan") (palatalise base) (base_1+base_2+"ultan") (base_1+"èil"+base_2) (lenite base) (base_1+"èil"+base_2) (base_1+base_2+"ul") (lenite base) (base_1+base_2+"ula") Fem ;
_ => error "Can't apply paradigm mkN304"
} ;
mkN305 : Str -> LinN ;
mkN305 base =
case base of {
base_1+"i"+base_2@? => mkNoun (base_1+"i"+base_2) (base_1+base_2+"ean") (base_1+"i"+base_2) (palatalise base) base (base_1+base_2+"ean") (lenite base) (palatalise base) (base_1+base_2+"e") (lenite base) (lenite (palatalise base)) (base_1+"i"+base_2) (lenite (palatalise base)) (base_1+"i"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN305"
} ;
mkN306 : Str -> LinN ;
mkN306 base = mk5N base base base (base+"rean") (palatalise base) Masc ;
mkN307 : Str -> LinN ;
mkN307 base =
case base of {
base_1+base_2@(?+?+?) => mkNoun (base_1+base_2) (base_1+base_2+"an") (base_1+base_2) (base_1+base_2+"an") (base_1+base_2) (base_1+base_2+"an") (base_1+"i"+base_2) (base_1+base_2+"an") (base_1+"i"+base_2+"e") (lenite base) (base_1+"i"+base_2+"e") (base_1+base_2) (base_1+base_2) (base_1+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN307"
} ;
mkN308 : Str -> LinN ;
mkN308 base = mk5N base base (base+"a") (base+"e") (palatalise base) Masc ;
mkN309 : Str -> LinN ;
mkN309 base =
case base of {
base_1+base_2@?+"ad" => mkNoun (base_1+base_2+"ad") (base_1+"d"+base_2+"an") (base_1+base_2+"ad") (base_1+"d"+base_2+"an") base (base_1+"d"+base_2+"an") (palatalise base) (base_1+"d"+base_2+"an") (base_1+"d"+base_2) (lenite base) (base_1+"d"+base_2) (base_1+base_2+"ad") (lenite base) (base_1+base_2+"ada") Fem ;
_ => error "Can't apply paradigm mkN309"
} ;
mkN310 : Str -> LinN ;
mkN310 base =
case base of {
base_1@?+base_2+base_3@("th"|?) => mkNoun (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+"h"+base_2+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+base_2+base_3+"an") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+base_3+"an") Masc ;
_ => error "Can't apply paradigm mkN310"
} ;
mkN311 : Str -> LinN ;
mkN311 base =
case base of {
base_1+base_2@? => mkNoun (base_1+base_2) (base_1+"inn"+base_2+"an") (base_1+base_2) (base_1+"inn"+base_2+"an") base (base_1+"inn"+base_2+"an") (palatalise base) (base_1+"inn"+base_2+"an") (base_1+base_2) (lenite base) (base_1+base_2) (base_1+base_2) (lenite base) (base_1+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN311"
} ;
mkN312 : Str -> LinN ;
mkN312 base = mk5N base base base (base+"innean") (palatalise base) Masc ;
mkN313 : Str -> LinN ;
mkN313 base =
case base of {
base_1+base_2@(?+?+?+?)+"i"+base_3@? => mkNoun (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+base_3) (base_1+"h"+base_2+"i"+base_3+"ean") (base_1+base_2+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+"i"+base_3+"ean") Masc ;
_ => error "Can't apply paradigm mkN313"
} ;
mkN314 : Str -> LinN ;
mkN314 base =
case base of {
base_1+base_2@(?+?+?+?+?+?)+"i"+base_3@? => mkNoun (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+base_3) (base_1+"h"+base_2+"i"+base_3+"ean") (base_1+base_2+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+"i"+base_3+"ean") Fem ;
_ => error "Can't apply paradigm mkN314"
} ;
mkN315 : Str -> LinN ;
mkN315 base =
case base of {
base_1+"ia"+base_2@? => mkNoun (base_1+"ia"+base_2) (base_1+"ea"+base_2+"an") (base_1+"ia"+base_2) (base_1+"ea"+base_2+"an") (base_1+"ithi"+base_2+"n") (base_1+"ea"+base_2+"an") (palatalise base) (base_1+"ea"+base_2+"an") (base_1+"ei"+base_2+"e") (lenite base) (base_1+"ei"+base_2+"e") (base_1+"ia"+base_2) (lenite base) (base_1+"ia"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN315"
} ;
mkN316 : Str -> LinN ;
mkN316 base =
case base of {
base_1+"ia"+base_2@? => mkNoun (base_1+"ia"+base_2) (base_1+"ia"+base_2+"tan") (base_1+"ia"+base_2) (palatalise base) base (base_1+"ia"+base_2+"tan") (lenite base) (palatalise base) (base_1+"ì"+base_2+"e") (lenite base) (lenite (palatalise base)) (base_1+"ia"+base_2) (lenite (palatalise base)) (base_1+"ia"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN316"
} ;
mkN317 : Str -> LinN ;
mkN317 base =
case base of {
base_1+base_2@? => mkNoun (base_1+base_2) (base_1+base_2+"an") (base_1+base_2) (palatalise base) base (base_1+base_2+"an") (lenite base) (palatalise base) (base_1+"i"+base_2) (lenite base) (base_1+base_2) (palatalise base) (base_1+base_2+"a") (lenite base+"a") Masc ;
_ => error "Can't apply paradigm mkN317"
} ;
mkN318 : Str -> LinN ;
mkN318 base =
case base of {
base_1+base_2@?+"ar" => mkNoun (base_1+base_2+"ar") (base_1+base_2+"aran") (base_1+base_2+"ar") (palatalise base) base (base_1+base_2+"aran") (lenite base) (palatalise base) (base_1+"ir"+base_2) (lenite base) (base_1+base_2+"ar") (palatalise base) (base_1+base_2+"ara") (lenite base+"a") Masc ;
_ => error "Can't apply paradigm mkN318"
} ;
mkN319 : Str -> LinN ;
mkN319 base =
case base of {
base_1+"i"+base_2@(?+?)+base_3@?+"ann" => mkNoun (base_1+"i"+base_2+base_3+"ann") (nonExist) (base_1+"i"+base_2+base_3+"ann") (nonExist) base (nonExist) (palatalise base) nonExist (base_1+"ì"+base_2+"n"+base_3) (lenite base) (base_1+"ì"+base_2+"n"+base_3) (base_1+"i"+base_2+base_3+"ann") (lenite base) (base_1+"i"+base_2+base_3+"anna") Fem ;
_ => error "Can't apply paradigm mkN319"
} ;
mkN320 : Str -> LinN ;
mkN320 base =
case base of {
base_1+"u"+base_2@(?+?)+base_3@?+"l" => mkNoun (base_1+"u"+base_2+base_3+"l") (base_1+"ù"+base_2+"l"+base_3+"ichean") (base_1+"u"+base_2+base_3+"l") (palatalise base) base (base_1+"ù"+base_2+"l"+base_3+"ichean") (lenite base) (palatalise base) (base_1+"u"+base_2+base_3+"il") (lenite base) (lenite (palatalise base)) (base_1+"u"+base_2+base_3+"l") (lenite (palatalise base)) (base_1+"u"+base_2+base_3+"la") Masc ;
_ => error "Can't apply paradigm mkN320"
} ;
mkN321 : Str -> LinN ;
mkN321 base =
case base of {
base_1+base_2@(?+?)+base_3@? => mkNoun (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+"h"+base_2+base_3) (base_1+base_2+"i"+base_3+"e") (base_1+base_2+base_3) (base_1+"h"+base_2+base_3) (base_1+"h"+base_2+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN321"
} ;
mkN322 : Str -> LinN ;
mkN322 base =
case base of {
base_1+base_2@?+"a"+base_3@(?+?) => mkNoun (base_1+base_2+"a"+base_3) (base_1+"è"+base_2+base_3+"tean") (base_1+base_2+"a"+base_3) (palatalise base) base (base_1+"è"+base_2+base_3+"tean") (lenite base) (palatalise base) (base_1+"è"+base_2+base_3) (lenite base) (lenite (palatalise base)) (base_1+base_2+"a"+base_3) (lenite (palatalise base)) (base_1+base_2+"a"+base_3+"a") Masc ;
_ => error "Can't apply paradigm mkN322"
} ;
mkN323 : Str -> LinN ;
mkN323 base =
case base of {
base_1+base_2@?+"a"+base_3@?+"aid" => mkNoun (base_1+base_2+"a"+base_3+"aid") (base_1+"è"+base_2+base_3+"tean") (base_1+base_2+"a"+base_3+"aid") (base_1+"è"+base_2+base_3+"tean") base (base_1+"è"+base_2+base_3+"tean") (palatalise base) (base_1+"è"+base_2+base_3+"tean") (base_1+"è"+base_2+base_3+"te") (lenite base) (base_1+"è"+base_2+base_3+"te") (base_1+base_2+"a"+base_3+"aid") (lenite base) (base_1+base_2+"a"+base_3+"aida") Fem ;
_ => error "Can't apply paradigm mkN323"
} ;
mkN324 : Str -> LinN ;
mkN324 base =
case base of {
base_1+base_2@(?+?+?+?) => mkNoun (base_1+base_2) (base_1+base_2+"an") (base_1+base_2) (base_1+base_2+"an") (base_1+base_2) (base_1+base_2+"an") (base_1+base_2) (base_1+base_2+"an") (base_1+base_2) (base_1+"h"+base_2+"an") (base_1+base_2) (base_1+base_2+"an") (base_1+"h"+base_2) (base_1+"h"+base_2+"an") Fem ;
_ => error "Can't apply paradigm mkN324"
} ;
mkN325 : Str -> LinN ;
mkN325 base =
case base of {
base_1+"ua"+base_2@(?+?) => mkNoun (base_1+"ua"+base_2) (base_1+"òi"+base_2) (base_1+"ua"+base_2) (palatalise base) base (base_1+"òi"+base_2) (lenite base) (palatalise base) (base_1+"uai"+base_2) (lenite base) (lenite (palatalise base)) (base_1+"ua"+base_2) (lenite (palatalise base)) (base_1+"ua"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN325"
} ;
mkN326 : Str -> LinN ;
mkN326 base =
case base of {
base_1+"d"+base_2@(?+?)+"nn" => mkNoun (base_1+"d"+base_2+"nn") (base_1+base_2+"dhean") (base_1+"d"+base_2+"nn") (palatalise base) base (base_1+base_2+"dhean") nonExist (palatalise base) (base_1+base_2+"dh") (lenite base) (lenite (palatalise base)) (base_1+"d"+base_2+"nn") (lenite (palatalise base)) (base_1+"d"+base_2+"nna") Masc ;
_ => error "Can't apply paradigm mkN326"
} ;
mkN327 : Str -> LinN ;
mkN327 base =
case base of {
base_1+"i"+base_2@?+"e"+base_3@(?+?+?+?)+base_4@(?+?) => mkNoun (base_1+"i"+base_2+"e"+base_3+base_4) (base_1+"a"+base_2+base_3+"i"+base_4+"ean") (base_1+"i"+base_2+"e"+base_3+base_4) (palatalise base) base (base_1+"a"+base_2+base_3+"i"+base_4+"ean") nonExist (palatalise base) (base_1+"a"+base_2+base_3+"i"+base_4) (lenite base) (lenite (palatalise base)) (base_1+"i"+base_2+"e"+base_3+base_4) (lenite (palatalise base)) (base_1+"i"+base_2+"e"+base_3+base_4+"a") Masc ;
_ => error "Can't apply paradigm mkN327"
} ;
mkN328 : Str -> LinN ;
mkN328 base =
case base of {
base_1+base_2@(?+?+?+?+?+?)+"a"+base_3@? => mkNoun (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+"h"+base_2+"a"+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+"a"+base_3+"an") Masc ;
_ => error "Can't apply paradigm mkN328"
} ;
mkN329 : Str -> LinN ;
mkN329 base =
case base of {
base_1+"a"+base_2@(?+?) => mkNoun (base_1+"a"+base_2) (base_1+"a"+base_2+"an") (base_1+"a"+base_2) (base_1+"a"+base_2+"an") (base_1+"a"+base_2) (base_1+"a"+base_2+"an") (base_1+"i"+base_2) (base_1+"a"+base_2+"an") (base_1+"i"+base_2+"e") (lenite base) (base_1+"i"+base_2+"e") (base_1+"a"+base_2) (base_1+"a"+base_2) (base_1+"a"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN329"
} ;
mkN330 : Str -> LinN ;
mkN330 base =
case base of {
base_1+base_2@?+"a"+base_3@? => mkNoun (base_1+base_2+"a"+base_3) (base_1+"è"+base_2+base_3+"ean") (base_1+base_2+"a"+base_3) (base_1+"è"+base_2+base_3+"ean") base (base_1+"è"+base_2+base_3+"ean") (palatalise base) (base_1+"è"+base_2+base_3+"ean") (base_1+"è"+base_2+base_3+"e") (lenite base) (base_1+"è"+base_2+base_3+"e") (base_1+base_2+"a"+base_3) (lenite base) (base_1+base_2+"a"+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN330"
} ;
mkN331 : Str -> LinN ;
mkN331 base =
case base of {
base_1+base_2@(?+?)+base_3@? => mkNoun (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+"i"+base_3) (base_1+base_2+base_3+"an") (base_1+base_2+"i"+base_3+"e") (base_1+"h"+base_2+base_3) (base_1+base_2+"i"+base_3+"e") (base_1+base_2+base_3) (base_1+"h"+base_2+base_3) (base_1+"h"+base_2+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN331"
} ;
mkN332 : Str -> LinN ;
mkN332 base =
case base of {
base_1+"i"+base_2@? => mkNoun (base_1+"i"+base_2) (base_1+base_2+"ichean") (base_1+"i"+base_2) (base_1+base_2+"ichean") (base_1+"i"+base_2) (base_1+base_2+"ichean") (base_1+"i"+base_2) (base_1+base_2+"ichean") (base_1+base_2+"each") (base_1+base_2+"ichean") (base_1+base_2+"each") (base_1+base_2+"ichean") (base_1+"i"+base_2) (base_1+base_2+"ichean") Fem ;
_ => error "Can't apply paradigm mkN332"
} ;
mkN333 : Str -> LinN ;
mkN333 base = mk5N base base (base+"each") (base+"ean") (palatalise base) Masc ;
mkN334 : Str -> LinN ;
mkN334 base =
case base of {
base_1+"d"+base_2@? => mkNoun (base_1+"d"+base_2) (base_1+"g"+base_2+"an") (base_1+"d"+base_2) (base_1+"g"+base_2+"an") base (base_1+"g"+base_2+"an") (palatalise base) (base_1+"g"+base_2+"an") (base_1+"ig"+base_2) (lenite base) (base_1+"ig"+base_2) (base_1+"d"+base_2) (lenite base) (base_1+"d"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN334"
} ;
mkN337 : Str -> LinN ;
mkN337 base = mk5N base base (base+"ach") (base+"an") (palatalise base) Masc ;
mkN338 : Str -> LinN ;
mkN338 base =
case base of {
base_1+base_2@(?+?+?) => mkNoun (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2+"e") (base_1+"h"+base_2+"ean") (base_1+base_2+"e") (base_1+base_2+"ean") (base_1+"h"+base_2) (base_1+"h"+base_2+"ean") Fem ;
_ => error "Can't apply paradigm mkN338"
} ;
mkN339 : Str -> LinN ;
mkN339 base =
case base of {
base_1+"o"+base_2@? => mkNoun (base_1+"o"+base_2) (base_1+base_2) (base_1+"o"+base_2) (palatalise base) base (base_1+base_2) (lenite base) (palatalise base) (base_1+base_2) (lenite base) (lenite (palatalise base)) (base_1+"o"+base_2) (lenite (palatalise base)) (base_1+"o"+base_2+"a") Masc ;
_ => error "Can't apply paradigm mkN339"
} ;
mkN340 : Str -> LinN ;
mkN340 base =
case base of {
base_1+base_2@(?+?+?+?+?+?+?) => mkNoun (base_1+base_2) (base_1+base_2+"an") (base_1+base_2) (base_1+base_2+"an") (base_1+base_2) (base_1+base_2+"an") (base_1+base_2) (base_1+base_2+"an") (base_1+base_2) (base_1+"h"+base_2+"an") (base_1+base_2) (base_1+base_2+"an") (base_1+"h"+base_2) (base_1+"h"+base_2+"an") Masc ;
_ => error "Can't apply paradigm mkN340"
} ;
mkN341 : Str -> LinN ;
mkN341 base =
case base of {
base_1+base_2@?+"i"+base_3@? => mkNoun (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+base_3+"a") (base_1+base_2+base_3) (base_1+base_2+base_3+"a") (base_1+base_2+"i"+base_3+"ean") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN341"
} ;
mkN342 : Str -> LinN ;
mkN342 base =
case base of {
base_1+"ù"+base_2@(?+?) => mkNoun (base_1+"ù"+base_2) (base_1+"u"+base_2+"eannan") (base_1+"ù"+base_2) (base_1+"u"+base_2+"eannan") base (base_1+"u"+base_2+"eannan") (palatalise base) (base_1+"u"+base_2+"eannan") (base_1+"ù"+base_2+"e") (lenite base) (base_1+"ù"+base_2+"e") (base_1+"ù"+base_2) (lenite base) (base_1+"ù"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN342"
} ;
mkN343 : Str -> LinN ;
mkN343 base =
case base of {
base_1+base_2@(?+?+?+?+?+?) => mkNoun (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2+"e") (base_1+"h"+base_2+"ean") (base_1+base_2+"e") (base_1+base_2+"ean") (base_1+"h"+base_2) (base_1+"h"+base_2+"ean") Fem ;
_ => error "Can't apply paradigm mkN343"
} ;
mkN344 : Str -> LinN ;
mkN344 base =
case base of {
base_1@?+base_2 => mkNoun (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2) (base_1+base_2+"ean") (base_1+base_2+"e") (base_1+"h"+base_2+"ean") (base_1+base_2+"e") (base_1+base_2+"ean") (base_1+"h"+base_2) (base_1+"h"+base_2+"ean") Masc ;
_ => error "Can't apply paradigm mkN344"
} ;
mkN345 : Str -> LinN ;
mkN345 base =
case base of {
base_1+base_2@(?+?)+"a"+base_3@(?+?) => mkNoun (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+"a"+base_3) (base_1+base_2+"a"+base_3+"an") (base_1+base_2+base_3+"ainn") (base_1+"h"+base_2+"a"+base_3+"an") (base_1+base_2+base_3+"ainn") (base_1+base_2+"a"+base_3+"an") (base_1+"h"+base_2+"a"+base_3) (base_1+"h"+base_2+"a"+base_3+"an") Masc ;
_ => error "Can't apply paradigm mkN345"
} ;
mkN346 : Str -> LinN ;
mkN346 base = mk5N base base (base+"chan") (base+"ichean") (palatalise base) Masc ;
mkN347 : Str -> LinN ;
mkN347 base =
case base of {
base_1+base_2@(?+?+?+?)+base_3@?+"ir" => mkNoun base (base_1+base_2+"r"+base_3+"ichean") (base_1+base_2+base_3+"ir") (base_1+base_2+"r"+base_3+"ichean") (base_1+base_2+base_3+"ir") (base_1+base_2+"r"+base_3+"ichean") (base_1+base_2+base_3+"ir") (base_1+base_2+"r"+base_3+"ichean") (base_1+base_2+"r"+base_3+"ch") (base_1+"h"+base_2+"r"+base_3+"ichean") (base_1+base_2+"r"+base_3+"ch") (base_1+base_2+"r"+base_3+"ichean") (base_1+"h"+base_2+base_3+"ir") (base_1+"h"+base_2+"r"+base_3+"ichean") Fem ;
_ => error "Can't apply paradigm mkN347"
} ;
mkN348 : Str -> LinN ;
mkN348 base =
case base of {
base_1+base_2@(?+?+?+?+?) => mkNoun base (base+"n") base (base+"nnan") base (base+"nnan") base (base+"nnan") base (base_1+"h"+base_2+"nnan") base (base+"nnan") (base_1+"h"+base_2) (base_1+"h"+base_2+"nnan") Fem ;
_ => error "Can't apply paradigm mkN348"
} ;
mkN349 : Str -> LinN ;
mkN349 base =
case base of {
base_1+"à"+base_2@(?+?) => mkNoun base (base+"an") base (base+"an") base (base+"an") (palatalise base) (base+"an") (base_1+"a"+base_2+"a") (lenite base) (base_1+"a"+base_2+"a") base (lenite base) (base+"a") Fem ;
_ => error "Can't apply paradigm mkN349"
} ;
mkN350 : Str -> LinN ;
mkN350 base =
case base of {
"tighearna" => mkNoun base (base+"n") base (base+"n") base (base+"n") base (base+"n") base "thighearnan" base (base+"n") (lenite base) (lenite base+"n") Masc ;
_ => error "Can't apply paradigm mkN350"
} ;
mkN351 : Str -> LinN ;
mkN351 base = mk5N base base base (base+"en") (palatalise base) Masc ;
mkN352 : Str -> LinN ;
mkN352 base =
case base of {
base_1+"ar" => mk5N base base (base_1+"air") (base_1+"rachan") (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN352"
} ;
mkN353 : Str -> LinN ;
mkN353 base =
case base of {
base_1+"o"+base_2@(?+?)+base_3@?+"s" => mkNoun (base_1+"o"+base_2+base_3+"s") (base_1+"òi"+base_2+"se"+base_3+"n") (base_1+"o"+base_2+base_3+"s") (palatalise base) base (base_1+"òi"+base_2+"se"+base_3+"n") (lenite base) (palatalise base) (base_1+"o"+base_2+base_3+"is") (lenite base) (lenite (palatalise base)) (base_1+"o"+base_2+base_3+"s") (lenite (palatalise base)) (base_1+"o"+base_2+base_3+"sa") Masc ;
_ => error "Can't apply paradigm mkN353"
} ;
mkN354 : Str -> LinN ;
mkN354 base =
case base of {
base_1+"eu"+base_2@(?+?) => mkNoun (base_1+"eu"+base_2) (base_1+"eu"+base_2+"an") (base_1+"eu"+base_2) (base_1+"eu"+base_2+"an") base (base_1+"eu"+base_2+"an") (palatalise base) (base_1+"eu"+base_2+"an") (base_1+"èi"+base_2) (lenite base) (base_1+"èi"+base_2) (base_1+"eu"+base_2) (lenite base) (base_1+"eu"+base_2+"a") Fem ;
_ => error "Can't apply paradigm mkN354"
} ;
mkN356 : Str -> LinN ;
mkN356 base =
case base of {
base_1+base_2@(?+?)+"i"+base_3@(?+?) => mkNoun (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3) (base_1+base_2+"i"+base_3+"ean") (base_1+base_2+"i"+base_3+"e") (base_1+"h"+base_2+"i"+base_3+"ean") (base_1+base_2+base_3+"ad") (base_1+base_2+"i"+base_3+"ean") (base_1+"h"+base_2+"i"+base_3) (base_1+"h"+base_2+"i"+base_3+"ean") Fem ;
_ => error "Can't apply paradigm mkN356"
} ;
mkN357 : Str -> LinN ;
mkN357 base =
case base of {
base_1@?+base_2+base_3@("g"|"gh") => mkNoun base (base+"an") base (base+"an") (base_1+base_2+"i"+base_3) (base+"an") (base_1+base_2+"i"+base_3) (base+"an") (base_1+base_2+"i"+base_3+"e") (base_1+"h"+base_2+base_3) (base_1+base_2+"i"+base_3+"e") base (base_1+"h"+base_2+base_3) (base_1+"h"+base_2+base_3+"a") Fem ;
_ => error "Can't apply paradigm mkN357"
} ;
mkN358 : Str -> LinN ;
mkN358 base =
case base of {
base_1+"i"+base_2@(?+?) => mkNoun base (base_1+base_2+"an") base (base_1+base_2+"an") base (base_1+base_2+"an") (palatalise base) (base_1+base_2+"an") (base_1+base_2+"a") (lenite base) (base_1+base_2+"a") base (lenite base) (base+"a") Fem ;
_ => error "Can't apply paradigm mkN358"
} ;
mkN359 : Str -> LinN ;
mkN359 base =
case base of {
base_1+"òi"+base_2@? => mkNoun base (base+"an") base (base+"an") base (base+"an") (palatalise base) (base+"an") (base_1+"o"+base_2+"a") (lenite base) (base_1+"o"+base_2+"a") base (lenite base) (base+"a") Fem ;
_ => error "Can't apply paradigm mkN359"
} ;
mkN360 : Str -> LinN ;
mkN360 base =
case base of {
base_1+base_2@(?+?) => mkNoun base (base_1+"i"+base_2+"ean") base (base_1+"i"+base_2+"ean") (base_1+"i"+base_2) (base_1+"i"+base_2+"ean") (base_1+"i"+base_2) (base_1+"i"+base_2+"ean") (base_1+"i"+base_2+"e") (lenite base) (base_1+"i"+base_2+"e") base base (base+"a") Masc ;
_ => error "Can't apply paradigm mkN360"
} ;
mkN361 : Str -> LinN ;
mkN361 base =
case base of {
"u"+base_1+base_2@?+"l" => mkNoun base ("ù"+base_1+"l"+base_2+"n") base (palatalise base) base ("ù"+base_1+"l"+base_2+"n") (lenite base) (palatalise base) ("u"+base_1+base_2+"il") (lenite base) (lenite (palatalise base)) base (lenite (palatalise base)) (base+"a") Masc ;
_ => error "Can't apply paradigm mkN361"
} ;
mkN362 : Str -> LinN ;
mkN362 base = mk5N base base (palatalise base) (base+"nan") (palatalise base) Masc ;
mkN363 : Str -> LinN ;
mkN363 base = mkNoun base (base+"achan") base (base+"achan") base (base+"achan") base (base+"achan") base (base+"achan") base (base+"achan") base (base+"achan") Masc ;
mkN364 : Str -> LinN ;
mkN364 base =
case base of {
"à"+base_1 => mk5N base base ("a"+base_1+"a") ("a"+base_1+"annan") (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN364"
} ;
mkN365 : Str -> LinN ;
mkN365 base = mkNoun base (base+"an") base (base+"an") (base+"a") (base+"an") (base+"a") (base+"an") (base+"a") (base+"an") (base+"a") (base+"an") base (base+"an") Fem ;
mkN367 : Str -> LinN ;
mkN367 base =
case base of {
"ò"+base_1 => mk5N base base ("ùi"+base_1) ("ùi"+base_1) (palatalise base) Masc ;
_ => error "Can't apply paradigm mkN367"
} ;
mkV001 : Str -> V ;
mkV001 base =
case base of {
"abai"+base_1 => lin V
{ s = "abai"+base_1 ;
conditional = table {
Sg => "thei"+base_1+"inn" ;
Pl => "thei"+base_1+"eadh"
} ;
imperative = table {
P1 => table {
Sg => "ab"+base_1+"am" ;
Pl => "ab"+base_1+"amaid"
} ;
P2 => table {
Sg => "abai"+base_1 ;
Pl => "ab"+base_1+"aibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => "ab"+base_1+"adh"
}
} ;
future = table {
Indep => "thei"+base_1 ;
Dep => "abai"+base_1
} ;
past = table {
Indep => "thui"+base_1+"t" ;
Dep => "tui"+base_1+"t"
} ;
noun = base_1+"àdh" ;
participle = base_1+"àite"
};
_ => error "Can't apply paradigm mkV001"
} ;
mkV002 : Str -> V ;
mkV002 base =
case base of {
base_1+"i"+base_2@("c"|(?+?)) => lin V
{ s = base_1+"i"+base_2 ;
conditional = table {
Sg => "dh'"+base_1+"i"+base_2+"inn" ;
Pl => "dh'"+base_1+"i"+base_2+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+"i"+base_2+"eam" ;
Pl => base_1+"i"+base_2+"eamaid"
} ;
P2 => table {
Sg => base_1+"i"+base_2 ;
Pl => base_1+"i"+base_2+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"i"+base_2+"eadh"
}
} ;
future = table {
Indep => base_1+"i"+base_2+"idh" ;
Dep => base_1+"i"+base_2
} ;
past = table {
Indep => "dh'"+base_1+"i"+base_2 ;
Dep => "dh'"+base_1+"i"+base_2
} ;
noun = base_1+base_2+"adh" ;
participle = base_1+"i"+base_2+"te"
};
_ => error "Can't apply paradigm mkV002"
} ;
mkV003 : Str -> V ;
mkV003 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => "dh'"+base_1+"ainn" ;
Pl => "dh'"+base_1+"amaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+"am" ;
Pl => base_1+"amaid"
} ;
P2 => table {
Sg => base_1 ;
Pl => base_1+"aibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"adh"
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => base_1
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => "dh'"+base_1
} ;
noun = base_1+"adh" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV003"
} ;
mkV004 : Str -> V ;
mkV004 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => nonExist
} ;
noun = base_1+"adh" ;
participle = nonExist
};
_ => error "Can't apply paradigm mkV004"
} ;
mkV005 : Str -> V ;
mkV005 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => nonExist
} ;
noun = base_1+"t" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV005"
} ;
mkV006 : Str -> V ;
mkV006 base =
case base of {
base_1+"i"+base_2@(?+?) => lin V
{ s = base_1+"i"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"i"+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"i"+base_2 ;
Dep => nonExist
} ;
noun = base_1+"ea"+base_2+"adh" ;
participle = base_1+"i"+base_2+"te"
};
_ => error "Can't apply paradigm mkV006"
} ;
mkV007 : Str -> V ;
mkV007 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => nonExist
} ;
noun = base_1+"mhainn" ;
participle = base_1+"ta"
};
_ => error "Can't apply paradigm mkV007"
} ;
mkV008 : Str -> V ;
mkV008 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1 ;
Dep => nonExist
} ;
noun = base_1 ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV008"
} ;
mkV009 : Str -> V ;
mkV009 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => nonExist
} ;
noun = base_1 ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV009"
} ;
mkV010 : Str -> V ;
mkV010 base =
case base of {
base_1+"i"+base_2@("m"|(?+?)) => lin V
{ s = base_1+"i"+base_2 ;
conditional = table {
Sg => "dh'"+base_1+"i"+base_2+"inn" ;
Pl => "dh'"+base_1+"i"+base_2+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+"i"+base_2+"eam" ;
Pl => base_1+"i"+base_2+"eamaid"
} ;
P2 => table {
Sg => base_1+"i"+base_2 ;
Pl => base_1+"i"+base_2+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"i"+base_2+"eadh"
}
} ;
future = table {
Indep => base_1+"i"+base_2+"idh" ;
Dep => base_1+"i"+base_2
} ;
past = table {
Indep => "dh'"+base_1+"i"+base_2 ;
Dep => "dh'"+base_1+"i"+base_2
} ;
noun = base_1+base_2 ;
participle = base_1+"i"+base_2+"te"
};
_ => error "Can't apply paradigm mkV010"
} ;
mkV011 : Str -> V ;
mkV011 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => nonExist
} ;
noun = base_1 ;
participle = base_1+"hte"
};
_ => error "Can't apply paradigm mkV011"
} ;
mkV012 : Str -> V ;
mkV012 base =
case base of {
base_1+base_2@?+"nn" => lin V
{ s = base_1+base_2+"nn" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"n"+base_2+"dh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+base_2+"nn" ;
Dep => nonExist
} ;
noun = base_1+base_2+"nn" ;
participle = base_1+base_2+"nnte"
};
_ => error "Can't apply paradigm mkV012"
} ;
mkV013 : Str -> V ;
mkV013 base =
case base of {
base_1+base_2@?+"inn" => lin V
{ s = base_1+base_2+"inn" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"n"+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+base_2+"inn" ;
Dep => nonExist
} ;
noun = base_1+"n"+base_2+"dh" ;
participle = base_1+base_2+"innte"
};
_ => error "Can't apply paradigm mkV013"
} ;
mkV014 : Str -> V ;
mkV014 base =
case base of {
base_1+"i"+base_2@(?+?) => lin V
{ s = base_1+"i"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"i"+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"i"+base_2 ;
Dep => nonExist
} ;
noun = base_1+"ea"+base_2+"d" ;
participle = base_1+"i"+base_2+"te"
};
_ => error "Can't apply paradigm mkV014"
} ;
mkV015 : Str -> V ;
mkV015 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => nonExist
} ;
noun = base_1+"adh" ;
participle = base_1+"ta"
};
_ => error "Can't apply paradigm mkV015"
} ;
mkV016 : Str -> V ;
mkV016 base =
case base of {
base_1+"dhèa"+base_2@? => lin V
{ s = base_1+"dhèa"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"ì" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"ri"+base_2+"n" ;
Dep => nonExist
} ;
noun = base_1+"dhèa"+base_2+"amh" ;
participle = base_1+"dhèa"+base_2+"ta"
};
_ => error "Can't apply paradigm mkV016"
} ;
mkV017 : Str -> V ;
mkV017 base =
case base of {
base_1+"a"+base_2@(?+?)+"i"+base_3@(?+?) => lin V
{ s = base_1+"a"+base_2+"i"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"a"+base_2+"i"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"a"+base_2+"i"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"adh" ;
participle = base_1+"a"+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV017"
} ;
mkV018 : Str -> V ;
mkV018 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => nonExist
} ;
noun = base_1+"ail" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV018"
} ;
mkV019 : Str -> V ;
mkV019 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => nonExist
} ;
noun = base_1+"tinn" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV019"
} ;
mkV020 : Str -> V ;
mkV020 base =
case base of {
base_1+"i"+base_2@? => lin V
{ s = base_1+"i"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"i"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"e" ;
participle = base_1+"i"+base_2+"te"
};
_ => error "Can't apply paradigm mkV020"
} ;
mkV021 : Str -> V ;
mkV021 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => nonExist
} ;
noun = base_1 ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV021"
} ;
mkV022 : Str -> V ;
mkV022 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => nonExist
} ;
noun = base_1+"tainn" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV022"
} ;
mkV023 : Str -> V ;
mkV023 base =
case base of {
base_1+base_2@(?+?)+"r" => lin V
{ s = base_1+base_2+"r" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"r"+base_2+"dh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+base_2+"r" ;
Dep => nonExist
} ;
noun = base_1+base_2+"rt" ;
participle = base_1+base_2+"rte"
};
_ => error "Can't apply paradigm mkV023"
} ;
mkV024 : Str -> V ;
mkV024 base =
case base of {
base_1+base_2@? => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+base_2 ;
Dep => nonExist
} ;
noun = base_1+"ad"+base_2 ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV024"
} ;
mkV025 : Str -> V ;
mkV025 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => nonExist
} ;
noun = base_1+"eam" ;
participle = base_1+"e"
};
_ => error "Can't apply paradigm mkV025"
} ;
mkV026 : Str -> V ;
mkV026 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => base_1+"h"+base_2+"ainn" ;
Pl => base_1+"h"+base_2+"amaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"am" ;
Pl => base_1+base_2+"amaid"
} ;
P2 => table {
Sg => base_1+base_2 ;
Pl => base_1+base_2+"aibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"adh"
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => base_1+"h"+base_2
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => base_1+"h"+base_2
} ;
noun = base_1+base_2+"adh" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV026"
} ;
mkV027 : Str -> V ;
mkV027 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => base_1+"h"+base_2+"inn" ;
Pl => base_1+"h"+base_2+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"eam" ;
Pl => base_1+base_2+"eamaid"
} ;
P2 => table {
Sg => base_1+base_2 ;
Pl => base_1+base_2+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"eadh"
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => base_1+"h"+base_2
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => base_1+"h"+base_2
} ;
noun = base_1+base_2+"t" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV027"
} ;
mkV028 : Str -> V ;
mkV028 base =
case base of {
base_1+base_2@(?+?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"eadh" ;
participle = base_1+base_2+"e"
};
_ => error "Can't apply paradigm mkV028"
} ;
mkV029 : Str -> V ;
mkV029 base =
case base of {
base_1@?+base_2+"i"+base_3@(?+?) => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"d" ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV029"
} ;
mkV030 : Str -> V ;
mkV030 base =
case base of {
base_1+base_2@(?+?+?+?+?)+"ic"+base_3@? => lin V
{ s = base_1+base_2+"ic"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"ic"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"ic"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+"d"+base_3 ;
participle = base_1+base_2+"ic"+base_3+"te"
};
_ => error "Can't apply paradigm mkV030"
} ;
mkV031 : Str -> V ;
mkV031 base =
case base of {
"bei"+base_1 => lin V
{ s = "bei"+base_1 ;
conditional = table {
Sg => "bhei"+base_1+"inn" ;
Pl => "bhei"+base_1+"eadh"
} ;
imperative = table {
P1 => table {
Sg => "bei"+base_1+"eam" ;
Pl => "bei"+base_1+"eamaid"
} ;
P2 => table {
Sg => "bei"+base_1 ;
Pl => "bei"+base_1+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => "bei"+base_1+"eadh"
}
} ;
future = table {
Indep => "bei"+base_1+"idh" ;
Dep => "bhei"+base_1
} ;
past = table {
Indep => base_1+"ug" ;
Dep => base_1+"ug"
} ;
noun = "b"+base_1+"eith" ;
participle = "bei"+base_1+"te"
};
_ => error "Can't apply paradigm mkV031"
} ;
mkV032 : Str -> V ;
mkV032 base =
case base of {
base_1@?+base_2+"i"+base_3@("l"|"g"|(?+?)) => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => base_1+"h"+base_2+"i"+base_3+"inn" ;
Pl => base_1+"h"+base_2+"i"+base_3+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"i"+base_3+"eam" ;
Pl => base_1+base_2+"i"+base_3+"eamaid"
} ;
P2 => table {
Sg => base_1+base_2+"i"+base_3 ;
Pl => base_1+base_2+"i"+base_3+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"i"+base_3+"eadh"
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => base_1+"h"+base_2+"i"+base_3
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3 ;
Dep => base_1+"h"+base_2+"i"+base_3
} ;
noun = base_1+base_2+base_3+"adh" ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV032"
} ;
mkV033 : Str -> V ;
mkV033 base =
case base of {
base_1+base_2@?+"à"+base_3@(?+?) => lin V
{ s = base_1+base_2+"à"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"a"+base_3+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"à"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+"a"+base_3+"adh" ;
participle = base_1+base_2+"à"+base_3+"te"
};
_ => error "Can't apply paradigm mkV033"
} ;
mkV034 : Str -> V ;
mkV034 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => base_1+"h"+base_2+"inn" ;
Pl => base_1+"h"+base_2+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"eam" ;
Pl => base_1+base_2+"eamaid"
} ;
P2 => table {
Sg => base_1+base_2 ;
Pl => base_1+base_2+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"eadh"
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => base_1+"h"+base_2
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => base_1+"h"+base_2
} ;
noun = base_1+base_2+"eadh" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV034"
} ;
mkV035 : Str -> V ;
mkV035 base =
case base of {
base_1@?+base_2+"i"+base_3@("l"|"r"|(?+?)) => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3 ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV035"
} ;
mkV036 : Str -> V ;
mkV036 base =
case base of {
base_1+"ic"+base_2@? => lin V
{ s = base_1+"ic"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => nonExist ;
Dep => nonExist
} ;
past = table {
Indep => nonExist ;
Dep => nonExist
} ;
noun = base_1+"d"+base_2 ;
participle = nonExist
};
_ => error "Can't apply paradigm mkV036"
} ;
mkV037 : Str -> V ;
mkV037 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => "dh'"+base_1+"ainn" ; --guessed
Pl => "dh'"+base_1+"amaid" --guessed
} ;
imperative = table {
P1 => table {
Sg => base_1+"am" ; --guessed
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => base_1 ; --guessed
Pl => base_1+"aibh" --guessed
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"adh" --guessed
}
} ;
future = table {
Indep => base_1+"idh" ; --guessed
Dep => base_1 --guessed
} ;
past = table {
Indep => base_1 ; --guessed
Dep => "dh'"+base_1 --guessed
} ;
noun = base_1 ;
participle = base_1+"te" --guessed
};
_ => error "Can't apply paradigm mkV037"
} ;
mkV038 : Str -> V ;
mkV038 base =
case base of {
base_1@?+base_2+"i"+base_3@(?+?) => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => base_1+"h"+base_2+"i"+base_3+"inn" ;
Pl => base_1+"h"+base_2+"i"+base_3+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"i"+base_3+"eam" ;
Pl => base_1+base_2+"i"+base_3+"eamaid"
} ;
P2 => table {
Sg => base_1+base_2+"i"+base_3 ;
Pl => base_1+base_2+"i"+base_3+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"i"+base_3+"eadh"
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => base_1+base_2+"i"+base_3
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3 ;
Dep => base_1+"h"+base_2+"i"+base_3
} ;
noun = base_1+base_2+"ea"+base_3+"adh" ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV038"
} ;
mkV039 : Str -> V ;
mkV039 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"ad" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV039"
} ;
mkV040 : Str -> V ;
mkV040 base =
case base of {
base_1+base_2@(?+?+?+?+?)+"i"+base_3@?+"n" => lin V
{ s = base_1+base_2+"i"+base_3+"n" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3+"n" ;
Dep => nonExist
} ;
noun = base_1+base_2+"i"+base_3+"n" ;
participle = base_1+base_2+base_3+"te"
};
_ => error "Can't apply paradigm mkV040"
} ;
mkV041 : Str -> V ;
mkV041 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2 ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV041"
} ;
mkV042 : Str -> V ;
mkV042 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => base_1+"h"+base_2+"inn" ; --guessed
Pl => base_1+"h"+base_2+"eamaid" --guessed
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"eam" ; --guessed
Pl => base_1+base_2+"eamaid" --guessed
} ;
P2 => table {
Sg => base_1+base_2 ; --guessed
Pl => base_1+base_2+"ibh" --guessed
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"eadh" --guessed
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => base_1+"h"+base_2 --guessed
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => base_1+"h"+base_2 --guessed
} ;
noun = base_1+base_2+"eadh" ;
participle = base_1+base_2+"e" --guessed
};
_ => error "Can't apply paradigm mkV042"
} ;
mkV043 : Str -> V ;
mkV043 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2 ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV043"
} ;
mkV044 : Str -> V ;
mkV044 base =
case base of {
base_1+base_2@(?+?)+base_3@?+"inn" => lin V
{ s = base_1+base_2+base_3+"inn" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"n"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+base_3+"inn" ;
Dep => nonExist
} ;
noun = base_1+base_2+"n"+base_3+"dh" ;
participle = base_1+base_2+base_3+"innte"
};
_ => error "Can't apply paradigm mkV044"
} ;
mkV045 : Str -> V ;
mkV045 base =
case base of {
base_1+base_2@?+"i"+base_3@?+"i"+base_4@? => lin V
{ s = base_1+base_2+"i"+base_3+"i"+base_4 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+base_4+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3+"i"+base_4 ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"a"+base_4 ;
participle = base_1+base_2+"i"+base_3+"i"+base_4+"te"
};
_ => error "Can't apply paradigm mkV045"
} ;
mkV046 : Str -> V ;
mkV046 base =
case base of {
base_1+base_2@(?+?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"eamh" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV046"
} ;
mkV047 : Str -> V ;
mkV047 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => base_1+"h"+base_2+"ainn" ;
Pl => base_1+"h"+base_2+"amaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"am" ;
Pl => base_1+base_2+"amaid"
} ;
P2 => table {
Sg => base_1+base_2 ;
Pl => base_1+base_2+"aibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"adh"
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => base_1+"h"+base_2
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => base_1+"h"+base_2
} ;
noun = base_1+base_2+"tainn" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV047"
} ;
mkV048 : Str -> V ;
mkV048 base =
case base of {
base_1+base_2@(?+?+?+?)+base_3@?+"il" => lin V
{ s = base_1+base_2+base_3+"il" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+base_3+"ilidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+base_3+"il" ;
Dep => nonExist
} ;
noun = base_1+base_2+"l"+base_3+"dh" ;
participle = base_1+base_2+base_3+"ilte"
};
_ => error "Can't apply paradigm mkV048"
} ;
mkV049 : Str -> V ;
mkV049 base =
case base of {
base_1@?+base_2+base_3@(?+?)+"ai"+base_4@?+"n" => lin V
{ s = base_1+base_2+base_3+"ai"+base_4+"n" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+base_4+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+base_3+"ai"+base_4+"n" ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+base_4+"adh" ;
participle = base_1+base_2+base_3+"ai"+base_4+"nte"
};
_ => error "Can't apply paradigm mkV049"
} ;
mkV050 : Str -> V ;
mkV050 base =
case base of {
base_1+base_2@(?+?+?+?)+base_3@?+"il" => lin V
{ s = base_1+base_2+base_3+"il" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"l"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+base_3+"il" ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"l" ;
participle = base_1+base_2+base_3+"ilte"
};
_ => error "Can't apply paradigm mkV050"
} ;
mkV051 : Str -> V ;
mkV051 base =
case base of {
base_1+base_2@?+"uinn" => lin V
{ s = base_1+base_2+"uinn" ;
conditional = table {
Sg => base_1+"h"+base_2+"uinninn" ;
Pl => base_1+"h"+base_2+"uinneadh"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"uinneam" ;
Pl => base_1+base_2+"uinneamaid"
} ;
P2 => table {
Sg => base_1+base_2+"uinn" ;
Pl => base_1+base_2+"uinnibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"uinneadh"
}
} ;
future = table {
Indep => base_1+base_2+"uinnidh" ;
Dep => base_1+"h"+base_2+"uinn"
} ;
past = table {
Indep => base_1+"hua"+base_2+"a" ;
Dep => base_1+"hua"+base_2+"a"
} ;
noun = base_1+base_2+"uinntinn" ;
participle = base_1+base_2+"uinnte"
};
_ => error "Can't apply paradigm mkV051"
} ;
mkV052 : Str -> V ;
mkV052 base =
case base of {
base_1+base_2@(?+?+?)+"i"+base_3@(?+?) => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+"ea"+base_3+"d" ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV052"
} ;
mkV053 : Str -> V ;
mkV053 base =
case base of {
base_1+base_2@?+"i"+base_3@?+"i"+base_4@?+"n" => lin V
{ s = base_1+base_2+"i"+base_3+"i"+base_4+"n" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"i"+base_4+"nidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3+"i"+base_4+"n" ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+base_4+"adh" ;
participle = base_1+base_2+"i"+base_3+"i"+base_4+"nte"
};
_ => error "Can't apply paradigm mkV053"
} ;
mkV054 : Str -> V ;
mkV054 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"adh" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV054"
} ;
mkV055 : Str -> V ;
mkV055 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => base_1+"h"+base_2+"ainn" ;
Pl => base_1+"h"+base_2+"amaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"am" ;
Pl => base_1+base_2+"amaid"
} ;
P2 => table {
Sg => base_1+base_2 ;
Pl => base_1+base_2+"aibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"adh"
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => base_1+"h"+base_2
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => base_1+"h"+base_2
} ;
noun = base_1+base_2+"adh" ;
participle = base_1+base_2+"ta"
};
_ => error "Can't apply paradigm mkV055"
} ;
mkV056 : Str -> V ;
mkV056 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"sinn" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV056"
} ;
mkV057 : Str -> V ;
mkV057 base =
case base of {
base_1+base_2@(?+?)+base_3@? => lin V
{ s = base_1+base_2+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+base_3+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"adh" ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV057"
} ;
mkV058 : Str -> V ;
mkV058 base =
case base of {
base_1+base_2@?+"i"+base_3@?+base_4@(?+?+?+?) => lin V
{ s = base_1+base_2+"i"+base_3+base_4 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh"+base_4 ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3+base_4 ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+base_4 ;
participle = nonExist
};
_ => error "Can't apply paradigm mkV058"
} ;
mkV059 : Str -> V ;
mkV059 base =
case base of {
base_1+base_2@(?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"ail" ;
participle = base_1+base_2+"ta"
};
_ => error "Can't apply paradigm mkV059"
} ;
mkV060 : Str -> V ;
mkV060 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"adh" ;
participle = base_1+base_2+"e"
};
_ => error "Can't apply paradigm mkV060"
} ;
mkV061 : Str -> V ;
mkV061 base =
case base of {
base_1+base_2@?+"i"+base_3@?+"ic"+base_4@? => lin V
{ s = base_1+base_2+"i"+base_3+"ic"+base_4 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"ic"+base_4+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3+"ic"+base_4 ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"ad"+base_4 ;
participle = base_1+base_2+"i"+base_3+"ic"+base_4+"te"
};
_ => error "Can't apply paradigm mkV061"
} ;
mkV062 : Str -> V ;
mkV062 base =
case base of {
base_1+base_2@(?+?+?+?+?+?)+"c"+base_3@? => lin V
{ s = base_1+base_2+"c"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"c"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"c"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+"d"+base_3 ;
participle = base_1+base_2+"c"+base_3+"te"
};
_ => error "Can't apply paradigm mkV062"
} ;
mkV063 : Str -> V ;
mkV063 base =
case base of {
base_1+"ù"+base_2@? => lin V
{ s = base_1+"ù"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"u"+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"hù"+base_2 ;
Dep => nonExist
} ;
noun = base_1+"u"+base_2+"ail" ;
participle = base_1+"u"+base_2+"ta"
};
_ => error "Can't apply paradigm mkV063"
} ;
mkV064 : Str -> V ;
mkV064 base =
case base of {
base_1+base_2@(?+?+?+?)+base_3@(?+?)+"ic"+base_4@? => lin V
{ s = base_1+base_2+base_3+"ic"+base_4 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"a"+base_3+"ic"+base_4+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+base_3+"ic"+base_4 ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"d"+base_4 ;
participle = base_1+base_2+"a"+base_3+"ic"+base_4+"te"
};
_ => error "Can't apply paradigm mkV064"
} ;
mkV065 : Str -> V ;
mkV065 base =
case base of {
base_1@?+base_2+"i"+base_3@(?+?) => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => base_1+"h"+base_2+"i"+base_3+"inn" ;
Pl => base_1+"h"+base_2+"i"+base_3+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"i"+base_3+"eam" ;
Pl => base_1+base_2+"i"+base_3+"eamaid"
} ;
P2 => table {
Sg => base_1+base_2+"i"+base_3 ;
Pl => base_1+base_2+"i"+base_3+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"i"+base_3+"eadh"
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => base_1+base_2+"i"+base_3
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3 ;
Dep => base_1+"h"+base_2+"i"+base_3
} ;
noun = base_1+base_2+base_3+"adh" ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV065"
} ;
mkV066 : Str -> V ;
mkV066 base =
case base of {
"dèa"+base_1 => lin V
{ s = "dèa"+base_1 ;
conditional = table {
Sg => "dhèa"+base_1+"ainn" ;
Pl => "dhèa"+base_1+"adh"
} ;
imperative = table {
P1 => table {
Sg => "dèa"+base_1+"am" ;
Pl => "dèa"+base_1+"amaid"
} ;
P2 => table {
Sg => "dèa"+base_1 ;
Pl => "dèa"+base_1+"aibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => "dèa"+base_1+"adh"
}
} ;
future = table {
Indep => base_1+"ì" ;
Dep => "dèa"+base_1
} ;
past = table {
Indep => "ri"+base_1+"n" ;
Dep => "ri"+base_1+"n"
} ;
noun = "dèa"+base_1+"amh" ;
participle = "dèa"+base_1+"ta"
};
_ => error "Can't apply paradigm mkV066"
} ;
mkV067 : Str -> V ;
mkV067 base =
case base of {
base_1@?+base_2+base_3@?+"ir" => lin V
{ s = base_1+base_2+base_3+"ir" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"r"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+base_3+"ir" ;
Dep => nonExist
} ;
noun = base_1+base_2+"r"+base_3+"dh" ;
participle = base_1+base_2+base_3+"irte"
};
_ => error "Can't apply paradigm mkV067"
} ;
mkV068 : Str -> V ;
mkV068 base =
case base of {
base_1+base_2@(?+?+?+?)+base_3@?+"il" => lin V
{ s = base_1+base_2+base_3+"il" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"l"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+base_3+"il" ;
Dep => nonExist
} ;
noun = base_1+base_2+"l"+base_3+"dh" ;
participle = base_1+base_2+base_3+"ilte"
};
_ => error "Can't apply paradigm mkV068"
} ;
mkV069 : Str -> V ;
mkV069 base =
case base of {
base_1+base_2@(?+?)+"ic"+base_3@? => lin V
{ s = base_1+base_2+"ic"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"ic"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"ic"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+"ead"+base_3 ;
participle = base_1+base_2+"ic"+base_3+"te"
};
_ => error "Can't apply paradigm mkV069"
} ;
mkV070 : Str -> V ;
mkV070 base =
case base of {
base_1+base_2@?+"i"+base_3@(?+?) => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"adh" ;
participle = base_1+base_2+"i"+base_3+"e"
};
_ => error "Can't apply paradigm mkV070"
} ;
mkV071 : Str -> V ;
mkV071 base =
case base of {
base_1+base_2@?+"il" => lin V
{ s = base_1+base_2+"il" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"l"+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+base_2+"il" ;
Dep => nonExist
} ;
noun = base_1+base_2+"l" ;
participle = base_1+base_2+"ilte"
};
_ => error "Can't apply paradigm mkV071"
} ;
mkV072 : Str -> V ;
mkV072 base =
case base of {
base_1+"i"+base_2@(?+?) => lin V
{ s = base_1+"i"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"i"+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"i"+base_2 ;
Dep => nonExist
} ;
noun = base_1+"ì"+base_2+"eadh" ;
participle = base_1+"i"+base_2+"te"
};
_ => error "Can't apply paradigm mkV072"
} ;
mkV073 : Str -> V ;
mkV073 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => "dh'"+base_1+"inn" ;
Pl => "dh'"+base_1+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+"eam" ;
Pl => base_1+"eamaid"
} ;
P2 => table {
Sg => base_1 ;
Pl => base_1+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"eadh"
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => base_1
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => "dh'"+base_1
} ;
noun = base_1+"eadh" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV073"
} ;
mkV074 : Str -> V ;
mkV074 base =
case base of {
base_1+"aich" => lin V
{ s = base_1+"aich" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"aichidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"aich" ;
Dep => nonExist
} ;
noun = base_1+"adh" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV074"
} ;
mkV075 : Str -> V ;
mkV075 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => nonExist
} ;
noun = base_1+"sadh" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV075"
} ;
mkV076 : Str -> V ;
mkV076 base =
case base of {
"fai"+base_1 => lin V
{ s = "fai"+base_1 ;
conditional = table {
Sg => base_1+"hithinn" ;
Pl => base_1+"hitheadh"
} ;
imperative = table {
P1 => table {
Sg => "fai"+base_1+"eam" ;
Pl => "fai"+base_1+"eamaid"
} ;
P2 => table {
Sg => "fai"+base_1 ;
Pl => "fai"+base_1+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => "fai"+base_1+"eadh"
}
} ;
future = table {
Indep => base_1+"hì" ;
Dep => "fhai"+base_1
} ;
past = table {
Indep => base_1+"hunnaic" ;
Dep => "fha"+base_1+"a"
} ;
noun = "fai"+base_1+"inn" ;
participle = "fai"+base_1+"te"
};
_ => error "Can't apply paradigm mkV076"
} ;
mkV077 : Str -> V ;
mkV077 base =
case base of {
"faig"+base_1 => lin V
{ s = "faig"+base_1 ;
conditional = table {
Sg => "g"+base_1+"eibhinn" ;
Pl => "g"+base_1+"eibheadh"
} ;
imperative = table {
P1 => table {
Sg => "faig"+base_1+"eam" ;
Pl => "faig"+base_1+"eamaid"
} ;
P2 => table {
Sg => "faig"+base_1 ;
Pl => "faig"+base_1+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => "faig"+base_1+"eadh"
}
} ;
future = table {
Indep => "g"+base_1+"eibh" ;
Dep => "f"+base_1+"aigh"
} ;
past = table {
Indep => "f"+base_1+"uair" ;
Dep => "f"+base_1+"uair"
} ;
noun = "faig"+base_1+"inn" ;
participle = "faig"+base_1+"te"
};
_ => error "Can't apply paradigm mkV077"
} ;
mkV078 : Str -> V ;
mkV078 base =
case base of {
base_1+base_2@(?+?+?+?+?)+"i"+base_3@(?+?) => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+"i"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+"ea"+base_3+"d" ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV078"
} ;
mkV079 : Str -> V ;
mkV079 base =
case base of {
base_1+base_2@(?+?)+"l"+base_3@? => lin V
{ s = base_1+base_2+"l"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"l"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+"l"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"eadh" ;
participle = base_1+base_2+"l"+base_3+"te"
};
_ => error "Can't apply paradigm mkV079"
} ;
mkV080 : Str -> V ;
mkV080 base =
case base of {
base_1+base_2@(?+?+?)+"i"+base_3@(?+?) => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+"i"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+"ea"+base_3+"dainn" ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV080"
} ;
mkV081 : Str -> V ;
mkV081 base =
case base of {
base_1+base_2@(?+?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2 ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV081"
} ;
mkV082 : Str -> V ;
mkV082 base =
case base of {
base_1+base_2@(?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"tail" ;
participle = nonExist
};
_ => error "Can't apply paradigm mkV082"
} ;
mkV083 : Str -> V ;
mkV083 base =
case base of {
"fannaich" => lin V
{ s = "fannaich" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => "fannaichidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'fhannaich" ;
Dep => nonExist
} ;
noun = "fannachadh" ;
participle = "te"
};
_ => error "Can't apply paradigm mkV083"
} ;
mkV084 : Str -> V ;
mkV084 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2 ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV084"
} ;
mkV085 : Str -> V ;
mkV085 base =
case base of {
base_1@?+base_2+"i"+base_3@(?+?) => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+"i"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"adh" ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV085"
} ;
mkV086 : Str -> V ;
mkV086 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"adh" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV086"
} ;
mkV087 : Str -> V ;
mkV087 base =
case base of {
base_1@?+base_2+"i"+base_3@("m"|(?+?)) => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => "dh'"+base_1+"h"+base_2+"i"+base_3+"inn" ;
Pl => "dh'"+base_1+"h"+base_2+"i"+base_3+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"i"+base_3+"eam" ;
Pl => base_1+base_2+"i"+base_3+"eamaid"
} ;
P2 => table {
Sg => base_1+base_2+"i"+base_3 ;
Pl => base_1+base_2+"i"+base_3+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"i"+base_3+"eadh"
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => base_1+"h"+base_2+"i"+base_3
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+"i"+base_3 ;
Dep => "dh'"+base_1+"h"+base_2+"i"+base_3
} ;
noun = base_1+base_2+base_3 ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV087"
} ;
mkV088 : Str -> V ;
mkV088 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => "dh'"+base_1+"h"+base_2+"ainn" ;
Pl => "dh'"+base_1+"h"+base_2+"amaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"am" ;
Pl => base_1+base_2+"amaid"
} ;
P2 => table {
Sg => base_1+base_2 ;
Pl => base_1+base_2+"aibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"adh"
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => base_1+"h"+base_2
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2 ;
Dep => "dh'"+base_1+"h"+base_2
} ;
noun = base_1+base_2+"ail" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV088"
} ;
mkV089 : Str -> V ;
mkV089 base =
case base of {
base_1+base_2@(?+?+?)+base_3@?+"inn" => lin V
{ s = base_1+base_2+base_3+"inn" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+base_3+"innidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+base_3+"inn" ;
Dep => nonExist
} ;
noun = base_1+base_2+"n"+base_3+"dh" ;
participle = base_1+base_2+base_3+"innte"
};
_ => error "Can't apply paradigm mkV089"
} ;
mkV090 : Str -> V ;
mkV090 base =
case base of {
base_1+base_2@(?+?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"eamh" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV090"
} ;
mkV091 : Str -> V ;
mkV091 base =
case base of {
base_1+base_2@(?+?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"ainn" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV091"
} ;
mkV092 : Str -> V ;
mkV092 base =
case base of {
base_1+base_2@(?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"e" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV092"
} ;
mkV093 : Str -> V ;
mkV093 base =
case base of {
base_1@?+base_2 => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => "dh'"+base_1+"h"+base_2+"inn" ;
Pl => "dh'"+base_1+"h"+base_2+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"eam" ;
Pl => base_1+base_2+"eamaid"
} ;
P2 => table {
Sg => base_1+base_2 ;
Pl => base_1+base_2+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"eadh"
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => base_1+"h"+base_2
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2 ;
Dep => "dh'"+base_1+"h"+base_2
} ;
noun = base_1+base_2+"eadh" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV093"
} ;
mkV094 : Str -> V ;
mkV094 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => base_1+"ainn" ;
Pl => base_1+"amaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+"am" ;
Pl => base_1+"amaid"
} ;
P2 => table {
Sg => base_1 ;
Pl => base_1+"aibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"adh"
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => base_1
} ;
past = table {
Indep => base_1 ;
Dep => base_1
} ;
noun = base_1+"adh" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV094"
} ;
mkV095 : Str -> V ;
mkV095 base =
case base of {
base_1+"o"+base_2@(?+?)+base_3@?+"in" => lin V
{ s = base_1+"o"+base_2+base_3+"in" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"ò"+base_2+"n"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"ho"+base_2+base_3+"in" ;
Dep => nonExist
} ;
noun = base_1+"ò"+base_2+"n"+base_3+"dh" ;
participle = base_1+"o"+base_2+base_3+"inte"
};
_ => error "Can't apply paradigm mkV095"
} ;
mkV096 : Str -> V ;
mkV096 base =
case base of {
base_1+base_2@?+"i"+base_3@(?+?+?)+"i"+base_4@(?+?) => lin V
{ s = base_1+base_2+"i"+base_3+"i"+base_4 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+base_3+"i"+base_4+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+"i"+base_3+"i"+base_4 ;
Dep => nonExist
} ;
noun = base_1+base_2+"i"+base_3+"ea"+base_4+"adh" ;
participle = base_1+base_2+"i"+base_3+"i"+base_4+"te"
};
_ => error "Can't apply paradigm mkV096"
} ;
mkV097 : Str -> V ;
mkV097 base =
case base of {
base_1+base_2@(?+?+?)+base_3@?+"il" => lin V
{ s = base_1+base_2+base_3+"il" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"l"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+base_3+"il" ;
Dep => nonExist
} ;
noun = base_1+base_2+"l"+base_3+"dh" ;
participle = base_1+base_2+base_3+"ilte"
};
_ => error "Can't apply paradigm mkV097"
} ;
mkV098 : Str -> V ;
mkV098 base =
case base of {
base_1+base_2@(?+?+?+?+?)+"i"+base_3@? => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+"a"+base_3+"adh" ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV098"
} ;
mkV099 : Str -> V ;
mkV099 base =
case base of {
base_1+base_2@(?+?+?+?+?)+"ei"+base_3@? => lin V
{ s = base_1+base_2+"ei"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+"ei"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+"ea"+base_3 ;
participle = base_1+base_2+"ei"+base_3+"te"
};
_ => error "Can't apply paradigm mkV099"
} ;
mkV100 : Str -> V ;
mkV100 base =
case base of {
base_1+base_2@(?+?+?+?+?)+"i"+base_3@(?+?) => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => "dh'"+base_1+"h"+base_2+"i"+base_3+"inn" ;
Pl => "dh'"+base_1+"h"+base_2+"i"+base_3+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"i"+base_3+"eam" ;
Pl => base_1+base_2+"i"+base_3+"eamaid"
} ;
P2 => table {
Sg => base_1+base_2+"i"+base_3 ;
Pl => base_1+base_2+"i"+base_3+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"i"+base_3+"eadh"
}
} ;
future = table {
Indep => base_1+base_2+"ni"+base_3+"idh" ;
Dep => base_1+"h"+base_2+"i"+base_3
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+"i"+base_3 ;
Dep => "dh'"+base_1+"h"+base_2+"i"+base_3
} ;
noun = base_1+base_2+"ea"+base_3+"adh" ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV100"
} ;
mkV101 : Str -> V ;
mkV101 base =
case base of {
base_1+base_2@(?+?+?+?)+base_3@?+"il" => lin V
{ s = base_1+base_2+base_3+"il" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+base_3+"ilidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+base_3+"il" ;
Dep => nonExist
} ;
noun = base_1+base_2+"l"+base_3+"dh" ;
participle = base_1+base_2+base_3+"ilte"
};
_ => error "Can't apply paradigm mkV101"
} ;
mkV102 : Str -> V ;
mkV102 base =
case base of {
base_1+base_2@?+"i"+base_3@?+"i"+base_4@(?+?) => lin V
{ s = base_1+base_2+"i"+base_3+"i"+base_4 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"i"+base_4+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+"i"+base_3+"i"+base_4 ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"a"+base_4 ;
participle = base_1+base_2+"i"+base_3+"i"+base_4+"te"
};
_ => error "Can't apply paradigm mkV102"
} ;
mkV103 : Str -> V ;
mkV103 base =
case base of {
base_1+base_2@(?+?+?)+"i"+base_3@(?+?) => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+"i"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+"ea"+base_3 ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV103"
} ;
mkV104 : Str -> V ;
mkV104 base =
case base of {
base_1@?+base_2+"i"+base_3@(?+?) => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+"i"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+"ea"+base_3+"adh" ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV104"
} ;
mkV105 : Str -> V ;
mkV105 base =
case base of {
base_1+base_2@(?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2 ;
participle = base_1+base_2+"ta"
};
_ => error "Can't apply paradigm mkV105"
} ;
mkV106 : Str -> V ;
mkV106 base =
case base of {
base_1+base_2@(?+?)+base_3@?+"ir" => lin V
{ s = base_1+base_2+base_3+"ir" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+base_3+"iridh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"h"+base_2+base_3+"ir" ;
Dep => nonExist
} ;
noun = base_1+base_2+"r"+base_3+"dh" ;
participle = base_1+base_2+base_3+"irte"
};
_ => error "Can't apply paradigm mkV106"
} ;
mkV107 : Str -> V ;
mkV107 base =
case base of {
base_1+base_2@(?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"ail" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV107"
} ;
mkV108 : Str -> V ;
mkV108 base =
case base of {
base_1+base_2@?+"à"+base_3@(?+?) => lin V
{ s = base_1+base_2+"à"+base_3 ;
conditional = table {
Sg => base_1+"h"+base_2+"à"+base_3+"inn" ;
Pl => base_1+"h"+base_2+"à"+base_3+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"à"+base_3+"eam" ;
Pl => base_1+base_2+"à"+base_3+"eamaid"
} ;
P2 => table {
Sg => base_1+base_2+"à"+base_3 ;
Pl => base_1+base_2+"à"+base_3+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"à"+base_3+"eadh"
}
} ;
future = table {
Indep => base_1+base_2+"à"+base_3+"idh" ;
Dep => base_1+"h"+base_2+"à"+base_3
} ;
past = table {
Indep => base_1+"h"+base_2+"à"+base_3 ;
Dep => base_1+"h"+base_2+"à"+base_3
} ;
noun = base_1+base_2+"a"+base_3+"adh" ;
participle = base_1+base_2+"à"+base_3+"te"
};
_ => error "Can't apply paradigm mkV108"
} ;
mkV109 : Str -> V ;
mkV109 base =
case base of {
base_1+base_2@(?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"tinn" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV109"
} ;
mkV110 : Str -> V ;
mkV110 base =
case base of {
base_1+base_2@(?+?+?)+"i"+base_3@? => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"i"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"ad" ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV110"
} ;
mkV111 : Str -> V ;
mkV111 base =
case base of {
base_1+base_2@(?+?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => base_1+"h"+base_2+"inn" ;
Pl => base_1+"h"+base_2+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"eam" ;
Pl => base_1+base_2+"eamaid"
} ;
P2 => table {
Sg => base_1+base_2 ;
Pl => base_1+base_2+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"eadh"
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => base_1+"h"+base_2
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => base_1+"h"+base_2
} ;
noun = base_1+base_2+"e" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV111"
} ;
mkV112 : Str -> V ;
mkV112 base =
case base of {
base_1+base_2@(?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"eachdainn" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV112"
} ;
mkV113 : Str -> V ;
mkV113 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => "dh'"+base_1+"ainn" ;
Pl => "dh'"+base_1+"amaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+"am" ;
Pl => base_1+"amaid"
} ;
P2 => table {
Sg => base_1 ;
Pl => base_1+"aibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"adh"
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => base_1
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => "dh'"+base_1
} ;
noun = base_1+"aidh" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV113"
} ;
mkV114 : Str -> V ;
mkV114 base =
case base of {
base_1+base_2@?+"h" => lin V
{ s = base_1+base_2+"h" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"haidh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+base_2+"h" ;
Dep => nonExist
} ;
noun = base_1+base_2+"hadh" ;
participle = base_1+"dh"+base_2+"e"
};
_ => error "Can't apply paradigm mkV114"
} ;
mkV115 : Str -> V ;
mkV115 base =
case base of {
base_1+base_2@?+"ir" => lin V
{ s = base_1+base_2+"ir" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"iridh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+base_2+"ir" ;
Dep => nonExist
} ;
noun = base_1+"r"+base_2+"dh" ;
participle = base_1+base_2+"irte"
};
_ => error "Can't apply paradigm mkV115"
} ;
mkV116 : Str -> V ;
mkV116 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => "dh'"+base_1+"inn" ;
Pl => "dh'"+base_1+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+"eam" ;
Pl => base_1+"eamaid"
} ;
P2 => table {
Sg => base_1 ;
Pl => base_1+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"eadh"
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => base_1
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => "dh'"+base_1
} ;
noun = base_1+"e" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV116"
} ;
mkV117 : Str -> V ;
mkV117 base =
case base of {
base_1+base_2@?+"ir" => lin V
{ s = base_1+base_2+"ir" ;
conditional = table {
Sg => base_1+"r"+base_2+"inn" ;
Pl => base_1+"r"+base_2+"maid"
} ;
imperative = table {
P1 => table {
Sg => base_1+"r"+base_2+"m" ;
Pl => base_1+"r"+base_2+"maid"
} ;
P2 => table {
Sg => base_1+base_2+"ir" ;
Pl => base_1+"r"+base_2+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"r"+base_2+"dh"
}
} ;
future = table {
Indep => base_1+"r"+base_2+"idh" ;
Dep => base_1+base_2+"ir"
} ;
past = table {
Indep => base_1+base_2+"ir" ;
Dep => base_1+base_2+"ir"
} ;
noun = base_1+base_2+"irt" ;
participle = base_1+base_2+"irte"
};
_ => error "Can't apply paradigm mkV117"
} ;
mkV118 : Str -> V ;
mkV118 base =
case base of {
base_1+"i"+base_2@("l"|(?+?)) => lin V
{ s = base_1+"i"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"i"+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"i"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"adh" ;
participle = base_1+"i"+base_2+"te"
};
_ => error "Can't apply paradigm mkV118"
} ;
mkV119 : Str -> V ;
mkV119 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1 ;
Dep => nonExist
} ;
noun = base_1+"e" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV119"
} ;
mkV120 : Str -> V ;
mkV120 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1 ;
Dep => nonExist
} ;
noun = base_1+"tainn" ;
participle = base_1+"ta"
};
_ => error "Can't apply paradigm mkV120"
} ;
mkV121 : Str -> V ;
mkV121 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1 ;
Dep => nonExist
} ;
noun = base_1+"eil" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV121"
} ;
mkV122 : Str -> V ;
mkV122 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1 ;
Dep => nonExist
} ;
noun = base_1 ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV122"
} ;
mkV123 : Str -> V ;
mkV123 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1 ;
Dep => nonExist
} ;
noun = base_1+"adh" ;
participle = base_1+"ta"
};
_ => error "Can't apply paradigm mkV123"
} ;
mkV124 : Str -> V ;
mkV124 base =
case base of {
base_1+"igh" => lin V
{ s = base_1+"igh" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"ighidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"igh" ;
Dep => nonExist
} ;
noun = base_1+"ì" ;
participle = base_1+"ighte"
};
_ => error "Can't apply paradigm mkV124"
} ;
mkV125 : Str -> V ;
mkV125 base =
case base of {
base_1+"i"+base_2@(?+?) => lin V
{ s = base_1+"i"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"i"+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"i"+base_2 ;
Dep => nonExist
} ;
noun = base_1+"ea"+base_2+"adh" ;
participle = base_1+"i"+base_2+"te"
};
_ => error "Can't apply paradigm mkV125"
} ;
mkV126 : Str -> V ;
mkV126 base =
case base of {
base_1@(?+?+?)+"i"+base_2 => lin V
{ s = base_1+"i"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"i"+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"i"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2 ;
participle = base_1+"i"+base_2+"te"
};
_ => error "Can't apply paradigm mkV126"
} ;
mkV127 : Str -> V ;
mkV127 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => base_1+"inn" ;
Pl => base_1+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+"eam" ;
Pl => base_1+"eamaid"
} ;
P2 => table {
Sg => base_1 ;
Pl => base_1+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"eadh"
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => base_1
} ;
past = table {
Indep => base_1 ;
Dep => base_1
} ;
noun = base_1+"eadh" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV127"
} ;
mkV128 : Str -> V ;
mkV128 base =
case base of {
base_1+base_2@(?+?+?+?)+"i"+base_3@? => lin V
{ s = base_1+base_2+"i"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"eadh" ;
participle = base_1+base_2+"i"+base_3+"te"
};
_ => error "Can't apply paradigm mkV128"
} ;
mkV129 : Str -> V ;
mkV129 base =
case base of {
base_1+base_2@(?+?+?+?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2 ;
participle = base_1+base_2+"e"
};
_ => error "Can't apply paradigm mkV129"
} ;
mkV130 : Str -> V ;
mkV130 base =
case base of {
base_1+base_2@(?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2 ;
participle = base_1+base_2+"e"
};
_ => error "Can't apply paradigm mkV130"
} ;
mkV131 : Str -> V ;
mkV131 base =
case base of {
base_1+base_2@(?+?+?+?+?+?+?+?+?)+"d" => lin V
{ s = base_1+base_2+"d" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"daidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"d" ;
Dep => nonExist
} ;
noun = base_1+base_2+"dadh" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV131"
} ;
mkV132 : Str -> V ;
mkV132 base =
case base of {
base_1+"ì"+base_2@(?+?+?+?+?+?+?) => lin V
{ s = base_1+"ì"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"i"+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"hì"+base_2 ;
Dep => nonExist
} ;
noun = base_1+"ì"+base_2+"adh" ;
participle = base_1+"ì"+base_2+"e"
};
_ => error "Can't apply paradigm mkV132"
} ;
mkV133 : Str -> V ;
mkV133 base =
case base of {
base_1+"ì"+base_2@(?+?+?)+"ò"+base_3@(?+?) => lin V
{ s = base_1+"ì"+base_2+"ò"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"i"+base_2+"ò"+base_3+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"hì"+base_2+"ò"+base_3 ;
Dep => nonExist
} ;
noun = base_1+"ì"+base_2+"ò"+base_3+"adh" ;
participle = base_1+"ì"+base_2+"o"+base_3+"te"
};
_ => error "Can't apply paradigm mkV133"
} ;
mkV134 : Str -> V ;
mkV134 base =
case base of {
base_1@?+base_2+"i"+base_3@?+"n" => lin V
{ s = base_1+base_2+"i"+base_3+"n" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"i"+base_3+"n" ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"eadh" ;
participle = base_1+base_2+"i"+base_3+"nte"
};
_ => error "Can't apply paradigm mkV134"
} ;
mkV135 : Str -> V ;
mkV135 base =
case base of {
base_1+"dhèa"+base_2@? => lin V
{ s = base_1+"dhèa"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"ì" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"ri"+base_2+"n" ;
Dep => nonExist
} ;
noun = base_1+"dhèa"+base_2+"amh" ;
participle = base_1+"dhèa"+base_2+"ta"
};
_ => error "Can't apply paradigm mkV135"
} ;
mkV136 : Str -> V ;
mkV136 base =
case base of {
"n"+base_1+"ulaich" => lin V
{ s = "n"+base_1+"ulaich" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => "n"+base_1+"ulaichidh" ;
Dep => nonExist
} ;
past = table {
Indep => "n"+base_1+"ulaich" ;
Dep => nonExist
} ;
noun = "n"+base_1+"ulachadh" ;
participle = "t"+base_1
};
_ => error "Can't apply paradigm mkV136"
} ;
mkV137 : Str -> V ;
mkV137 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh’"+base_1 ;
Dep => nonExist
} ;
noun = base_1+"adh" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV137"
} ;
mkV138 : Str -> V ;
mkV138 base =
case base of {
base_1+base_2@(?+?+?)+"t" => lin V
{ s = base_1+base_2+"t" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"daidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"t" ;
Dep => nonExist
} ;
noun = base_1+base_2+"tadh" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV138"
} ;
mkV139 : Str -> V ;
mkV139 base =
case base of {
base_1+base_2@(?+?+?+?)+"ig" => lin V
{ s = base_1+base_2+"ig" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"igidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+"ig" ;
Dep => nonExist
} ;
noun = base_1+base_2+"eadh" ;
participle = base_1+base_2+"igte"
};
_ => error "Can't apply paradigm mkV139"
} ;
mkV140 : Str -> V ;
mkV140 base =
case base of {
"rach" => lin V
{ s = "rach" ;
conditional = table {
Sg => "rachainn" ;
Pl => "rachadh"
} ;
imperative = table {
P1 => table {
Sg => "racham" ;
Pl => "rachamaid"
} ;
P2 => table {
Sg => "rach" ;
Pl => "rachaibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => "rachadh"
}
} ;
future = table {
Indep => "thèid" ;
Dep => "tèid"
} ;
past = table {
Indep => "chaidh" ;
Dep => "deach"
} ;
noun = "dol" ;
participle = "rachte"
};
_ => error "Can't apply paradigm mkV140"
} ;
mkV141 : Str -> V ;
mkV141 base =
case base of {
base_1+"h" => lin V
{ s = base_1+"h" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"haidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h" ;
Dep => nonExist
} ;
noun = base_1+"hadh" ;
participle = base_1+"a"
};
_ => error "Can't apply paradigm mkV141"
} ;
mkV142 : Str -> V ;
mkV142 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1 ;
Dep => nonExist
} ;
noun = base_1+"t" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV142"
} ;
mkV143 : Str -> V ;
mkV143 base =
case base of {
base_1+"u"+base_2@(?+?) => lin V
{ s = base_1+"u"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"u"+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"àin"+base_2 ;
Dep => nonExist
} ;
noun = base_1+"u"+base_2+"sinn" ;
participle = base_1+"u"+base_2+"te"
};
_ => error "Can't apply paradigm mkV143"
} ;
mkV144 : Str -> V ;
mkV144 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1 ;
Dep => nonExist
} ;
noun = base_1+"ail" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV144"
} ;
mkV145 : Str -> V ;
mkV145 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1 ;
Dep => nonExist
} ;
noun = base_1+"adh" ;
participle = base_1+"a"
};
_ => error "Can't apply paradigm mkV145"
} ;
mkV146 : Str -> V ;
mkV146 base =
case base of {
base_1+base_2@(?+?+?+?)+base_3@?+"in" => lin V
{ s = base_1+base_2+base_3+"in" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+base_3+"inidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+base_3+"in" ;
Dep => nonExist
} ;
noun = base_1+base_2+"n"+base_3+"dh" ;
participle = base_1+base_2+base_3+"inte"
};
_ => error "Can't apply paradigm mkV146"
} ;
mkV147 : Str -> V ;
mkV147 base =
case base of {
base_1+base_2@(?+?+?+?)+base_3@?+"inn" => lin V
{ s = base_1+base_2+base_3+"inn" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+base_3+"innidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+base_3+"inn" ;
Dep => nonExist
} ;
noun = base_1+base_2+"n"+base_3+"dh" ;
participle = base_1+base_2+base_3+"innte"
};
_ => error "Can't apply paradigm mkV147"
} ;
mkV148 : Str -> V ;
mkV148 base =
case base of {
base_1+base_2@(?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"amh" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV148"
} ;
mkV149 : Str -> V ;
mkV149 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => "dh'"+base_1+"ainn" ; --guessed
Pl => "dh'"+base_1+"amaid" --guessed
} ;
imperative = table {
P1 => table {
Sg => base_1+"am" ; --guessed
Pl => base_1+"aibh"
} ;
P2 => table {
Sg => base_1 ; --guessed
Pl => base_1+"aibh" --guessed
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"adh" --guessed
}
} ;
future = table {
Indep => base_1+"idh" ; --guessed
Dep => base_1 --guessed
} ;
past = table {
Indep => "dh'"+base_1 ; --guessed
Dep => "dh'"+base_1 --guessed
} ;
noun = base_1+"adh" ; --guessed
participle = base_1+"te" --guessed
};
_ => error "Can't apply paradigm mkV149"
} ;
mkV150 : Str -> V ;
mkV150 base =
case base of {
base_1+base_2@?+"g" => lin V
{ s = base_1+base_2+"g" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"gidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+base_2+"g" ;
Dep => nonExist
} ;
noun = base_1+"ga"+base_2+"l" ;
participle = base_1+base_2+"gte"
};
_ => error "Can't apply paradigm mkV150"
} ;
mkV151 : Str -> V ;
mkV151 base =
case base of {
base_1+"i"+base_2@?+"ic"+base_3@? => lin V
{ s = base_1+"i"+base_2+"ic"+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"i"+base_2+"ic"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"i"+base_2+"ic"+base_3 ;
Dep => nonExist
} ;
noun = base_1+base_2+"ad"+base_3 ;
participle = base_1+"i"+base_2+"ic"+base_3+"te"
};
_ => error "Can't apply paradigm mkV151"
} ;
mkV152 : Str -> V ;
mkV152 base =
case base of {
base_1+"à"+base_2@(?+?) => lin V
{ s = base_1+"à"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"a"+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"à"+base_2 ;
Dep => nonExist
} ;
noun = base_1+"a"+base_2+"adh" ;
participle = base_1+"a"+base_2+"te"
};
_ => error "Can't apply paradigm mkV152"
} ;
mkV153 : Str -> V ;
mkV153 base =
case base of {
base_1+base_2@(?+?+?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"art" ;
participle = nonExist
};
_ => error "Can't apply paradigm mkV153"
} ;
mkV154 : Str -> V ;
mkV154 base =
case base of {
base_1+base_2@(?+?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => base_1+"h"+base_2+"ainn" ;
Pl => base_1+"h"+base_2+"amaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"am" ;
Pl => base_1+base_2+"amaid"
} ;
P2 => table {
Sg => base_1+base_2 ;
Pl => base_1+base_2+"aibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"adh"
}
} ;
future = table {
Indep => base_1+base_2+"aidh" ;
Dep => base_1+"h"+base_2
} ;
past = table {
Indep => base_1+base_2 ;
Dep => base_1+"h"+base_2
} ;
noun = base_1+base_2+"adh" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV154"
} ;
mkV155 : Str -> V ;
mkV155 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => base_1+"ainn" ;
Pl => base_1+"amaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+"am" ;
Pl => base_1+"amaid"
} ;
P2 => table {
Sg => base_1 ;
Pl => base_1+"aibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"adh iad"
}
} ;
future = table {
Indep => base_1 ;
Dep => base_1+"aidh"
} ;
past = table {
Indep => base_1 ;
Dep => base_1
} ;
noun = base_1+"adh" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV155"
} ;
mkV156 : Str -> V ;
mkV156 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => base_1+"ibh"
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"thidh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1 ;
Dep => nonExist
} ;
noun = base_1 ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV156"
} ;
mkV157 : Str -> V ;
mkV157 base =
case base of {
base_1+base_2@(?+?)+base_3@?+"ir" => lin V
{ s = base_1+base_2+base_3+"ir" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+base_3+"iridh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+base_3+"ir" ;
Dep => nonExist
} ;
noun = base_1+base_2+"r"+base_3+"dh" ;
participle = base_1+base_2+base_3+"irte"
};
_ => error "Can't apply paradigm mkV157"
} ;
mkV158 : Str -> V ;
mkV158 base =
case base of {
"tabhair" => lin V
{ s = "tabhair" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => "bheir" ;
Dep => nonExist
} ;
past = table {
Indep => "thug" ;
Dep => nonExist
} ;
noun = "toirt" ;
participle = "tugta"
};
_ => error "Can't apply paradigm mkV158"
} ;
mkV159 : Str -> V ;
mkV159 base =
case base of {
base_1@?+base_2+base_3@(?+?)+"r" => lin V
{ s = base_1+base_2+base_3+"r" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"r"+base_3+"dh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+base_3+"r" ;
Dep => nonExist
} ;
noun = base_1+base_2+base_3+"rt" ;
participle = base_1+base_2+base_3+"rte"
};
_ => error "Can't apply paradigm mkV159"
} ;
mkV160 : Str -> V ;
mkV160 base =
case base of {
base_1+base_2@(?+?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"se" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV160"
} ;
mkV161 : Str -> V ;
mkV161 base =
case base of {
base_1+"a"+base_2@?+"ra"+base_3@?+"ng" => lin V
{ s = base_1+"a"+base_2+"ra"+base_3+"ng" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"ài"+base_2+"n"+base_3+"dh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"ha"+base_2+"ra"+base_3+"ng" ;
Dep => nonExist
} ;
noun = base_1+"a"+base_2+"ra"+base_3+"ng" ;
participle = base_1+"a"+base_2+"ra"+base_3+"ngte"
};
_ => error "Can't apply paradigm mkV161"
} ;
mkV162 : Str -> V ;
mkV162 base =
case base of {
base_1+base_2@(?+?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => base_1+"h"+base_2+"inn" ;
Pl => base_1+"h"+base_2+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+base_2+"eam" ;
Pl => base_1+base_2+"eamaid"
} ;
P2 => table {
Sg => base_1+base_2 ;
Pl => base_1+base_2+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+base_2+"eadh"
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => base_1+base_2
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => base_1+"h"+base_2
} ;
noun = base_1+base_2+"e" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV162"
} ;
mkV163 : Str -> V ;
mkV163 base =
case base of {
base_1+"h"+base_2@(?+?) => lin V
{ s = base_1+"h"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"hàin"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"hinn" ;
participle = base_1+base_2+"te"
};
_ => error "Can't apply paradigm mkV163"
} ;
mkV164 : Str -> V ;
mkV164 base =
case base of {
base_1+"h"+base_2@(?+?+?)+base_3@(?+?+?+?+?+?+?+?+?+?) => lin V
{ s = base_1+"h"+base_2+base_3 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => nonExist ;
Dep => nonExist
} ;
past = table {
Indep => nonExist ;
Dep => nonExist
} ;
noun = base_1+base_2+"t"+base_3 ;
participle = nonExist
};
_ => error "Can't apply paradigm mkV164"
} ;
mkV165 : Str -> V ;
mkV165 base =
case base of {
"thoir" => lin V
{ s = "thoir" ;
conditional = table {
Sg => "bheirinn" ;
Pl => "bheireadh"
} ;
imperative = table {
P1 => table {
Sg => "thoiream" ;
Pl => "thoireamaid"
} ;
P2 => table {
Sg => "thoir" ;
Pl => "thoiribh"
} ;
P3 => table {
Sg => nonExist ;
Pl => "thoireadh"
}
} ;
future = table {
Indep => "bheir" ;
Dep => "toir"
} ;
past = table {
Indep => "thug" ;
Dep => "tug"
} ;
noun = "toirt" ;
participle = "tugta"
};
_ => error "Can't apply paradigm mkV165"
} ;
mkV166 : Str -> V ;
mkV166 base =
case base of {
base_1+base_2@(?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"eil" ;
participle = base_1+base_2+"the"
};
_ => error "Can't apply paradigm mkV166"
} ;
mkV167 : Str -> V ;
mkV167 base =
case base of {
base_1+base_2@(?+?+?) => lin V
{ s = base_1+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2 ;
Dep => nonExist
} ;
noun = base_1+base_2+"eam" ;
participle = base_1+base_2+"e"
};
_ => error "Can't apply paradigm mkV167"
} ;
mkV168 : Str -> V ;
mkV168 base =
case base of {
base_1+base_2@(?+?+?)+base_3@?+"inn" => lin V
{ s = base_1+base_2+base_3+"inn" ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+base_2+"n"+base_3+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => base_1+"h"+base_2+base_3+"inn" ;
Dep => nonExist
} ;
noun = base_1+base_2+"n"+base_3+"dh" ;
participle = base_1+base_2+base_3+"inte"
};
_ => error "Can't apply paradigm mkV168"
} ;
mkV169 : Str -> V ;
mkV169 base =
case base of {
base_1+"i"+base_2@(?+?) => lin V
{ s = base_1+"i"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"i"+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"i"+base_2 ;
Dep => nonExist
} ;
noun = base_1+"a"+base_2 ;
participle = nonExist
};
_ => error "Can't apply paradigm mkV169"
} ;
mkV170 : Str -> V ;
mkV170 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => "dh'"+base_1+"ainn" ; --guessed
Pl => "dh'"+base_1+"amaid" --guessed
} ;
imperative = table {
P1 => table {
Sg => base_1+"am" ; --guessed
Pl => base_1+"aibh" --guessed
} ;
P2 => table {
Sg => base_1 ; --guessed
Pl => base_1+"aibh" --guessed
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"adh" --guessed
}
} ;
future = table {
Indep => base_1+"idh" ; --guessed
Dep => base_1 --guessed
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => "dh'"+base_1 --guessed
} ;
noun = base_1 ;
participle = base_1+"te" --guessed
};
_ => error "Can't apply paradigm mkV170"
} ;
mkV171 : Str -> V ;
mkV171 base =
case base of {
base_1+"i"+base_2@(?+?) => lin V
{ s = base_1+"i"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"i"+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"i"+base_2 ;
Dep => nonExist
} ;
noun = base_1+"ea"+base_2 ;
participle = base_1+"i"+base_2+"te"
};
_ => error "Can't apply paradigm mkV171"
} ;
mkV172 : Str -> V ;
mkV172 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => nonExist
} ;
noun = base_1+"eachd" ;
participle = base_1+"te"
};
_ => error "Can't apply paradigm mkV172"
} ;
mkV173 : Str -> V ;
mkV173 base =
case base of {
base_1+"c"+base_2@? => lin V
{ s = base_1+"c"+base_2 ;
conditional = table {
Sg => nonExist ;
Pl => nonExist
} ;
imperative = table {
P1 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P2 => table {
Sg => nonExist ;
Pl => nonExist
} ;
P3 => table {
Sg => nonExist ;
Pl => nonExist
}
} ;
future = table {
Indep => base_1+"c"+base_2+"idh" ;
Dep => nonExist
} ;
past = table {
Indep => "dh'"+base_1+"c"+base_2 ;
Dep => nonExist
} ;
noun = base_1+"g"+base_2 ;
participle = base_1+"c"+base_2+"te"
};
_ => error "Can't apply paradigm mkV173"
} ;
mkV174 : Str -> V ;
mkV174 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => "dh'"+base_1+"inn" ;
Pl => "dh'"+base_1+"eamaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+"eam" ;
Pl => base_1+"eamaid"
} ;
P2 => table {
Sg => base_1 ;
Pl => base_1+"ibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"eadh"
}
} ;
future = table {
Indep => base_1+"idh" ;
Dep => base_1
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => "dh'"+base_1
} ;
noun = base_1+"eachd" ;
participle = base_1+"e"
};
_ => error "Can't apply paradigm mkV174"
} ;
mkV175 : Str -> V ;
mkV175 base =
case base of {
base_1 => lin V
{ s = base_1 ;
conditional = table {
Sg => "dh'"+base_1+"ainn" ;
Pl => "dh'"+base_1+"amaid"
} ;
imperative = table {
P1 => table {
Sg => base_1+"am" ;
Pl => base_1+"amaid"
} ;
P2 => table {
Sg => base_1 ;
Pl => base_1+"aibh"
} ;
P3 => table {
Sg => nonExist ;
Pl => base_1+"adh"
}
} ;
future = table {
Indep => base_1+"aidh" ;
Dep => base_1
} ;
past = table {
Indep => "dh'"+base_1 ;
Dep => "dh'"+base_1
} ;
noun = base_1 ;
participle = base_1+"ta"
};
_ => error "Can't apply paradigm mkV175"
} ;
}
View Git Blame Copy Permalink