simple neural network in haskell