summul n = foldl (+) 0 (filter divok [1..n - 1])
  where
  divok n
   | mod n 3 == 0 = True
   | mod n 5 == 0 = True
   | otherwise    = False