LTerm_geom

`sig type size = { rows : int; cols : int; } val rows : LTerm_geom.size -> int val cols : LTerm_geom.size -> int val string_of_size : LTerm_geom.size -> string type coord = { row : int; col : int; } val row : LTerm_geom.coord -> int val col : LTerm_geom.coord -> int val string_of_coord : LTerm_geom.coord -> string type rect = { row1 : int; col1 : int; row2 : int; col2 : int; } val row1 : LTerm_geom.rect -> int val col1 : LTerm_geom.rect -> int val row2 : LTerm_geom.rect -> int val col2 : LTerm_geom.rect -> int val size_of_rect : LTerm_geom.rect -> LTerm_geom.size val string_of_rect : LTerm_geom.rect -> string type horz_alignment = H_align_left | H_align_center | H_align_right type vert_alignment = V_align_top | V_align_center | V_align_bottom end`