Simple working perceptron on haskell