sig val prepare : unit -> unit end