let euler6 n =
  let sum = ref 0 in
  let sum_sq = ref 0 in
  for i = 1 to n do
    sum := !sum + i;
    sum_sq := !sum_sq + i * i
  done;
  !sum * !sum - !sum_sq

;;

euler6 100