#!/usr/bin/perl

#$pink = "\033[00m\033[00m\033[37m\033[33m\033[01m\033[35m\033[01m";
$blue = "\033[34m\033[01m";
$green = "\033[31m\033[01m";
$nothing = "\033[29m\033[00m";
$pink = "\033[35m\033[01m";

$SIG{INT} = sub { print $nothing; exit(0); }; 
$SIG{QUIT} = sub { print $nothing; exit(0); }; 
while (<>) {
	if (/^ /) { 
		print $nothing;
		print; 
	} elsif (/^---/) {
		print $green;
		print;
	} elsif (/^\+\+\+/) {
		print $green;
		print;
	} elsif (/^\+/) 
		{ 
		print $blue;
		print;
	} elsif (/^-/) { 
		print $pink;
		print;
	} elsif (/^@@/) {
		print $green;
		print;
	} elsif (/^>/) {
		print $blue;
		print;
	} else {
		print $nothing;
		print;
	}
}

print $nothing