sig
  type message = {
    headers : (string * string) list;
    body : string;
    parts : Smailparse.message list;
  }
  val parse_message : string -> Smailparse.message
  val header : string -> Smailparse.message -> string
end