9c.hs

import Control.Monad (guard)

triplets :: [[Int]]
triplets = do
    a <- [1..998]
    b <- [a+1..998]
    let c = 1000 - a - b
    guard $ a^2 + b^2 == c^2
    return [a, b, c]

main = print $ product $ head $ triplets