Recursive Monte Carlo code for transversely polarized quark jet