include Std
include Ztypes
include Solvers

module type IGNORE = sig end
module Defaultsolver : IGNORE = struct end

module Zlsrun = struct
  module Make (S : IGNORE) = struct
    let go s =
      let s = Lift.lift_hsim s in
      let open Hsim in
      let state = (module State.InPlaceSimState : State.SimState) in
      let solver =
        Solver.solver (StatefulSundials.InPlace.csolve)
        (Types.d_of_dc StatefulZ.InPlace.zsolve) in
      let open Sim.Sim(val state) in
      ()
      (* run_until_n (Utils.ignore 0 (run s solver)) 30. 1 ignore *)
  end
end