example.ml

   1 (* See also 'test.ml' for examples, and 'csv.mli' for documentation.
   2  * $Id: example.ml,v 1.1 2005-02-17 15:51:47 rich Exp $ *)
   3
   4 open Printf
   5 open Csv
   6
   7 let csvs =
   8   List.map (fun name -> name, load name)
   9     [ "example1.csv"; "example2.csv" ] ;;
  10
  11 List.iter (
  12   fun (name, csv) ->
  13     print_endline name;
  14     print_readable csv
  15 ) csvs