Sample OCaml File

(* Sample OCaml program — samplefiles.com *)
type customer = { id : int; name : string; balance : float }

let is_vip c = c.balance >= 10_000.

let total_balance customers = List.fold_left (fun acc c -> acc +. c.balance) 0. customers

let () =
  let customers =
    [ { id = 1; name = "Ada"; balance = 12_500. };
      { id = 2; name = "Grace"; balance = 830.5 };
      { id = 3; name = "Linus"; balance = 10_000. } ]
  in
  List.iter
    (fun c -> Printf.printf "%-6s %10.2f %s\n" c.name c.balance (if is_vip c then "VIP" else ""))
    customers;
  Printf.printf "Total: %.2f\n" (total_balance customers)