Added improved saddleback search haskell program, but contains error