sig
  type point
  type num
  module type Boxlike =
    sig
      type t
      val width : Mlpost.Signature.Boxlike.t -> Mlpost.Signature.num
      val height : Mlpost.Signature.Boxlike.t -> Mlpost.Signature.num
      val set_pos :
        Mlpost.Signature.point ->
        Mlpost.Signature.Boxlike.t -> Mlpost.Signature.Boxlike.t
    end
end