perl diamond.pl colors.txt seasons.txt