sig
  exception Error of string
  type name = string
  val add :
    name:Archimedes.Marker.name ->
    (Archimedes.Backend.t -> unit) -> Archimedes.Matrix.rectangle -> unit
  val names : unit -> Archimedes.Marker.name list
end