Project Euler, Problem #1, Haskell

-- If we list all the natural numbers below 10 that are multiples of 3
-- or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23. Find
-- the sum of all the multiples of 3 or 5 below 1000.

main :: IO ()
main = print $ sum [x | x <- [0 .. 999], mod x 3 == 0 || mod x 5 == 0]

-- 233168

-- real 0m0,004s
-- user 0m0,000s
-- sys  0m0,003s