#!/usr/bin/perl

print "\x1b[0m\n";
for ($color = 0; $color < 8; $color++) {
    print "\x1b[48;5;${color}m    ";
}
print "\x1b[0m\n";
for ($color = 0; $color < 8; $color++) {
    print "\x1b[48;5;${color}m    ";
}
print "\x1b[0m\n";
for ($color = 8; $color < 16; $color++) {
    print "\x1b[48;5;${color}m    ";
}
print "\x1b[0m\n";
for ($color = 8; $color < 16; $color++) {
    print "\x1b[48;5;${color}m    ";
}
print "\x1b[0m\n\n";