module type PARSE_COMMON =
sig
  val is_letter : char -> bool

  val is_digit : char -> bool

  val is_whitespace : char -> bool

  val is_cr : char -> bool

  val lift_or : ('a -> bool) -> ('a -> bool) -> 'a -> bool

  val skip_spaces : unit Angstrom.t

  val take_till_crlf : string Angstrom.t

  val take_till_eol : string Angstrom.t
end

module ParseCommon : PARSE_COMMON