@flawr Two more bytes off with (n,a,(b,c))<-lines"Gas Giant\nIce\nIce Giant\nGaia class\nDense Atmosphere\nDesert\nIron\nLava"`zip3`[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].
@flawr what you said about zip3...zip, that it was already suggested by @Laikoni - I didn't see that suggestion before. it indeed shortens it by 3 bytes.
But those were found to be reducible by Leo, and for some reason I didn't think of the actually easier way of just taking the length of the string back then.