Модификация процедуры pairs

Измените процедуру так, чтобы (pairs integers integers) порождало поток из всех пар натуральных чисел (i, j) , без дополнительного условия i ≤ j . Подсказка: потребуется примешать еще один поток.

---