(define create-tree
  (λ (examples attributes class-attribute)
    ;Prima oara, pe post de root inserez elementul cu IG-ul cel mai mare
    (list (first (max-IG-atribute (gains examples attributes class-attribute) attributes (my-max (associate attributes (gains examples attributes class-attribute))) examples (first class-attribute)))
    (map (lambda (x y) (append (list x) y))

           (rest (max-IG-atribute (gains examples attributes class-attribute) attributes (my-max (associate attributes (gains examples attributes class-attribute))) examples (first class-attribute)))

           (map (lambda (x) (create-tree
                            x
                            (rest-attributes attributes (first (max-IG-atribute (gains examples attributes class-attribute) attributes (my-max (associate attributes (gains examples attributes class-attribute))) examples (first class-attribute))))
                            class-attribute
                            ))
               (Sieves examples
                       (first (max-IG-atribute (gains examples attributes class-attribute) attributes (my-max (associate attributes (gains examples attributes class-attribute))) examples (first class-attribute)))
                       (rest (max-IG-atribute (gains examples attributes class-attribute) attributes (my-max (associate attributes (gains examples attributes class-attribute))) examples (first class-attribute))))
               ;(rest (max-IG-