Optimising Recursive Functions Yielding Multiple Results in Tuples in a Lazy Functional Language