(n,a,b,c)<-[("Gas Giant",4,9,15),("Ice",4,6,10),("Ice Giant",4,6,10),("Gaia class",5,7,10),("Dense Atmosphere",7,9,10),("Desert",7,10,25),("Iron",7,10,14),("Lava",10,11,6)]
(n,a,(b,c))<-zip3["Gas Giant","Ice","Ice Giant","Gaia class","Dense Atmosphere","Desert","Iron","Lava"][4,4,4,5,7,7,7,10]$zip[9,6,6,7,9,10,10,11][15,10,10,10,10,25,14,6]