A Simple Algorithm for Computing the Global Crystal Basis of an Irreducible Uq(sln)-Module