adds brute force solution in haskell