let euler1 limit =
  let sum = ref 0 in
  for i = 1 to limit - 1 do
    if i mod 3 = 0 || i mod 5 = 0 then sum := !sum + i
  done;
  !sum

;;

euler1 1000