open( 0, $0 );
$/ = $;;
<0> =~ m{(ET / /).*(C[^\*]+)}s;
$b = $1;
( $G = $g = $2 ) =~ s/.*(en).*/s$1d(t,/s;
$_ = join ');', S($g), S($g), "$G\"G$b\n\n\",
  0", "\$/=<t>";
substr( $_, 26, 1, '"' . pack( "cx2c5x8", 2, 80, 209, 85, 3, 25 ) . '"' );

sub S {
    split ( //, shift );
    $_[3] = chr( ord( $_[3] ) - ( $* ? 6 : 9 ) );
    $_[5] = chr( ord( $_[5] ) - ( $* ? 11 : -6 ) );
    $_[7] = '(t,';
    if ( !$*++ ) {
        $_[8] = join ( ',', split ( /5?/, ( ord( $_[10] ) + 104 ) ) );
        $_[2] = 'c';
        $_[6] = "";
        $_[0] = 's';
    }
    $#_ = 8;
    lc join ( '', @_ );
}
$_ = eval;
s/.*\r\n//s;
s#(<[^>]+>)*(\w{0,2})#"$1<FONT COLOR=".(int rand 999999).">
  $2</FONT>"#eg;
print;    #Content-type