--  :load "c:\\HaskellProgs\\chap5_1.hs"   


pyths :: Int -> [(Int,Int,Int)]
pyths n = [(x,y,n)| x <- [1..n], y<-[1..n], x^2+y^2==n^2]