gistfile1.txt

main = do print(sumlist problem1)                                                                                
                                                                                        
problem1 = [i | i <- [1..1000], i `mod` 3 == 0 || i `mod` 5 == 0]                       
sumlist [] = 0                                                                          
sumlist (head:tail) = head + sumlist(tail)