type t = {top : int;right : int;bottom : int;left : int;
}val make : ?top:int -> ?right:int -> ?bottom:int -> ?left:int -> unit -> tval horitzontal : int -> tval topLeft : int -> int -> tval topRight : int -> int -> tval topBottom : int -> int -> tval bottomLeft : int -> int -> tval bottomRight : int -> int -> tval bottomTop : int -> int -> tval rightBottom : int -> int -> tval rightLeft : int -> int -> tval leftBottom : int -> int -> tval leftTop : int -> int -> tval leftRight : int -> int -> t