let rev t = let lgth = length t in match lgth with | 0 -> empty | lgth -> let o = lgth - 1 in B.mapi ~f:(fun i _ -> B.get t (o - i)) t