;; hw03-data.ss
;; A medium-sized family-tree, for use in testing hw03.
;; Note that there are a bunch of trees defined here:
;; you can use the placeholders pebbles-tree, bambam-tree, etc.
;;
;; This assumes that
;;    (make-child <name> <mother-tree> <father-tree>)
;; has already been written.
;;

;   Gabi  Helmut   Gabi    Helmut
;     |       |     |       |
;     +-------+     +-------+           Lord-Hasen
;           |          |                 |
; Hunko  Chantelle   Pierre  Lady-Pfefferplump
; |        |           |        |
; +--------+           +--------+
;    |                      |
;  Bambam                Pebbles
;    |                      |
;    +----------------------+
;              |
;           Godzillette



(define NOBODY 'unknown)

(define gabi-tree      (make-child 'gabi NOBODY NOBODY))
(define helmut-tree    (make-child 'helmut NOBODY NOBODY))
(define pierre-tree    (make-child 'pierre gabi-tree helmut-tree))
(define chantelle-tree (make-child 'chantelle gabi-tree helmut-tree))
(define lardHasen-tree (make-child 'Lord-Hasen NOBODY NOBODY))
(define pebbles-tree   (make-child
			 'pebbles
			 (make-child 'Lady-Pfefferplump NOBODY lardHasen-tree)
			 pierre-tree))
(define bambam-tree    (make-child
			 'bambam
			 chantelle-tree
			 (make-child 'Hunko NOBODY NOBODY)))
(define godzillette-tree
  (make-child 'godzillette pebbles-tree bambam-tree))