implementing the ID3 Machine learning algorithm in Haskell(probably not working)