added 039.hs - integer right triangles