;; 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> <birth-year>)
;; has already been written.
;;

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



(define NOBODY (make-unknown))

(define gabi-tree      (make-child 'Gabi NOBODY NOBODY 601))
(define helmut-tree    (make-child 'Helmut NOBODY NOBODY 590))
(define pierre-tree    (make-child 'Pierre gabi-tree helmut-tree 623))
(define chantelle-tree (make-child 'Chantelle gabi-tree helmut-tree 625))
(define lardHasen-tree (make-child 'Lord-Hasen NOBODY NOBODY 587))
(define pebbles-tree   (make-child
			 'Pebbles
			 (make-child 'Lady-Pfefferplump NOBODY lardHasen-tree 630)
			 pierre-tree
                         660))
(define bambam-tree    (make-child
			 'Bambam
			 chantelle-tree
			 (make-child 'Hunko NOBODY NOBODY 626)
                         662))
(define godzillette-tree
  (make-child 'Godzillette pebbles-tree bambam-tree 690))