module Sum = struct
  let op = fun x y -> x+y ;;
  let init = 0 ;;
end