sig   external add_loop_vectorize :     [< Llvm.PassManager.any ] Llvm.PassManager.t -> unit     = "llvm_add_loop_vectorize"   external add_slp_vectorize :     [< Llvm.PassManager.any ] Llvm.PassManager.t -> unit     = "llvm_add_slp_vectorize" end