open Hsim.Types open Solvers.Zls module type Model = sig val init : string list -> ('b, 'c, carray, carray, carray, zarray, carray) hnode end