let load path delimiter header filter =
  let ic = open_in path in
  let rec aux acc =
    try
      let line = input_line ic
      
  let rows = []
  let line = read_line ic in
  let columns = String.split_on_char delimiter line in