anyone have any luck with a transmute macro. or actually can anyone look at this and see if it is improvable

/cast Alchemy
/run local s for i=1,GetNumTradeSkills() do s=GetTradeSkillInfo(i) if (s=="Transmute: dreadstone"or"Transmute: Eye of Zul"or"Transmute: King's Amber") then DoTradeSkill(i) end end

/cast Alchemy
/run local s for i=1,GetNumTradeSkills() do s=GetTradeSkillInfo(i) if (s=="Transmute: Majestic Zircon"or"Transmute: Ametrine"or"Transmute: Cardinal Ruby") then DoTradeSkill(i) end end