let strip_cudf_pool = function CudfPool p -> p | _ -> assert false