(* Baseline: imperative loop summing squares *)
let total = ref 0 ;;
for i = 1 to 10 do
  total := !total + i * i
done ;;
!total