-- 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])