1 files changed, 80 insertions, 0 deletions
diff --git a/files/practicum/StamBoomPrint.icl b/files/practicum/StamBoomPrint.icl
new file mode 100644
index 0000000..9359b89
--- /dev/null
+++ b/files/practicum/StamBoomPrint.icl
@@ -0,0 +1,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