module Main where

multipleOf3or5 x
    | mod x 5 == 0 = x
    | mod x 3 == 0 = x
    | otherwise    = 0

euler1 = sum $ map multipleOf3or5 $ [1..999]