sig val safe_create : (unit -> unit) -> Core.Std.Thread.t end