rebol[]for a 3 100 1[for b 3 5000 1[c: a * a +(b * b)** .5 if c = d: to-integer c[print [a b d]]]]