sig
type t
val nil : Kwpicture.t
val pic : ?c:char -> int * int -> Kwpicture.t
val height : Kwpicture.t -> int
val width : Kwpicture.t -> int
val copy : int -> Kwpicture.t -> Kwpicture.t list
val row : string -> Kwpicture.t
val col : string -> Kwpicture.t
val above : Kwpicture.t -> Kwpicture.t -> Kwpicture.t
val beside : Kwpicture.t -> Kwpicture.t -> Kwpicture.t
val stack : Kwpicture.t list -> Kwpicture.t
val spread : Kwpicture.t list -> Kwpicture.t
val flipH : Kwpicture.t -> Kwpicture.t
val flipV : Kwpicture.t -> Kwpicture.t
val block : int -> Kwpicture.t list -> Kwpicture.t
val blockT : int -> Kwpicture.t list -> Kwpicture.t
type position = NW | N | NE | W | C | E | SW | S | SE
val frame :
?c:char -> Kwpicture.position -> int * int -> Kwpicture.t -> Kwpicture.t
val to_string : Kwpicture.t -> string
val display : ?h:char -> ?v:char -> Kwpicture.t -> Kwpicture.t
val print : Kwpicture.t -> unit
end