fun {BuildDecisionTree ListOfPerson}

      local Tree MakeTree Question in
      fun {MakeTree ListQ LOPR BQ}
         BQ = {BestQ ListQ LOPR}
         if {Valeur BQ LOPR} < {Length LOPR} then leaf(LOPR true:leaf false:leaf)
	 else  question(BQ true:{MakeTree ListQ {ListOfPersonTrue LOPR BQ} BQ} false:{MakeTree ListQ {ListOfPersonFalse LOPR BQ} BQ})
	 end
      end

      Tree = Question({BestQ LOQ ListOfPerson} true:{MakeTree LOQ {ListOfPersonTrue ListOfPerson {BestQ LOQ ListOfPerson}} {BestQ LOQ ListOfPerson}} false:{MakeTree LOQ {ListOfPersonFalse ListOfPerson {BestQ LOQ ListOfPerson}} {BestQ LOQ ListOfPerson}})
      end
end