Generating infinite pairs
A triples funcion that generates all triplets under a size
Work using streams that are mutually recursive using 'force'