-- |x_{n} - x_{n+1}| < epsilon. The pattern match on 'Just' is
-- "safe" since the list is infinite. We'll succeed or loop
-- forever.
- Just winning_pair = find (\(x, diff) -> diff < epsilon) pairs
+ Just winning_pair = find (\(_, diff) -> diff < epsilon) pairs