sig val cots_connect : string -> string -> Unix.file_descr end