Added a brute force search in haskell