pythagorean triples

import Control.Monad

triples :: Int -> Int -> [(Int,Int,Int)]
triples i n = do
    x <- [i..n]
    y <- [i..n]
    z <- [i..n]
    guard $ (x^2 + y^2 == z^2)
    pure (x,y,z)
    
main = print $ triples 0 10