let of_character_list cl =     let r = ref cl in     B.init (List.length cl) ~f:(fun _ ->       let c = List.hd !r in       r := List.tl !r;       c)