# Pastebin HBLGDAGw
# require "csv";;
let csv = Csv.load "path/example.csv";;
let csv = List.tl csv;;

let float_of_string_opt x = 
  try Some(float_of_string x) with Failure _ -> None;;

let csv_floats = List.map (fun row -> List.map float_of_string_opt row) csv;;

let rec sum l =
  match l with
  | [] -> 0.0
  | h :: t -> h +. (sum t)
;;

List.map ~f:sum csv_floats;;