sig
  type bsp = { p : int; g : float; l : float; r : float; }
  val read : int -> unit
  val get : unit -> Bsmlsig.MACHINE_PARAMETERS.bsp
end