Процедура triples

Напишите процедуру triples , которая берет три бесконечных потока S , T и U , и порождает поток троек (Si, Tj, Uk) , таких, что i ≤ j ≤ k . С помощью triples породите поток всех Пифагоровых троек натуральных чисел, т. е. таких троек (i, j, k) , что i ≤ j и i² + j² = k² .

---