#!/usr/bin/perl -wl
for (30..37){
     print "^[[033;0;${_}m $_";
}