sig
  class mail :
    object
      method from : string
      method helo : string
      method msg : string
      method rcpt : string
      method send : unit
      method server : string
      method set_from : string -> unit
      method set_helo : string -> unit
      method set_msg : string -> unit
      method set_rcpt : string -> unit
      method set_server : string -> unit
      method set_subject : string -> unit
      method subject : string
    end
end