sig
  type 'a labels = Values | User of 'a list
  val simple :
    ?width:Mlpost.Num.t ->
    ?height:Mlpost.Num.t ->
    ?padding:Mlpost.Num.t ->
    ?fill:Mlpost.Color.t list ->
    ?perspective:bool ->
    ?hcaption:Mlpost.Picture.t ->
    ?vcaption:Mlpost.Picture.t ->
    ?histlabel:Mlpost.Command.vposition * Mlpost.Picture.t Mlpost.Hist.labels ->
    ?vlabel:Mlpost.Plot.labels ->
    ?hlabel:Mlpost.Picture.t list -> float list -> Mlpost.Command.t
  val compare :
    ?width:Mlpost.Num.t ->
    ?height:Mlpost.Num.t ->
    ?padding:Mlpost.Num.t ->
    ?fill:Mlpost.Color.t list ->
    ?perspective:bool ->
    ?hcaption:Mlpost.Picture.t ->
    ?vcaption:Mlpost.Picture.t ->
    ?histlabel:Mlpost.Command.vposition *
               Mlpost.Picture.t list Mlpost.Hist.labels ->
    ?vlabel:Mlpost.Plot.labels ->
    ?hlabel:Mlpost.Picture.t list -> float list list -> Mlpost.Command.t
  val stack :
    ?width:Mlpost.Num.t ->
    ?height:Mlpost.Num.t ->
    ?padding:Mlpost.Num.t ->
    ?fill:Mlpost.Color.t list ->
    ?perspective:bool ->
    ?hcaption:Mlpost.Picture.t ->
    ?vcaption:Mlpost.Picture.t ->
    ?histlabel:Mlpost.Command.vposition *
               Mlpost.Picture.t list Mlpost.Hist.labels ->
    ?vlabel:Mlpost.Plot.labels ->
    ?hlabel:Mlpost.Picture.t list -> float list list -> Mlpost.Command.t
end