-- Project Euler Problem 1 module Main where solve [] = 0 solve (x:xs) | not (x `mod` 3 > 0 && x `mod` 5 > 0) = x + solve xs | otherwise = solve xs main = print (solve [3..999])