#!/usr/bin/perl
$c="\e\[";for($a=0;$a<=15;$a++){for($b=0;$b<=7;$b++){$_.=$c.($a%2).";3".($a%2!=1?$a/2:$a/2-0.5).";4".$b."m [".($a%2).";3".($a%2!=1?$a/2:$a/2-0.5).";4".$b."m ".$c."0m"}$_.="\n"}print
