sig
  val remove_newlines : string -> string
  val remove_whitespace : string -> string
  val remove_leading_whitespace : string -> string
  val remove_all_whitespace : string -> string
  val whitespace_only : string -> bool
  val white : char -> bool
  type mode = Preserve | Default
  val whitespace_separate : string -> string list
  val whitespace_normalize : string -> string
  val whitespace_id_normalize : string -> string
  val remove_trailing_spaces : string -> string
end