main = do
    let limit = 500
    let numbersOfInterest = filter ((>limit) . numDivisors) triangleNumbers
    print $ head $ numbersOfInterest
main = do
    let limit = 500
    let numbersOfInterest = filter ((>limit) . numDivisors) triangleNumbers
    print $ head $ numbersOfInterest
main = do
    let limit = 500
    let numbersOfInterest = filter ((>limit) . numDivisors) triangleNumbers
    print $ head $ numbersOfInterest