An algorithm for computing the global basis of a finite dimensional irreducible $U_q(s{o}_{2n+1})$ or $U_q(s{o}_{2n})$-module

We describe a simple algorithm for computing the canonical basis of any irreducible finite-dimensional $U_q(s{o}_{2n+1})$ or $U_q(s{o}_{2n})$-module.