val set : string -> string -> unitval all : unit -> (string * string) listval switch_max_case : unit -> intval inlining_limit : unit -> intval tailcall_max_depth : unit -> intval constant_max_depth : unit -> inttype tc = | TcNone| TcTrampoline
val tailcall_optim : unit -> tcval lambda_lifting_threshold : unit -> intval lambda_lifting_baseline : unit -> int