# smtp protocol independent access to an email server. Smtp : module{	PATH : con "/dis/lib/smtp.dis"; 	# all functions return status (-ve when error)          # open a connection with the email server         # requires the email server's name or address or nil if a default server is to be used	# returns (status, errror string)         open: fn(server : string) : (int, string); 	# send mail - returns (status, error string)	sendmail: fn(fromwho: string, 		             towho: list of string, 		             cc : list of string,		             msg: list of string) : (int, string);          # close the connection - returns (status, error string)         close: fn() : (int, string);};