type t = string
type content =
| Seq of string
| Line of string
val compare_content : content -> content -> int