[Haskell-beginners] Pure function with timeout