main = putStr$(['A'..'Y']>>= \x->x:", "++['\n'|elem x"GPSV"])++"Z."