open Rdcapsis.Prelude

let () =
  let ams_tz = Time_ns.Zone.find_exn "Europe/Amsterdam" in
  let prim_txs =
    In_channel.with_file ~binary:true "test.csv"
      ~f:(Rdcapsis.Ingcsv.read_channel ~ams_tz)
    |> Result.unwrap
  in
  let euc_id = "EUC" in
  let ledger =
    List.map_result ~f:(Rdcapsis.Convert.les_from_current_acc euc_id) prim_txs
    |> Result.unwrap |> List.concat
  in
  print_endline (Sexp.to_string_hum ([%sexp_of: Rdcapsis.Ledger.t] ledger))