[Haskell-beginners] Designing TimeOut for Search Algorithm