sig
  type t = {
    set_thread_name_to : string option;
    doit : unit -> [ `Continue | `Stop ];
  }
  val sexp_of_t : Block_group.Work.t -> Sexplib.Sexp.t
end