#require "core";;
open Core;;
let sum a = List.sum (module Int) a ~f:ident in List.range 0 100 |> List.map ~f:(fun x -> x*x) |> sum;;
- : int = 328350