type slide = {title : string;points : (int * string) list;
}val parse : string -> slide listval slide_at : string -> int -> intval start_of : string -> int -> intval lines_of : string -> int -> int option * int listval line_span : string -> int -> int * int * intval to_text : slide list -> string