1
2
3
4
5
6
7
8
9
10
11
..
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
...
107
108
109
110
111
112
113
114
115
116
117
118
119
120
...
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
|
type word = A of string | An of string
type root = Edy of word | Xy of word | Ation of word | Le of word | A of word | Cy of word
| Rous of word | Ics of word | Ics2 of word | Sis of word | X of word | Ality of word | Ty of word
| Ication of word | Tion of word | Arity of word | Sm of word
type prefix = Inv of word | Vf of word * string
let prefixes = [|
Vf(A "mult","i"); Inv (A "pre"); Vf(An "ex","o"); Vf(A "retr","o");
Inv (A "hyper"); Vf(A "hem","i"); Inv (A "eu"); Vf(A "par","a");
Vf(A "gastr","o"); Vf(A "bell","i"); Inv (An "an"); Vf(A "mes","o");
Vf(A "therm","o"); Vf(A "copr","o"); Vf(A "pleb","i"); Vf(An "ant","i");
Vf(A "pseud","o"); Vf(A "quas", "i"); Vf(A "crypt","o"); Vf(A "bronch","o");
................................................................................
Inv(A "tech"); Vf(A "plasm","o"); Vf(A "megal","o"); Inv(A "cyber");
Vf(A "met","a"); Inv(A "neo"); Vf(An "ocul","o"); Vf(A "strangul","o");
Vf(A "dendr","o"); Vf(A "matr","i"); Vf(A "patr","i"); Vf(A "lesb","o");
Vf(A "hom","o"); Vf(A "heter","o"); Vf(A "prot","o"); Vf(An "ect","o");
Vf(A "weeb","o"); Vf(A "fung","i"); Vf(A "per","i"); Vf(A "petr","i");
Vf(A "sad","o"); Vf(A "femin","i"); Vf(A "mascul","o"); Vf(A "claustr","o");
Vf(A "neur","o"); Vf(A "norm","o"); Inv (A "eu"); Vf(A "sten","o");
Vf(A "stegan","o");
Vf(An "agor","a"); Vf(A "thanat","o"); Vf(A "vagin","o"); Vf(A "bi","o");
Vf(A "blog","o"); Vf(A "prometh","eo"); Vf(An "anesthes", "io");
Vf(A "din","o"); Vf(A "medic","o");
|]
let roots = [|
................................................................................
Ality (A "typic");
Xy (A "do");
Ality (A "leg");
Sm (A "legali");
Ation (A "leg");
A (A "pragmat");
A (A "stigmat");
|]
let nsuffixes = [|
An "ite";
An "ate";
An "itis";
A "sis";
................................................................................
An x -> An (x^s) | A x -> A (x^s);;
let pick (r : 'a array) : 'a = r.(Random.int(Array.length r))
let chance i = (Random.int i) = 0
let cform root = match root with
| Edy x -> x^^"edo" | Xy x -> x^^"cto" | Ation x -> x^^"o"
| Rous x -> x^^"ro" | Le x -> x^^"ulo" | A x -> x^^"o"
| Cy x -> x^^"tico" | Ics x | Ics2 x -> x^^(if chance 2 then "i" else "o")
| Sis x -> x^^"to"
| X x -> x^^"co" | Ality x -> x^^"o" | Ty x -> x^^"to"
| Ication x -> x^^"o" | Tion x -> x^^"to" | Arity x -> x^^"a"
| Sm x -> x^^(if chance 2 then "smo" else "sto")
let bareform root = match root with
| Edy x -> (if chance 2 then x else x^^"ed") | Xy x -> x^^"ct" | Ation x -> x
| Rous x -> x^^"r" | Le x -> x^^"ul" | A x -> x
| Cy x -> x^^"tic" | Ics x -> x^^"ic" | Ics2 x -> x | Sis x -> x^^"t"
| X x -> x^^"c" | Ality x -> x | Ty x -> x^^"t"
| Ication x -> x | Tion x -> x^^"t" | Arity x -> x
| Sm x -> x^^"st"
let adjform root = match root with
| Edy x -> x^^"ic" | Xy x -> x^^"ctic" | Ation x -> x^^"ic"
| Rous x -> x^^"rous" | Le x -> x^^"ulous" | A x -> x^^"e"
| Cy x -> x^^"tical" | Ics x -> x^^"ical" | Ics2 x -> x^^"ic" | Sis x -> x^^"tic"
| X x -> x^^"cal" | Ality x -> x^^"al" | Ty x -> x^^"tical"
| Ication x -> x^^(if chance 3 then "itious" else "icate")
| Tion x -> x^^(match Random.int 4 with
| 0 -> "tive" | 1 -> "ted" | 2 -> "cious" | 3 -> "tory" | _ -> assert false)
| Arity x -> x^^"ary" | Sm x -> x^^(if chance 2 then "stic" else "smic")
let nform root = if chance 7 then (adjform root) ^^ "ness" else match root with
| Edy x -> x^^"edy" | Xy x -> x^^"xy" | Ation x -> x^^(if chance 3 then "itor" else "ation")
| Rous x -> x^^"er" | Le x -> x^^"le" | A x -> x^^"a"
| Cy x -> x^^"cy" | Ics x -> x^^(if chance 3 then "ician" else "ics") | Sis x -> x^^"sis"
| Ics2 x -> x^^(if chance 3 then "ician" else "ics")
| X x -> x^^"x" | Ality x -> x^^"ality" | Ty x -> x^^"ty"
| Ication x -> x^^"ication" | Tion x -> x^^"tion" | Arity x -> x^^"arity"
| Sm x -> x^^(if chance 2 then "st" else "sm")
let abs (w:word) = match w with A x | An x -> x
let append pref w = match pref with
| Inv x -> x ^^ (abs w)
| Vf(body,v) -> match w with
| An x -> body^^x
| A x -> (body^^v)^^x
let rec word () : word = match Random.int 7 with
|
|
1
2
3
4
5
6
7
8
9
10
11
..
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
...
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
...
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
|
type word = A of string | An of string
type root = Edy of word | Xy of word | Ation of word | Le of word | A of word | Cy of word
| Rous of word | Ics of word | Ics2 of word | Sis of word | X of word | Ality of word | Ty of word
| Ication of word | Tion of word | Arity of word | Sm of word | Ine of word
type prefix = Inv of word | Vf of word * string
let prefixes = [|
Vf(A "mult","i"); Inv (A "pre"); Vf(An "ex","o"); Vf(A "retr","o");
Inv (A "hyper"); Vf(A "hem","i"); Inv (A "eu"); Vf(A "par","a");
Vf(A "gastr","o"); Vf(A "bell","i"); Inv (An "an"); Vf(A "mes","o");
Vf(A "therm","o"); Vf(A "copr","o"); Vf(A "pleb","i"); Vf(An "ant","i");
Vf(A "pseud","o"); Vf(A "quas", "i"); Vf(A "crypt","o"); Vf(A "bronch","o");
................................................................................
Inv(A "tech"); Vf(A "plasm","o"); Vf(A "megal","o"); Inv(A "cyber");
Vf(A "met","a"); Inv(A "neo"); Vf(An "ocul","o"); Vf(A "strangul","o");
Vf(A "dendr","o"); Vf(A "matr","i"); Vf(A "patr","i"); Vf(A "lesb","o");
Vf(A "hom","o"); Vf(A "heter","o"); Vf(A "prot","o"); Vf(An "ect","o");
Vf(A "weeb","o"); Vf(A "fung","i"); Vf(A "per","i"); Vf(A "petr","i");
Vf(A "sad","o"); Vf(A "femin","i"); Vf(A "mascul","o"); Vf(A "claustr","o");
Vf(A "neur","o"); Vf(A "norm","o"); Inv (A "eu"); Vf(A "sten","o");
Vf(A "stegan","o"); Vf(A "rhod", "o");
Vf(An "agor","a"); Vf(A "thanat","o"); Vf(A "vagin","o"); Vf(A "bi","o");
Vf(A "blog","o"); Vf(A "prometh","eo"); Vf(An "anesthes", "io");
Vf(A "din","o"); Vf(A "medic","o");
|]
let roots = [|
................................................................................
Ality (A "typic");
Xy (A "do");
Ality (A "leg");
Sm (A "legali");
Ation (A "leg");
A (A "pragmat");
A (A "stigmat");
Ine (A "rhadamanth");
|]
let nsuffixes = [|
An "ite";
An "ate";
An "itis";
A "sis";
................................................................................
An x -> An (x^s) | A x -> A (x^s);;
let pick (r : 'a array) : 'a = r.(Random.int(Array.length r))
let chance i = (Random.int i) = 0
let cform root = match root with
| Edy x -> x^^"edo" | Xy x -> x^^"cto" | Ation x -> x^^"o"
| Rous x -> x^^"ro" | Le x -> x^^"ulo" | A x -> x^^"o"
| Cy x -> x^^"tico" | Ics x | Ics2 x -> x^^(if chance 2 then "i" else "o")
| Sis x -> x^^"to" | Ine x -> x^^"o"
| X x -> x^^"co" | Ality x -> x^^"o" | Ty x -> x^^"to"
| Ication x -> x^^"o" | Tion x -> x^^"to" | Arity x -> x^^"a"
| Sm x -> x^^(if chance 2 then "smo" else "sto")
let bareform root = match root with
| Edy x -> (if chance 2 then x else x^^"ed") | Xy x -> x^^"ct" | Ation x -> x
| Rous x -> x^^"r" | Le x -> x^^"ul" | A x -> x
| Cy x -> x^^"tic" | Ics x -> x^^"ic" | Ics2 x -> x | Sis x -> x^^"t"
| X x -> x^^"c" | Ality x -> x | Ty x -> x^^"t"
| Ication x -> x | Tion x -> x^^"t" | Arity x -> x
| Sm x -> x^^"st" | Ine x -> x
let adjform root = match root with
| Edy x -> x^^"ic" | Xy x -> x^^"ctic" | Ation x -> x^^"ic"
| Rous x -> x^^"rous" | Le x -> x^^"ulous" | A x -> x^^"e"
| Cy x -> x^^"tical" | Ics x -> x^^"ical" | Ics2 x -> x^^"ic" | Sis x -> x^^"tic"
| X x -> x^^"cal" | Ality x -> x^^"al" | Ty x -> x^^"tical"
| Ication x -> x^^(if chance 3 then "itious" else "icate")
| Tion x -> x^^(match Random.int 4 with
| 0 -> "tive" | 1 -> "ted" | 2 -> "cious" | 3 -> "tory" | _ -> assert false)
| Arity x -> x^^"ary" | Sm x -> x^^(if chance 2 then "stic" else "smic")
| Ine x -> x^^"ine"
let nform root = if chance 7 then (adjform root) ^^ "ness" else match root with
| Edy x -> x^^"edy" | Xy x -> x^^"xy" | Ation x -> x^^(if chance 3 then "itor" else "ation")
| Rous x -> x^^"er" | Le x -> x^^"le" | A x -> x^^"a"
| Cy x -> x^^"cy" | Ics x -> x^^(if chance 3 then "ician" else "ics") | Sis x -> x^^"sis"
| Ics2 x -> x^^(if chance 3 then "ician" else "ics")
| X x -> x^^"x" | Ality x -> x^^"ality" | Ty x -> x^^"ty"
| Ication x -> x^^"ication" | Tion x -> x^^"tion" | Arity x -> x^^"arity"
| Sm x -> x^^(if chance 2 then "st" else "sm") | Ine x -> x
let abs (w:word) = match w with A x | An x -> x
let append pref w = match pref with
| Inv x -> x ^^ (abs w)
| Vf(body,v) -> match w with
| An x -> body^^x
| A x -> (body^^v)^^x
let rec word () : word = match Random.int 7 with
|