1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
module StamBoomPrint
import StdEnv
import StamBoom
import GenTreePrint
import TextCompose
Start = toString Baggins_of_Hobbiton
/** source family tree Bilbo Baggins:
http://www.frodoforever.com/tree.php
(date december 10 2011)
*/
Baggins_of_Hobbiton
= Node (Couple (m "Balbo Baggins") (f "Berylla Boffin"))
[Node (Couple (m "Mungo Baggins") (f "Laura Grubb"))
[Node (Couple (m "Bungo Baggins") (f "Belladonna Took"))
[Leaf (Single (m "Bilbo Baggins"))
]
,Node (Couple (f "Belba Baggins") (m "Rudigar Bolger"))
[]
,Node (Couple (m "Longo Baggins") (f "Camellia Sackville"))
[Node (Couple (m "Otho Sackville-Baggins") (f "Lobelia Bracegirdle"))
[Leaf (Single (m "Lotho"))
]
]
,Node (Couple (f "Linda Baggins") (m "Bodo Proudfoot"))
[Leaf (Single (m "Odo Proudfoot"))
]
,Node (Couple (m "Bingo Baggins") (f "Chica Chubb"))
[Node (Couple (m "Falco Chubb-Baggins") unknown)
[Node (Couple (f "Poppy Chubb-Baggins") (m "Filibert Bolger"))
[]
]
]
]
,Node (Couple (f "Pansy Baggins") (m "Fastolph Bolger"))
[]
,Node (Couple (m "Ponto Baggins") (f "Mimosa Bunce"))
[Node (Couple (f "Rosa Baggins") (m "Hildigrim Took"))
[]
,Node (Couple (m "Polo Baggins") unknown)
[Node (Couple (m "Posco Baggins") (f "Gilly Brownlock"))
[Node (Couple (m "Ponto Baggins") unknown)
[Leaf (Single (f "Angelica Baggins"))]
,Leaf (Single (m "Porto Baggins"))
,Node (Couple (f "Peony Baggins") (m "Milo Burrows"))
[Leaf (Single (m "Mosco Baggins"))
,Leaf (Single (m "Moro Baggins"))
,Leaf (Single (f "Myrtle Baggins"))
,Leaf (Single (m "Minto Baggins"))
]
]
,Node (Couple (f "Prisca Baggins") (m "Wilibald Bolger"))
[]
]
]
,Node (Couple (m "Largo Baggins") (f "Tanta Hornblower"))
[Node (Couple (m "Fosco Baggins") (f "Ruby Bolger"))
[Leaf (Single (f "Dora Baggins"))
,Node (Couple (m "Drogo Baggins") (f "Primula Brandybuck"))
[Leaf (Single (m "Frodo Baggins"))
]
,Node (Couple (m "Dudo Baggins") unknown)
[Node (Couple (f "Daisy Baggins") (m "Griffo Boffin"))
[]
]
]
]
,Node (Couple (f "Lily Baggins") (m "Togo Goodbody"))
[]
]
where
unknown = m "?"
instance zero (a,b,c) | zero a & zero b & zero c where zero = (zero,zero,zero)
p (d,m,y) gender name = Person (DoB y m d) gender name
m name = p zero Male name
f name = p zero Female name
|
