Create FamilyTree.hs