let concat cl : t =
    List.concat_map cl ~f:(fun c -> !c) |> ref