An experimental Haskell implementation of machine learning algorithm