let some_visible_out cm = try Signature.fold_all_outputs raise_if_visible () cm ; false with Visible -> true