sig val completion_mode : unit -> [ `classic | `none | `real_time ] val set_completion_mode : [ `classic | `none | `real_time ] -> unit end