sig
  val crlf_index_from : string -> int -> int
  val only_whitespace : string -> bool
end