Binary Search - Haskell | SlaveCode